Sheet überprüfen
24.12.2017 12:54:25
Sigrid
erst mal allen ein schönes Weihnachtsfest.
Ich muss leider noch etwas für nächste Woche vorbereiten.
Ich habe vor einer Zeit nachgefragt wegen Sheet überprüfen
ob vorhanden ist.
Jetzt habe ich das Makro so, bin ja lernfähig, wie ich es brauche.
Funktioniert alles super, mir ist jedoch aufgefallen, wenn ich nach dem
erstellen des neuen Namens wieder prüfen will ob auch dieser vorhanden ist,
also irgendwie eine schleife, nachdem ich den neuen Namen eingegeben habe.
Anbei das Makro:
Public Sub smr_Neue_Tabelle_erstellen()
Dim ws As Worksheet
Dim vorhanden As Boolean
Dim i As Integer
Dim neuname
Sheets("Muster").Activate
ActiveSheet.Range("B2").Select
ActiveSheet.Range("B2") = "Muster"
Sheets("Muster").Select
ActiveSheet.Copy After:=Sheets(Worksheets.Count)
'-----------------------------------------------------
Dim strBlattName As String
strBlattName = ActiveSheet.Range("B2").Value
On Error Resume Next
Dim Eingabe$ 'String
Eingabe = InputBox("Bitte ww:", "Zelleneingabe:", Range("B2").Text)
If StrPtr(Eingabe) = 0 Then Exit Sub
Dim myWsh As Worksheet
On Error Resume Next
' Arbeitsblattname anpassen
Set myWsh = Worksheets(Eingabe)
If Err.Number 0 Then
' MsgBox "fehlt"
ActiveSheet.Range("B2").Value = Eingabe
ActiveSheet.Name = Eingabe
Else
MsgBox "vorhanden neuen namen erstellen"
Eingabe = InputBox("Bitte Tabellenname eingeben:", "Sheet-Namen festlegen:", Range("B2").Text)
If StrPtr(Eingabe) = 0 Then Exit Sub
ActiveSheet.Range("B2").Value = Eingabe
ActiveSheet.Name = Eingabe
End If
On Error GoTo 0
Exit Sub
würde mich freuen etwas zu hören, zu lesen...
gruß
sigrid