ich bin Excel-VBA-Anfänger und habe folgendes Problem, wo ihr mir vielleicht helfen könnt. Ich möchte eine Kunden-Karte erstellen, wo ich mittels Sverweis sämtliche Daten (qualitaive Daten, z.B. erhaltene Prämie) aus andere Dateien ziehen kann. Als Suchkriterien dient mir die Vermittlernummer im Feld A1 der Kundenkarte. Gleichzeitig soll aber per Makro die Möglichkeit bestehen ein Text einzugeben. Auf dieser Kundekarte soll dann per Textbox ein Text eingegeben werden, in andere Tabelle gespeichert und per Sverweis wie die üblichen Daten dann in dieser Kundenkarte erscheinen.
Als Textbox habe ich mir folgendes Makros angeschaut.
http://www.excelwelt.de/Excel/UserFormDaten_eingeben.xls
Die Werte können dann super auf die andere Tabelle mit einer Ergänzung übertragen werden. Ich habe bis jetzt leider nur eine feste Angabe, wo es eingetragen werden soll. Es sollt aber geprüft werden(umgekehrte Sverweis :-) ) -> also Feld A1 der Kundenkarte (=Vermittlernummer) mit Werten der Spalte A andere Tabelle und dann in die korrekte Zeile mit der gesuchten Vermittlernummer in Spalte B den Text eingeben.
Private Sub CommandButton1_Click()
z = 1
Do While Cells(z, 1) ""
z = z + 1
Loop
Cells(z, 1) = Me.TextBox1
Cells(z, 2) = Me.TextBox2
Cells(z, 3) = Me.TextBox3
Cells(z, 4) = Me.TextBox4
Cells(z, 5) = Me.TextBox5
Cells(z, 6) = Me.TextBox6
End Sub
Private Sub CommandButton2_Click()
ActiveWorkbook.SaveAs FileName:="Testdatei.xls"
ActiveWorkbook.Close
End Sub
Private Sub CommandButton3_Click()
we = Me.ScrollBar1.Value
Me.TextBox19 = we
Cells(we, 1) = Me.TextBox7
Cells(we, 2) = Me.TextBox8
Cells(we, 3) = Me.TextBox9
Cells(we, 4) = Me.TextBox10
Cells(we, 5) = Me.TextBox11
Cells(we, 6) = Me.TextBox12
End Sub
Private Sub Frame1_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub ScrollBar1_Change()
we = Me.ScrollBar1.Value
Me.TextBox19 = we
End Sub
Private Sub TextBox19_Change()
wee = Me.TextBox19
Me.TextBox7 = Cells(wee, 1)
Me.TextBox8 = Cells(wee, 2)
Me.TextBox9 = Cells(wee, 3)
Me.TextBox10 = Cells(wee, 4)
Me.TextBox11 = Cells(wee, 5)
Me.TextBox12 = Cells(wee, 6)
End Sub
Private Sub TextBox7_Change()
Sheets("Textdaten").Cells(2, 1) = TextBox7
End Sub
Private Sub TextBox8_Change()
End Sub
Private Sub UserForm_Click()
z = 1
Do While Cells(z, 1) ""
z = z + 1
Loop
Me.TextBox13 = Cells(z - 1, 1)
Me.TextBox14 = Cells(z - 1, 2)
Me.TextBox15 = Cells(z - 1, 3)
Me.TextBox16 = Cells(z - 1, 4)
Me.TextBox17 = Cells(z - 1, 5)
Me.TextBox18 = Cells(z - 1, 6)
End Sub
Im Bild sehr ihr, dass das Makro bereits etwas angepasst ist. Der Code ist aber der kopierte.Danke und Grüsse
Helge