Daten zurückschreiben mit Änderung
02.11.2005 08:34:41
Andreas
erst einmal einen schönen Guten Morgen
Mit diesem Makro schreibe ich die Veränderungen die ich in meiner UserForm in der TextBox geändert habe in meine Tabelle zurück
Private Sub CommandButton16_click()
'Schaltfläche "Änderung eintragen"
'vor dem speichern wird nachgefragt, ob alles richtig eingetragen ist
Dim mldg, stil, titel, grc
Dim r&
'hier wird Meldung erzeugt ob Daten geändert werden sollen
mldg = "AGH wirklich ändern ?"
stil = vbYesNo + vbCritical + vbDefaultButton2
titel = "Frage ?"
grc = MsgBox(mldg, stil, titel)
If grc = vbYes Then
Else
Exit Sub
End If
'Daten werden zurückgeschrieben mit der Änderung
'Worksheets("AGH").Unprotect "Benschi"
Worksheets("AGH").Activate
If ComboBox12.ListIndex = -1 Then
r = Sheets("AGH").Cells(Rows.Count, 1).End(xlUp).Row + 1
Else
r = ComboBox12.ListIndex + 3
End If
Cells(r, 1) = TextBox93.text 'ID-Nummer
Cells(r, 2) = TextBox90.text 'SteA-Nr
Cells(r, 3) = TextBox103.text 'Nachnahme
Cells(r, 4) = TextBox87.text 'Vornahme
Cells(r, 5) = TextBox85.text 'von:
Cells(r, 6) = TextBox84.text 'bis:
'ComboBox12.Clear
Unload Me
UserForm1.Show
End Sub
Die Tabelle AGH ist so aufgebaut:
A2 bis F2 stehen die Überschriften
ab Zeile 3 stehen darunter die Daten
Nun zu meinem Problem:
Ich möchte dieses Makro so ändern, das nicht mehr r = ComboBox12.ListIndex + 3 ist, sondern
r = TextBox98.ListIndex oder so ähnlich.
Bei mir kommt da die Fehlermeldung "Fehler beim Kombilieren" "Methode oder Datenobjekt nicht gefunden"
Ich habe schon einiges Probiert, aber bei meinen bescheidenen VBA Kenntnissen das einfach nicht auf die Reihe gebracht.
Kann mir jemand da weiterhelfen ?
Danke schon mal im vorraus
Gruß Andreas R.
Anzeige