Hallo zusammen,
ich komme leider nicht weiter und wäre daher für jede Hilfe überaus dankbar :)
Folgendes möchte ich mit Hilfe eines Makros umsetzen: Alle Zellen der Zeile A sollen durchsucht werden. Jedes Mal wenn der Wert "2" gefunden wird, soll daneben (eigentlich recht, scheint aber nicht zu funktionieren) eine neue Spalte eingefügt werden.
Folgenden Code habe ich dazu erstellt und auf eine Dummy-Tabelle angewandt. Leider führt er bisher noch zu einer Fehlermeldung:
Sub Spalten()
Dim i As Integer
Dim cell As Range
i = 1
For Each cell In Tabelle1.Range("A1:J1")
If cell.Value = "2" Then
cell.Insert Shift:=xlToRight
End If
Next cell
End Sub
Kann mir jemand auf die Sprünge helfen? Ich bin leider noch sehr unerfahren und komme hier aktuell nicht weiter.
Besten Dank und Gruß, Jan |