ich möchte von einer Eingabeoberfläche Werte in eine große Tabelle einlesen (viele Spalten). Es werden immer unterschiedliche Spalten ausgefüllt, also einmal Spalte B, dann mal Spalte C & D usw.
Dazu habe ich folgendes Formular erstellt:
Private Sub CommandButton3_Click() ' Übernehmen
Dim erste_freie_zeile As Integer
erste_freie_zeile = Sheets("daten").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Sheets("Daten").Cells(erste_freie_zeile, 91) = TextBox1.Text
Sheets("Daten").Cells(erste_freie_zeile, 92) = TextBox2.Text
Sheets("Daten").Cells(erste_freie_zeile, 13) = ComboBox1.Text
Sheets("Daten").Cells(erste_freie_zeile, 10) = ComboBox2.Text
Unload Me
End Sub
Ich bekomme in aber immer bei
erste_freie_zeile = Sheets("daten").UsedRange.SpecialCells(xlCellTypeLastCell).Row
den Lauffehler 6 - Überlauf.
Habe auch aus "As Integer" auch schon "As Long" gemacht, aber dann passiert gar nichts mehr...
Wäre euch für eure Hilfe dankbar =)
Grüße
Larissa