ich möchte mit VBA eine Zelle in Zeile 3 über eine Findkunktion ansprechen und eine Spalte links einfügen!
Über die gleiche Findfunktion soll die Spalte links neben der neueingefügten Spalte kopiert und in die neueingefügte Spalte eingefügt werden!
Zum ansprechen der Spalte kann ich eine Range- Ausdruck nicht verwenden, weil in Zukunft die Spalten verschoben werden sollen
Doch weil die Überschrift-Zellen in Zeile2 verbunden sind, funktioniert es nicht!
Welche Abhilfe gibt es!?
Danke
Gruß
NoPa
Leider muss die Prozedur hier schreiben, da ich z.z. keine Datei hoch landen kann.
Sub einfügen()
Dim Eingabe
Eingabe = "Hallo"
'Mit Findfunktion ein Zelle ansprechen
Range("3:3").Find(Eingabe).Activate
'hier eine neue Saplete einfügen
ActiveCell.EntireColumn.Insert
'die Spalte mit "Hi" kopieren
Range("3:3").Find(Eingabe).Offset(0, -2).Activate
ActiveCell.EntireColumn.Select 'und hier wir der ganze Bereich der Verbundenen Zellen markiert
Selection.Copy 'aber das will ich nicht!
Range("3:3").Find(Eingabe).Offset(0, -1).Activate
ActiveCell.EntireColumn.Select
'und das einfügen funktioniert auch nicht so
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub