Eine zweite Frage habe ich noch. Gibt es eine Möglichkeit eine Suchmaske zu erzeugen, die die gesamten Zellen einer Arbeitmappe nach einem bestimmten Textinhalt durchsucht und mir die Tabellennamen dann auflistet?
Torsten
Sub erstellen()
Dim i As Integer
Dim newname As String
With Sheets("Tabelle1")
For i = 1 To 4
newname = .Range("A" & i)
Sheets.Add.Name = newname
Next i
End With
End Sub
Sub NeueSheets()
Zeile = 1
Do While Sheets("Tabelle1").Cells(Zeile, 1) <> ""
Name = Sheets("Tabelle1").Cells(Zeile, 1)
Sheets.Add.Name = Name
Zeile = Zeile + 1
Loop
End Sub
Sub Such_Find()
Dim Suche As String
Dim Ausgabe As String
Dim rng As Range
Dim i As Integer
Suche = InputBox("Was suchst Du?")
For i = 1 To Worksheets.Count
Set rng = Sheets(i).Cells
Ausgabe = rng.Cells.Find(Suche)
MsgBox Sheets(i).Name
Next i
End Sub