Diskussionsgruppe: Tabellenkalkulation
Hallo und guten Abend,
ich habe ein Problem damit, einen bestehenden VBA-Code an die jetzigen Bedürfnisse anzupassen, vielleicht kann jemand helfen.
Erklärung:
in einer UserForm werden aus Tabelle "Adressen" die Daten in eine Combobox eingelesen, können ausgewählt werden und werden nach betätigen des CommandButtons "cmd_Auswahl" in die Tabelle "neueDaten" geschrieben. Das funktioniert soweit ganz prima, nur wurden die Datensätze bisher immer in Spalte "A" benötigt, jetzt aber in Spalte "H".
Ich kenn mich mit VBA nur sehr wenig aus und weiß einfach nicht, wie ich den Code abändern muß.
hier der Code des betr. CommandButtons:
Private Sub cmdAuswahl_Click()
Dim TB As Worksheet
Dim lZeile%, i% ´lZeile und i = integer
Set TB = Worksheets("NeueDaten")
If IsEmpty(TB.Cells(1, 1)) Then
lZeile = 1
Else
lZeile = TB.Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
For i = 1 To 8
TB.Cells(lZeile, i) = frmSuchen.Controls("Textbox" & i).Value
Next i
End Sub
bisher hab ich das gelöst indem ich ein zusätzliches Tabellenblatt eingefügt habe in das diese Daten geschrieben werden und dann an die benötigte Stelle kopiert, aber das ist ziemlich aufwändig und fehleranfällig.
Ich hoffe, daß jemand helfen kann und wünsche ein schönes Wochenende - Sira
Von: Sira Datum: 08.12.2006, 20:50
|
|
