Sub BeispielAktiveZelle()
Dim varWert As Variant
varWert = ActiveCell.Value ' Wert der aktiven Zelle in eine Variable einlesen
' Beispielhafte Ausgabe
MsgBox "Aktive Zelle ist: " & ActiveCell.Address & vbCrLf & _
"Wert in aktiver Zelle ist: " & varWert, vbInformation
End Sub
Bei Rückfragen einfach nochmal melden.
Gruß
Andreas
Um die aktive Zelle in einem Excel VBA-Modul zu ermitteln, kannst du die ActiveCell-Eigenschaft verwenden. Hier sind die Schritte:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf einen Ordner im Projektbereich klickst und "Einfügen" > "Modul" wählst.
Schreibe den folgenden Code in das Modul:
Sub BeispielAktiveZelle()
Dim varWert As Variant
varWert = ActiveCell.Value ' Wert der aktiven Zelle in eine Variable einlesen
MsgBox "Aktive Zelle ist: " & ActiveCell.Address & vbCrLf & _
"Wert in aktiver Zelle ist: " & varWert, vbInformation
End SubSchließe den VBA-Editor und gehe zurück zu Excel.
Wähle eine Zelle aus und führe das Makro aus, um die Informationen der aktiven Zelle anzuzeigen.
Fehler: "Objektvariable oder With-Blockvariable nicht gesetzt"
ActiveCell zu einem Fehler.Problem: Das Makro funktioniert nicht wie erwartet
Neben der Verwendung von ActiveCell kannst du auch die Selection-Eigenschaft verwenden, um die aktuell ausgewählte Zelle zu ermitteln. Hier ist ein Beispiel:
Sub BeispielAuswahl()
Dim varWert As Variant
varWert = Selection.Value ' Wert der ausgewählten Zelle in eine Variable einlesen
MsgBox "Ausgewählte Zelle ist: " & Selection.Address & vbCrLf & _
"Wert in ausgewählter Zelle ist: " & varWert, vbInformation
End SubDiese Methode ist nützlich, wenn mehrere Zellen ausgewählt sind und du die Informationen der ersten Zelle auslesen möchtest.
Hier sind zwei praktische Beispiele, wie du die aktive Zelle in VBA ermitteln und verwenden kannst:
Wert der aktiven Zelle in eine andere Zelle kopieren:
Sub KopiereAktivenWert()
Cells(1, 1).Value = ActiveCell.Value ' Kopiert den Wert der aktiven Zelle in A1
End SubAktive Zelle farblich hervorheben:
Sub HebeAktiveZelleHervor()
ActiveCell.Interior.Color = RGB(255, 255, 0) ' Hebt die aktive Zelle gelb hervor
End SubActiveCell-Eigenschaft in Kombination mit anderen Excel-Funktionen, um komplexere Makros zu erstellen.1. Wie kann ich die Adresse der aktiven Zelle in eine Variable speichern?
Du kannst die Adresse der aktiven Zelle wie folgt speichern:
Dim adresse As String
adresse = ActiveCell.Address2. Kann ich die aktive Zelle auch in anderen Excel-Versionen ermitteln?
Ja, die Verwendung von ActiveCell funktioniert in allen modernen Excel-Versionen, einschließlich Excel 2010, 2013, 2016, 2019 und Excel für Microsoft 365.
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