Damals war die Frage : "ich habe eine Tabelle in der A oder B eine Nummer steht.
Nun möchte ich per Makro in die erste Zeile in der in A und B nichts steht was reinschreiben. " Das funktioniert prima.
Muss/will das nun erweitern. Es soll erst in den beiden Spalten A und B geschaut werden ob "Nummer" vorhanden ist. Wenn ja sollen die Daten ( Anrede, Vorname, Nachname ... ) aktuallisiert werden.
Dim Nummer As String
Dim Anrede As String
Dim Vorname As String
Dim Nachname As String
Dim Strasse As String
Dim PLZ As String
Dim Ort As String
Dim lngLast(0 To 2) As Long
Set worksKunden = Workbooks("Kunden.xls").Worksheets("Daten")
Nummer = Range("Nummer")
Anrede = Range("Anrede")
Vorname = Range("Vorname")
Nachname = Range("Nachname")
With worksKunden
'erste freie Zeile für jede Spalte ermitteln
lngLast(1) = .Cells(Rows.Count, "A").End(xlUp).Row + 1
lngLast(2) = .Cells(Rows.Count, "B").End(xlUp).Row + 1
'maximale Zeile ermitteln
lngLast(0) = Application.WorksheetFunction.Max(lngLast(1), lngLast(2))
' Eintragen
.Range("A" & lngLast(0)) = "Nummer"
'.Range("B" & lngLast(0)) = LEER
.Range("C" & lngLast(0)) = "Anrede"
.Range("D" & lngLast(0)) = "Name"
.Range("E" & lngLast(0)) = "Vorname"
' Speichern
ActiveWorkbook.Save
End With
Kann mir jemand weiterhelfen?Liebe Grüße TObi