Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Aktive Zelle ermitteln

Aktive Zelle ermitteln
12.06.2002 14:38:36
Pascal Rehfeldt
Hallo,

wie kann ich herausfinden welche Zelle gerade markiert ist?
Hintergrund: ich habe ein Makro welches mehrere Selects durchführt, danach soll wieder die Zelle Selektiert werden die vorher auch selektiert war. Also will ich die Koordinaten der Zelle in eine Variable schreiben, meine Selects durchführen und anschliesend wieder die Ursprüngliche Zelle selektieren.

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Aktive Zelle ermitteln
12.06.2002 14:41:30
Hajo
Hallo Pascal

es stand mal schon im Forum "Der Cursur ist kein Hund der überall rumgeführt werden muß."

Auf select und ähnliche Befehle sollte verzichtet werden dann brauchst Du dir die adresse nicht merken.

Zelle = ActiveCell.Address


Gruß Hajo

Re: Aktive Zelle ermitteln
12.06.2002 14:42:36
Michael
hallo Pascal,

Bereich = ActiveCell.Range

Gruß
Michael

Anzeige
Re: Aktive Zelle ermitteln
12.06.2002 14:45:32
Pascal Rehfeldt
Auf selects kann ich hier leider nicht verzichten...

wenn ich es nun so versuche:

Dim Temp_Cell As String
Temp_Cell = ActiveCell.Address
[...]
ActiveSheet.Cells(Temp_Cell).Select

bekomme ich einen Fehler "Typen unverträglich" in der letzten Zeile, muss ich noch etwas beachten?

Anzeige
Re: Aktive Zelle ermitteln
12.06.2002 14:50:24
Hajo
Hallo Pascal

Cells Angaben sind Numerisch Dein Wert ist aber ein String also Range(Temp_Cell).select

Gruß Hajo

Re: Aktive Zelle ermitteln
12.06.2002 14:56:23
Pascal Rehfeldt
Vielen Dank für die prompte Hilfe, mein Problem ist gelöst.
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Aktive Zelle in Excel ermitteln und verwenden


Schritt-für-Schritt-Anleitung

Um die aktive Zelle in Excel mit VBA zu ermitteln und deren Adresse in einer Variablen zu speichern, kannst du folgende Schritte befolgen:

  1. Öffne den VBA-Editor (Alt + F11).

  2. Füge ein neues Modul hinzu (Rechtsklick auf „VBAProject“, dann „Einfügen“ > „Modul“).

  3. Schreibe den folgenden Code:

    Sub AktiveZelleErmitteln()
       Dim Temp_Cell As String
       Temp_Cell = ActiveCell.Address ' Adresse der aktiven Zelle speichern
       MsgBox "Die aktive Zelle ist: " & Temp_Cell ' Ausgabe der aktiven Zelle
    End Sub
  4. Führe das Makro aus (F5) und du erhältst ein Pop-up mit der Adresse der aktiven Zelle.


Häufige Fehler und Lösungen

  • Fehler: Typen unverträglich

    • Wenn du versuchst, die Adresse einer Zelle direkt mit ActiveSheet.Cells(Temp_Cell).Select zu verwenden, kann dieser Fehler auftreten. Verwende stattdessen:
    Range(Temp_Cell).Select
  • Problem bei der Verwendung von Select

    • Versuche, die Select-Methode zu vermeiden, wenn möglich. Stattdessen kannst du direkt auf die Zelle zugreifen, z.B.:
    Dim Wert As Variant
    Wert = ActiveCell.Value ' Wert der aktiven Zelle speichern

Alternative Methoden

Falls du die aktive Zelle ohne VBA auslesen möchtest, kannst du auch eine einfache Excel-Formel verwenden. Zum Beispiel:

=ADRESSE(ZEILE();SPALTE())

Diese Formel gibt die Adresse der aktuell ausgewählten Zelle zurück.


Praktische Beispiele

  1. Wert der aktiven Zelle in eine Variable speichern:

    Dim Wert As Variant
    Wert = ActiveCell.Value ' Wert der aktiven Zelle speichern
    MsgBox "Wert der aktiven Zelle: " & Wert
  2. Die aktive Zelle formatieren:

    ActiveCell.Interior.Color = RGB(255, 255, 0) ' Hintergrundfarbe ändern
  3. Aktive Zelle in einer Nachricht anzeigen:

    MsgBox "Die aktive Zelle ist: " & ActiveCell.Address

Tipps für Profis

  • Verwende With-Anweisungen, um den Code zu optimieren und die Lesbarkeit zu erhöhen:

    With ActiveCell
       .Interior.Color = RGB(255, 0, 0) ' Hintergrundfarbe ändern
       .Font.Bold = True ' Text fett formatieren
    End With
  • Schreibe benutzerdefinierte Funktionen, um die aktive Zelle gezielt zu manipulieren oder ihre Eigenschaften zu überprüfen.

  • Nutze die Application-Objekte, um mehr Informationen über die aktive Zelle zu erhalten, z.B. Application.ActiveCell bietet Zugriff auf verschiedene Eigenschaften.


FAQ: Häufige Fragen

1. Wie kann ich die aktive Zelle in einer Variablen speichern? Du kannst die Adresse der aktiven Zelle mit ActiveCell.Address speichern und ihren Wert mit ActiveCell.Value auslesen.

2. Wie kann ich die aktive Zelle formatieren? Verwende ActiveCell.Interior.Color oder ActiveCell.Font.Bold, um die Formatierung der aktiven Zelle zu ändern.

3. Gibt es eine Möglichkeit, die aktive Zelle ohne VBA zu ermitteln? Ja, du kannst die Formel =ADRESSE(ZEILE();SPALTE()) in eine Zelle eingeben, um die Adresse der aktiven Zelle anzuzeigen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige