Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon morpheus__85 vom 25.10.2019, 10:38 Options
Variable in Rows anweisung
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
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 vom 25.10.2019, 10:52 Options
Hi morpheus,
mein Vorschlag:
Gruß
mein Vorschlag:
Rows(i & ":65536").ClearGruß
Primut
Antwort 2 von morpheus__85 vom 25.10.2019, 11:03 Options
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. vom 25.10.2019, 11:15 Options
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. vom 25.10.2019, 11:17 Options
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 vom 25.10.2019, 12:02 Options
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
Ähnliche Themen
Variable in Namensdefinition
ullrichm 03.11.2007 - 62 Hits - 2 Antworten
Code zusammenbasteln
Kathi1 12.12.2007 - 93 Hits - 5 Antworten
Sort
Ala 18.03.2008 - 19 Hits - 3 Antworten
Füllfarben vergleichen
bluecard 02.04.2008 - 18 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
