Hallo zusammen,
habe ein kleines Problem!
Ich habe eine Tabelle, in ihr möchte ich prüfen, ob die erste Zeile beschrieben ist! Danch möchte ich die Zeilen und Spalten kopieren und in eine andere Tabelle übertragen! funktioniert leider nicht!
Denke es liegt an meiner Verschachtelung!
Mein Makro so far!
Worksheets("......").Activate
j=0
Do While Cells(30,3+j) ""
j = j +1
Loop
k=j
For i = 30 to 45
For j = 3 to k
zelle = Stringändern(ActiveSheet.Range(Cells(i,k),Cells(i,k).Value)
Next j
Next i
Wäre klasse, wenn mir jemand helfen könnte!
Danke im Voraus!