das ist mein erster Beitrag hier im Forum nachdem ich mir schon sehr viele Tipps über die Google-Suche und damit über dieses Forum geholt habe.
Ich bin VBA/Makro Neuling also seid bitte nicht zu hart wenn ich einen sehr dummen Fehler im untenstehenden Code gemacht hab.
Was ich will: Es soll auf dem Sheet "Tabelle Sortiert" die Columm A ab Spalte 2 durchsucht werden und wenn etwas in der Zelle steht soll der Zellenname benutzt werden um ein neues Sheet hinter das letzte Sheet zu erstellen.
Mit dem ersten Namen funktioniert dies auch, beim zweiten Durchlauf scheint die Überprüfung sowie das erstellen des Sheets zu klappen, jedoch scheint in "Titel" nichts drin zu stehen (Empty) und dadurch stoppt das Makro und ich bekomm einen Fehler.
Sub InhaltChecken()
Dim Titel As Variant
Dim i As Long
With Sheets("Tabelle Sortiert")
For i = 2 To 10
If .Cells(i, "A").Value = "" Then
Else
Titel = Cells(i, 1)
Sheets.Add After:=Worksheets(Worksheets.Count)
Sheets(Worksheets.Count).Name = Titel
End If
Next i
End With
End Sub
Über Lösungsvorschläge bzw. Anregungen bedanke ich mich schon im Vorraus.LG Christian