spalte = activeCell.column
Das Ergebnis ist zum Bsp. 4 für die Spalte D.
Mit welchen Befehl kann ich als Ergebnis "D" bekommen und nicht 4.
Danke im Voraus
Manuela
Das Ergebnis ist zum Bsp. 4 für die Spalte D.
Mit welchen Befehl kann ich als Ergebnis "D" bekommen und nicht 4.
Danke im Voraus
Manuela
für die Spalten A bis Z:
Aber wozu soll das gut sein, man kann doch i.d.R. mit dem Wert "4" weiterarbeiten.
Gruß
Martin Beck
Danke !!!!
Danke !!!!
Öffne Excel und aktiviere das Arbeitsblatt, in dem Du die Spalte auslesen möchtest.
Öffne den VBA-Editor:
ALT + F11
.Füge ein neues Modul hinzu:
Einfügen
> Modul
.Gib den folgenden Code ein, um die Spaltennummer zu ermitteln und den Buchstaben der Spalte auszugeben:
Sub SpalteAuslesen()
Dim spalte As Integer
Dim spaltenBuchstabe As String
spalte = ActiveCell.Column 'Ermittelt die Spaltennummer
spaltenBuchstabe = Split(Cells(1, spalte).Address, "$")(1) 'Ermittelt den Buchstaben
MsgBox "Die aktive Spalte ist: " & spaltenBuchstabe
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Markiere eine Zelle in der gewünschten Spalte und führe das Makro aus:
ALT + F8
, wähle SpalteAuslesen
und klicke auf Ausführen
.Fehler: "Komponente nicht gefunden"
Fehler: "Zugriff verweigert"
Eine alternative Methode, um die Spaltennummer zu ermitteln, besteht darin, die Formel =COLUMN()
direkt in eine Zelle einzugeben. Diese gibt die Spaltennummer der Zelle zurück, in der die Formel eingegeben wurde. Um den Buchstaben der Spalte zu erhalten, kannst Du die Funktion ADDRESS()
in Kombination mit COLUMN()
verwenden:
=SUBSTITUTE(ADDRESS(1, COLUMN(), 4), "1", "")
Diese Formel gibt den Buchstaben der aktuellen Spalte aus.
Buchstaben der Spalte auslesen und verwenden: Wenn Du in einer VBA-Prozedur den Buchstaben der Spalte benötigst, kannst Du den oben angegebenen Code verwenden, um den Buchstaben für weitere Berechnungen oder Bedingungen zu nutzen.
Spaltennummer für dynamische Bereiche: Nutze die ermittelte Spaltennummer, um dynamische Bereiche in Formeln zu erstellen:
Dim Bereich As Range
Set Bereich = Range(Cells(1, spalte), Cells(10, spalte)) 'Dynamischer Bereich von A1 bis A10
Verwende den With
Block: Um den Code lesbarer zu gestalten, kannst Du With
verwenden, wenn Du mehrere Eigenschaften eines Objekts gleichzeitig ansprechen möchtest.
With ActiveCell
MsgBox "Spaltenbuchstabe: " & Split(.Address, "$")(1)
End With
Optimierung durch Fehlerbehandlung: Implementiere Fehlerbehandlung in Deinem VBA-Code, um unerwartete Fehler abzufangen und eine benutzerfreundliche Meldung anzuzeigen.
1. Wie kann ich die Spaltennummer in einer Formel verwenden?
Du kannst die Spaltennummer direkt in den Formeln verwenden, indem Du die Funktion COLUMN()
nutzt, um dynamische Berechnungen durchzuführen.
2. Wie ermittele ich die Spaltennummer in einer anderen Excel-Version?
Die beschriebenen Methoden funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2010, 2013, 2016 und 2019. Achte darauf, dass Du die Makrofunktionen in den Einstellungen aktivierst.
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