Hallo John
versuchs mal so:
(Dauert aber ne weile bis der code durchgelaufen ist)
Public Sub test()
Dim start As Long
Dim ende As Long
Dim zeile As Long
Dim bereich As Range
start = Application.InputBox(prompt:="Erste Zeile", Type:=1)
ende = Application.InputBox(prompt:="Letzte Zeile", Type:=1)
Set bereich = Rows(start)
For zeile = start To ende Step 5 'jede 5te
Set bereich = Union(bereich, Rows(zeile))
Next
bereich.Select
End Sub
ransi
Um in Excel jede vierte Zeile auszuwählen, kannst du die folgenden Schritte befolgen:
Öffne dein Excel-Dokument und stelle sicher, dass du die Daten in einer Tabelle hast.
Drücke Alt + F11, um den VBA-Editor zu öffnen.
Wähle Einfügen > Modul, um ein neues Modul zu erstellen.
Kopiere und füge den folgenden Code in das Modul ein:
Sub MarkiereJedeVierteZeile()
Dim i As Long
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If i Mod 4 = 0 Then ' Jede vierte Zeile
Rows(i).Select
End If
Next i
End SubSchließe den VBA-Editor und gehe zurück zu Excel.
Drücke Alt + F8, wähle MarkiereJedeVierteZeile und klicke auf Ausführen.
Jetzt solltest du jede vierte Zeile markiert haben.
Problem: Der Code funktioniert nicht.
Problem: Ich kann nur eine Zeile markieren.
Select-Methode korrekt verwendest. Wenn du mehrere Zeilen markieren möchtest, solltest du Union verwenden.Eine einfache Methode, um in Excel jede n-te Zeile auszuwählen, ist die Verwendung der Filterfunktion:
Füge eine Hilfsspalte ein und nummeriere die Zeilen (1, 2, 3, …).
Setze eine Formel ein, um jede n-te Zeile zu kennzeichnen. Beispiel für jede vierte Zeile:
=WENN(REST(A1;4)=0; "Markiere"; "")Filtere nach der Hilfsspalte, um nur die Zeilen anzuzeigen, die du markieren möchtest.
Wenn du beispielsweise jede zehnte Zeile in Excel auswählen möchtest, kannst du den Code wie folgt anpassen:
Sub MarkiereJedeZehnteZeile()
Dim i As Long
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If i Mod 10 = 0 Then ' Jede zehnte Zeile
Rows(i).Select
End If
Next i
End SubFür das Markieren jeder dritten Zeile funktioniert es ähnlich, indem du die Zahl im Modulo-Operator änderst.
Strg + G, um schnell zu den markierten Zeilen zu navigieren.1. Wie kann ich jede zweite Zeile in Excel auswählen?
Du kannst den Modulo-Wert im VBA-Code auf 2 ändern oder die Filtermethode in der Hilfsspalte verwenden.
2. Gibt es eine Möglichkeit, eine bestimmte Zeile zu löschen?
Ja, du kannst eine ähnliche VBA-Methode verwenden, um jede n-te Zeile zu löschen, indem du Rows(i).Delete anstelle von Rows(i).Select verwendest.
3. Wie kann ich die markierten Zeilen kopieren?
Nachdem du die Zeilen markiert hast, kannst du Strg + C drücken, um sie zu kopieren und dann an der gewünschten Stelle mit Strg + V einfügen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen