wenn a:a nicht leer dann "|" sonst nichts
17.07.2005 00:30:40
mehmet
habe folgenden makro aufgezeichnet
Private Sub cc_ZeichenSpalteEinfügen()
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
ActiveCell.FormulaR1C1 = "|"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B19"), Type:=xlFillDefault
Range("B1:B19").Select
Columns("B:B").EntireColumn.AutoFit
Columns("B:B").Select
Selection.Copy
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
Application.CutCopyMode = False
Range("A1").Select
End Sub
kann diesen makro so ändern,
so das der eintrag "|" (runter ziehen) bis in spalte a
was eingetragen ist
dank und gruss
mehmet
Anzeige