ich habe folgendes Makro:
Private Sub CommandButton4_Click()
Dim Antwort
Antwort = MsgBox("Möchten Sie die Daten in der Adressen aufnehmen ? " _
& " ", vbCritical + vbYesNo, _
"Hinweis Adressen-Tabelle, neue Kundenadresse ")
If Antwort = vbNo Then
Exit Sub
Else
Sheets("Adressen").Select
Dim zz As String
zz = 1
Do While Cells(zz, 1) "" ' Start der Schleife 1=Spalte A
zz = zz + 1 ' Schleifenzähler um 1 erhöhen
Loop ' Wendepunkt für Schleife
Cells(zz, 1).Select ' Zelle selektieren 1=in Spalte A anfang
Sheets("Adressen").Cells(ActiveCell.Row, 1) = TextBox1.Text 'Rg-Nummer
Sheets("Adressen").Cells(ActiveCell.Row, 2) = TextBox2.Text 'SBH Nr.
Sheets("Adressen").Cells(ActiveCell.Row, 3) = TextBox3.Text 'Anrede
Sheets("Adressen").Cells(ActiveCell.Row, 4) = TextBox4.Text 'A-Titel
Sheets("Adressen").Cells(ActiveCell.Row, 5) = TextBox5.Text 'Vorname
Sheets("Adressen").Cells(ActiveCell.Row, 6) = TextBox6.Text 'Name
Sheets("Adressen").Cells(ActiveCell.Row, 7) = TextBox7.Text 'NameZusatz
Sheets("Adressen").Cells(ActiveCell.Row, 8) = TextBox8.Text 'Strasse
Sheets("Adressen").Cells(ActiveCell.Row, 9) = TextBox9.Text 'Haus Nr.
Sheets("Adressen").Cells(ActiveCell.Row, 10) = TextBox10.Text 'Land
Sheets("Adressen").Cells(ActiveCell.Row, 11) = TextBox11.Text 'PLZ
Sheets("Adressen").Cells(ActiveCell.Row, 12) = TextBox12.Text 'Ort
Sheets("Adressen").Cells(ActiveCell.Row, 13) = TextBox13.Text 'Telef.-Vorwahl
Sheets("Adressen").Cells(ActiveCell.Row, 14) = TextBox14.Text 'Telefon Nummer
Sheets("Adressen").Cells(ActiveCell.Row, 15) = TextBox15.Text 'Handy Nummer
Sheets("Adressen").Cells(ActiveCell.Row, 16) = TextBox16.Text 'Fax Nummer
Sheets("Adressen").Cells(ActiveCell.Row, 17) = TextBox17.Text 'E-Mail
Sheets("Adressen").Cells(ActiveCell.Row, 18) = Format(TextBox18.Text, ("dd.mm.yyyy")) ' _
Datum angelegt
Label135.Caption = Format(Worksheets("Adressen").Range("A1"), "#,###")
End If
End Sub
damit wird eine neue Adresse an der letzten Stelle angefügt, funktioniert einwandfrei !Ich möchte jetzt aber eine bestehende Adresse, die ich NUR verändern möchte, in der vorhandenen Zeile speichern.
mfg philipp