Überlauf
02.02.2023 11:24:34
Antonio
Private Sub UserForm_Initialize() TextBox21.SetFocus Dim rows Dim i As Integer, x As Integer 'Listboxen füllen ohne leerezeilen 'Dim sh As Worksheet ''Set sh = Sheets("Neuer_Song").UsedRange.rows.Count Worksheets("Neuer_Song").Activate 'ListBox7.ColumnCount = 1 '2 = Anzahl Spalten rows = ActiveSheet.UsedRange.rows.Count For i = 24 To rows 'If ActiveSheet.Cells(i, 2) > "" Then 'ListBox7.AddItem ActiveSheet.Cells(i, 2) '2 = Spalte B 'rows = rows + 1 MsgBox rows 'End If NextIch versuche seit einer Stunde diesen Code zum Laufen zu bringen.
wenn ich die For Schleife raus nehme, die Msg gibt mir die zahl 500146 raus
obwohl das Blatt leer ist bis auf 200 zeilen.
Und Fehler 6 Überlauf
Bitte ein Wenig Hilfe
LG Antonio