Das ist ein Mustercode für eine Datei, bei der die Daten (Vorname, Nachname) in Spalte 1 und 2 stehen.
Musst Du etwas modifizieren, dann passt es.
Public vnam, nnam As String
Public ziel As Integer
Public found As Boolean: Rem diese 3 Zeilen in ein MODUL eingeben (für mehr Spalten natürlich mehr variablen in der 1. Zeile)
Private Sub TextBox1_Change(): Rem Name der Textbox, die in die erste Zeile der Tabelle (z.B.den Vornamen) schreibt
vnam = TextBox1.Text
End Sub
Private Sub TextBox2_Change(): Rem Name der Textbox, die in die erste Zeile der Tabelle (z.B.den Vornamen) schreibt
nnam = TextBox2.Text
End Sub
Private Sub CommandButton1_Click(): Rem Damit ist der Button "Fertig" auf der Eingabemaske gemeint
Sheets("Tabelle1").Select: Rem Statt Tabelle1 musst du den Namen der Tabelle mit den Daten einsetzen
ActiveSheet.Cells(ziel, 1) = vnam: ActiveSheet.Cells(ziel, 2) = nnam
Cells(1, 1).Select
UserForm1.Hide: Rem oder wie immer DEIN Formular mit der Eingabemaske heisst
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ziel = Target.Row
found = False
If Sheets("Tabelle1").Cells(ziel, 1) <> "" Then
found = True
UserForm1.TextBox1 = Sheets("Tabelle1").Cells(ziel, 1)
UserForm1.TextBox2 = Sheets("Tabelle1").Cells(ziel, 2)
UserForm1.Show
Exit Sub
Else
UserForm1.TextBox1 = ""
UserForm1.TextBox2 = ""
ziel = 2: rem Suche fängt bei Zelle 2 an
While Sheets("Tabelle1").Cells(ziel, 1) <> ""
ziel = ziel + 1
Wend
End If
UserForm1.Show
End Sub
|