VBA Adresse der aktiven Zelle ausgeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Frank und Forum,
Beantwortungen dieser Fragen (ohne Anlagen und ohne Screenshots o.ä.) werden künftig vermutlich von ChatBots übernommen. Nachfolgend ein Vorgeschmack auf kommende Zeiten (Antwort von ChatGTP):
---------- schnipp --------
Ja, Sie können die Nummer der aktiven Zeile und die Nummer der aktiven Spalte in Excel mithilfe von VBA auslesen und in Zellen schreiben. Hier ist ein Beispielcode, der die Nummer der aktiven Zeile in Zelle A1 und die Nummer der aktiven Spalte in Zelle A2 schreibt:


Sub ActiveCellAddress()
' Nummer der aktiven Zeile in Zelle A1 schreiben
Range("A1").Value = ActiveCell.Row
' Nummer der aktiven Spalte in Zelle A2 schreiben
Range("A2").Value = ActiveCell.Column
End Sub

Um diesen Code auszuführen, können Sie ihn in das Visual Basic Editor (VBE) einfügen und dann auf "Ausführen" klicken. Alternativ können Sie auch ein Makro aufzeichnen, indem Sie den obigen Code in ein Makro aufnehmen und dann die Tastenkombination für das Makro verwenden, um es auszuführen.
Hinweis: Wenn Sie die aktive Zelle mit bedingter Formatierung formatieren möchten, können Sie die Nummer der aktiven Zeile und Spalte auch direkt in den Bedingungen der bedingten Formatierung verwenden, ohne sie in Zellen schreiben zu müssen. Beispielsweise könnten Sie die folgende Bedingung verwenden, um die aktive Zelle grün einzufärben, wenn sie sich in Zeile 1 befindet:


=ZEILE(AKTIVEZELLE())=1

Ich hoffe, dass diese Informationen hilfreich sind!
--------- schnapp --------
Gruß hans

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lngCnt As Long lngCnt = InStr(2, Target.Address, "$") - 1 Range("A1").Value = Target.Row 'Range("A2").Value = Target.Column Range("A2").Value = WorksheetFunction.Substitute(Left(Target.Address, Len(Target.Address) - (Len(Target.Address) - lngCnt)), "$", "") End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns(2).Resize(, 3).Interior.ColorIndex = 0 Cells(Target.Row, 2).Resize(, 3).Interior.ColorIndex = 4 * Abs(((Target.Column + 1) \ 3 = 1)) End Sub

Beliebteste Forumthreads (12 Monate)

VBA Adresse der aktiven Zelle ausgeben

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Adresse der aktiven Zelle ausgeben

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread