habe eine kleine frage.
Dim rnge As Range
Dim Spalte As Variant
Spalte = Application.InputBox( _
prompt:="Bitte Spaltenzahl angeben:", _
Default:=2, _
Type:=1)
If Spalte = "" Then Exit Sub
Set rnge = Cells(Rows.Count, CInt(vCol)).End(xlUp)
If ActiveCell.EntireColumn.Cells(1, 1) = "Auftr. Nr.:" Then
Range(ActiveCell, ActiveCell.Offset(0, -1)).Copy
Else
Range(ActiveCell, ActiveCell.Offset(0, 1)).Copy
End If
ActiveSheet.Paste destination:=rnge
If ActiveCell.EntireColumn.Cells(1, 1) = "Auftr. Nr.:" Then
Range(ActiveCell, ActiveCell.Offset(0, -1)).Select
Else
Range(ActiveCell, ActiveCell.Offset(0, 1)).Select
End If
Selection.Delete Shift:=xlUp
End Sub
dieses makro funktioniert soweit ganz gut allerdings soll das nicht bei "Set rnge = Cells blablabla" in eine der ersten drei zeilen wechseln. Wenn die zellen darunter voll sind ist dass kein problem aber wenn nicht werden immer meine formeln in zeile 3 überschrieben.
Vieleicht hat ja einer von euch eine idee für mich
Danke
Steffi