Supportnet / Forum / Tabellenkalkulation
Variable in Rows anweisung
Frage
Hallo Leute,
kleines Problem.
Rows("170:65536").Select
Selection.Delete
Löscht alle Zeilen ab 170 bis 65536
ich muss die Zeile 170 aber erst ermitteln.
Diese steht dann in der Variable C
also müsste das ganze lauten
Rows("i:65536).Select
Selection.Delete
Wie müsste ich das formulieren, dass es keine Fehlermeldung gibt?
gruß
morpheus
Antwort 1 von Primut
Hi morpheus,
mein Vorschlag:
Gruß
mein Vorschlag:
Rows(i & ":65536").ClearGruß
Primut
Antwort 2 von morpheus__85
Hallo Primut
super deine Lösung. Vielen Danke
hätte da mal noch eine kleine Frage wegen eines Teils meines Makros ob das so in Ordnung ist.
For t = 2 To i (in i steht ja die Anzahl der Zeilen drin)
If Cells(t, 3).Value And Cells(t, 4).Value And Cells(t, 5).Value And Cells(t, 6).Value = 0 Then
Rows(t).Select
Selection.Delete
Else
End If
Next t
Was sagt ihr?
müsste das Makro so richtig durchlaufen oder hab ich noch nen Fehler drin?
weil es nämlich noch nicht den gewünschten Erfolg bringt.
gruß
morpheus
super deine Lösung. Vielen Danke
hätte da mal noch eine kleine Frage wegen eines Teils meines Makros ob das so in Ordnung ist.
For t = 2 To i (in i steht ja die Anzahl der Zeilen drin)
If Cells(t, 3).Value And Cells(t, 4).Value And Cells(t, 5).Value And Cells(t, 6).Value = 0 Then
Rows(t).Select
Selection.Delete
Else
End If
Next t
Was sagt ihr?
müsste das Makro so richtig durchlaufen oder hab ich noch nen Fehler drin?
weil es nämlich noch nicht den gewünschten Erfolg bringt.
gruß
morpheus
Antwort 3 von M.O.
Hallo morpheus
versuch es mal so:
Gruß
M.O.
versuch es mal so:
For t = 2 To 10
If Cells(t, 3).Value = 0 And Cells(t, 4).Value = 0 And Cells(t, 5).Value = 0 And Cells(t, 6).Value = 0 Then Rows(t).Delete
NextGruß
M.O.
Antwort 4 von M.O.
Hallo morpheus,
natürlich ist dein Code so richtig:
Hatte die Zahlen nur zu Testzwecken drin.
Gruß
M.O.
natürlich ist dein Code so richtig:
For t = 2 To i
If Cells(t, 3).Value = 0 And Cells(t, 4).Value = 0 And Cells(t, 5).Value = 0 And Cells(t, 6).Value = 0 Then Rows(t).Delete
NextHatte die Zahlen nur zu Testzwecken drin.
Gruß
M.O.
Antwort 5 von morpheus__85
Hallo M.O.
Vielen Danke für deine Hilfe.
Hat jetzt alles funktioniert.
Gruß
morpheus
Vielen Danke für deine Hilfe.
Hat jetzt alles funktioniert.
Gruß
morpheus