Ich habe ein Problem und hoffe auf eure Hilfe! Ich möchte per Button drei nebeneinander liegende Zellen(Werte) in der gleichen Tabelle an einen anderen Ort kopieren. In diesem Fall sollen die drei Werte in der Spalte B bis D jeweils in der nächsten leeren Zeile stehen.
Mein Makro!
Range("E3:G3").Select
Selection.Copy
Dim Spalte As Integer 'Dim Spalte%
Spalte = 2 'Spaltennummer: 1 = Spalte a, 2 = Spalte b ...
If IsEmpty(Cells(Cells.Rows.Count, Spalte).End(xlUp)) Then _
GoTo Fehler
Cells(Cells.Rows.Count, Spalte).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Exit Sub
Fehler:
Cells(Cells.Rows.Count, Spalte).End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Was mache ich falsch?
lg Alex