Makro: Spalten einfügen
13.09.2016 11:16:01
Jan
als unerfahrener VBA-Anwender bräuchte ich bitte einmal Hilfe bei folgendem Anliegen:
Ich möchte mithilfe eines Makros eine definierte Zeile nach dem Wort "Menge" durchsuchen. Jedes Mal, wenn eine Zelle mit diesem Inhalt entdeckt wurde, soll die zugehörige Spalte selektiert und links davon eine neue Spalte eingefügt werden.
Da ich ein Fan des "Learning by Doing" bin, habe ich es anhand einer vereinfachten Dummy- _ Tabelle, des Makro-Recorders und ein wenig Recherche selbst schon einmal probiert. Bisher leider ohne Erfolg. Nachfolgend einmal mein Code:
Sub Spalten_kopieren()
Dim i As Integer
Dim cell As Range
i = 1
For Each cell In Tabelle1.Range("A1:J1")
If cell.Value = "1" Then
cell.EntireColumn.Select
' Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next cell
End Sub
Es wird zumindest die letzte Spalte richtig markiert, allerdings auch nur diese. Wenn ich dann den mit dem Recorder aufgezeichneten Befehl zum Einfügen aktiviere, dann werden neue Spalten bis zu einem Laufzeitfehler eingefügt. Dementsprechend also noch nicht optimal ;)
Für ein bisschen Nachhilfe wäre ich Euch sehr dankbar!
Besten Gruß, Jan