Verschiedene CB Inhalt in gleiche Spalte
10.02.2006 09:04:11
Volker
ich versuche nach folgendem Befehl Daten aus einer UF in eine Tabelle zu übernehmen. Irgendwo habe ich einen Denkfehler denn ich bekomme es nich hin die Daten in die gleiche Spalte zu setzen. Wenn ich den "Range" Bereich identisch mache, streikt das Programm.
Private Sub CommandButton1_Click()
'Daten in neue Zeile übergeben
Sheets("Eingabe").Select
'Anzahl der Einträge ermitteln
Range("rListeBeginn").Offset(0).Select
Set tbl = ActiveCell.CurrentRegion
anzahl = tbl.Rows.Count - 0
'Neue Einträge hinzufüge
Sheets("Eingabe").Range("C" & anzahl + AnzahlHeader + 2).Value = ComboBox1.Text
Sheets("Eingabe").Range("D" & anzahl + AnzahlHeader + 2).Value = ComboBox2.Text
Sheets("Eingabe").Range("G" & anzahl + AnzahlHeader + 2).Value = ComboBox5.Text
Sheets("Eingabe").Range("E" & anzahl + AnzahlHeader + 2).Value = ComboBox6.Text
Sheets("Eingabe").Range("F" & anzahl + AnzahlHeader + 2).Value = ComboBox7.Text
Sheets("Eingabe").Range("G" & anzahl + AnzahlHeader + 2).Value = ComboBox8.Text
Unload Me
End Sub
Danke
Volker