Ich kopiere mit diesem Makro Namen aus einer Stamm-Datei in eine Aktuell-Datei.
Klappt gut
Jetzt soll ich bei der Ausführung dieses Makro überprüfen, ob der Name im neuen Tabellenblatt ("Mitglieder Aktuell")c5:c145 bereits vorhanden ist, bevor er kopiert wird.
Sub Stammdaten_kopieren()
Selection.Copy
With Sheets("Mitglieder Aktuell")
Dim Loletzte As Long
If Range("C145") = "" Then
Loletzte = .Range("C145").End(xlUp).Row
Selection.Copy Destination:=.Cells(Loletzte + 1, 3)
Else
MsgBox "keine Zelle mehr frei"
End If
End With
Sheets("Mitglieder Aktuell").Select
End Sub
Gruss Rolf