Hallo Leute,
Ich habe ein Problem, nach mehreren verschiedene Versuche komme ich nicht weiter
Ich habe keine Makro Datei erstellt deswegen hier der Quellcode.
Folgendes Problem: Ich möchte von Spalte A & B etwas kopieren und in allen Zeilen von Spalte A & B einfügen in der Größe von der Anfangszeile/Endzeile Spalte C haben
Da ich dann eine Ebene Liste erstellen kann.
Aktuelle Lage: Seht ihr wo ich stehe.
Ziel Lage: so soll es aussehen nach ein Button klick
ActiveWorkbook.Worksheets("Import").Select
Dim LR%, Myrange As Range
LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
Set Myrange = Range("A1:A" & LR).SpecialCells(xlCellTypeBlanks) 'nur Leerzellen
Myrange.Formula = "!0?"
Range("A3:B3").Select
Range(Selection, Selection.End(xlDown)).Copy
ActiveWorkbook.Worksheets("Tabelle2").Select
Range("C5").PasteSpecial
"Hier müsste Wahrscheinlich der Fehlende Code eingefügt werden"
Range("C5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="!0?", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Datei: https://www.herber.de/bbs/user/130479.xlsx
MfG
Time