Counter oder Zähler +1
Manfred
gibt es eine Chance bei diesem Makro den aus Tab1 Sp B2.......XX den Wert immer um 1 zu erhöhen ?
Sub letzte_Zelle_kopiere_2()
Dim lngZ As Long, rngM As Range
lngZ = Sheets("Tabelle1").Range("B65536").End(xlUp).Row
If lngZ >= 2 Then
With Sheets("Tabelle2")
Set rngM = .Cells(2, 6).MergeArea
rngM.MergeCells = False
Sheets("Tabelle1").Cells(lngZ, 2).Copy .Cells(2, 6)
rngM.MergeCells = True
End With
End If
End Sub
Mit freundlichen Grüßen
Manfred
Anzeige