Sub test2()
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 6)).Select
End Sub
Sub test2()
LetzteZeile = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = 1 To LetzteZeile
With ActiveSheet
If .Range("C" & i).Value > "" Then
s = s & "B" & i & ":F" & i & ","
End If
End With
Next
ActiveSheet.Range(Left(s, Len(s) - 1)).Select
End Sub
Um in Excel die aktive Zeile und die Spalten B bis F zu markieren, kannst du ein VBA-Makro verwenden. Folge diesen Schritten:
Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Einfügen eines neuen Moduls: Klicke im Menü auf Einfügen und dann auf Modul.
Code einfügen: Kopiere und füge den folgenden Code in das Modul ein:
Sub AktiveZeileMarkieren()
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 6)).Select
End SubMakro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Platziere den Cursor in der gewünschten Zeile und führe das Makro über Entwicklertools > Makros aus.
Wenn du mehrere Zeilen markieren möchtest, in denen eine bestimmte Spalte (z.B. C) nicht leer ist, kannst du diesen Code verwenden:
Sub MehrereZeilenMarkieren()
Dim LetzteZeile As Long
Dim i As Long
Dim s As String
LetzteZeile = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = 1 To LetzteZeile
With ActiveSheet
If .Range("C" & i).Value <> "" Then
s = s & "B" & i & ":F" & i & ","
End If
End With
Next i
ActiveSheet.Range(Left(s, Len(s) - 1)).Select
End SubFalls du kein VBA verwenden möchtest, kannst du auch die bedingte Formatierung nutzen, um die aktive Zeile hervorzuheben:
Start > Bedingte Formatierung > Neue Regel.Formel zur Ermittlung der zu formatierenden Zellen verwenden und gebe folgende Formel ein:
=ZEILE()=ZELLE("Zeile")OK.Cells änderst.With-Anweisung, um den Code effizienter zu gestalten.Bedingte Formatierung, um visuelle Hinweise auf die aktive Zeile zu erhalten, ohne VBA nutzen zu müssen.1. Wie kann ich das Makro schneller ausführen?
Du kannst eine Tastenkombination zuweisen, indem du im Makro-Fenster auf Optionen klickst und eine Tastenkombination eingibst.
2. Kann ich das Makro so anpassen, dass es auch andere Spalten umfasst?
Ja, ändere einfach die Zahlen in Cells(ActiveCell.Row, 2) und Cells(ActiveCell.Row, 6) auf die von dir gewünschten Spalten.
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