Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Leufzeitfehler 9
zurück: Aufzeichnen, dass Blattschutz aufgehoben wurde weiter: Neue Datei öffnen und Daten zusammenführen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Axapta
Gast


Verfasst am:
23. Jan 2009, 09:21
Rufname:

Leufzeitfehler 9 - Leufzeitfehler 9

Nach oben
       Version: Office 2007

Hallo miteinander

ich möchte von einer Vorlagentabellenblatt "neues Jahr" dieses kopieren und anschl. umbenennen, bekomme jedoch immer den Laufzeitfehler 9.


Private Sub cmdNeuerMitarbeiter_Click()
Dim lsName As String



lsName = InputBox("Bitte geben Sie den neuen Mitarbeiternamen ein." & Chr$(13) & "Beispiel: Hans Muster", "Erfassung neuer Mitarbeiter")
If lsName = "" Then
MsgBox ("Es wurde kein Mitarbeiter angelegt")
Exit Sub
End If
Worksheets("neues Jahr").Copy After:=Worksheets(Worksheets.Count)
Sheets("neues Jahr (2)").Select



Sheets("neues Jahr (2)").Name = lsName


If Err <> 0 Then
MsgBox "Dieser Mitarbeitername existiert bereits!"
Application.DisplayAlerts = False
Sheets("neues Jahr (2)").Delete
Application.DisplayAlerts = True
Sheets("Zusammenfassung Jan-Jun").Select
Range("A3").Select
Err.Clear
Else
Worksheets(lsName).Range("Y1").Value = lsName
End If

End Sub
Elvis_the_King
Im Profil kannst Du frei den Rang ändern


Verfasst am:
23. Jan 2009, 09:57
Rufname:


AW: Leufzeitfehler 9 - AW: Leufzeitfehler 9

Nach oben
       Version: Office 2007

Etwa so:
Code:
Private Sub cmdNeuerMitarbeiter_Click()

Dim lsName As String
Dim ws     As Excel.Worksheet


lsName = InputBox("Bitte geben Sie den neuen Mitarbeiternamen ein." & Chr$(13) & "Beispiel: Hans Muster", "Erfassung neuer Mitarbeiter")
lsName = Trim(lsName) & ""
Select Case lsName
  Case ""
    MsgBox ("Es wurde kein Mitarbeiter angelegt")
  Case Else
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets(lsName)
    If Not ws Is Nothing Then
      MsgBox "Dieser Mitarbeitername existiert bereits!"
      With ThisWorkbook.Worksheets("Zusammenfassung Jan-Jun")
        .Select
        .Range("A3").Select
      End With
    Else
      Worksheets("neues Jahr").Copy After:=Worksheets(Worksheets.Count)
      With Worksheets(Worksheets.Count)
        .Select
        .Name = lsName
        .Range("Y1").Value = lsName
      End With
    End If
End Select

Set ws = Nothing

End Sub

HTH,
Eric
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum