Guten Morgen!
Sub Makro2()
Dim c As Range
For Each c In Sheets("Daten aktuell").Range("B1:" & Sheets("Daten aktuell").Range("IV1").End(xlToLeft).Address)
If Not c.Text = "" Then
Sheets(c).Select
...
..
.
In den Zellen stehen Texte drin, die den Namen der Tabellen entsprechen. Z.B.: range("b2") = Schere 123
somit kann ich mit sheets(c) das tabellenblatt auch auswählen. ich habe aber das mir unverständliche problem, dass c = "Schere 123" auswirft, und nicht schere 123 !!
habe schon versucht mit left(right(c... den teil rauszuschneiden, geht aber auch nicht!
was mache ich falsch?
Gruß
F.