Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzten Spaltenbuchstaben ermitteln

Letzten Spaltenbuchstaben ermitteln
17.06.2016 20:13:43
Burghard
Hallo,
ich brauche für ein Makro Hilfe. Ich habe darin u.a. diese Zeile:
...
letztezeile = ActiveSheet.Cells(65536, 1).End(xlUp).Row
Damit ermittle ich die letzte mit einem Wert gefüllte Zelle in Spalte A, z.B. "13" (Zellrahmen bleiben bei der Auswertung unberücksichtigt).
...
Ich brauche jetzt nur den Buchstaben der letzten Spalte in einer Variablen, also
letztespalte = ?
Der Code "Range("A1").SpecialCells(xlCellTypeLastCell).Address" hilft mir nicht weiter, weil Zellrahmen bei der Auswertung mit berücksichtigt werden, es käme also z.B. "17" (statt "13") heraus.
Ich möchte im Makro die Variablen nachfolgend zusammensetzen/weiterverarbeiten, hier testweise Anzeige mittels MsgBox:
MsgBox "A" & letztezeile & ":" & letztespalte & letztezeile
Hilfe wäre nett.
Grüße
Burghard

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzten Spaltenbuchstaben ermitteln
17.06.2016 20:28:27
Nepumuk
Hallo,
ein Spaltenbuchstabe ist nicht notwendig.
Public Sub Test()
    Dim objCell As Range
    Dim lngLastUsedRow As Long
    Dim lngLastUsedColumn As Long
    With Tabelle1
        Set objCell = .Cells.Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, _
            SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
        lngLastUsedColumn = objCell.Column
        Set objCell = .Cells.Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
        lngLastUsedRow = objCell.Row
        MsgBox .Range(.Cells(1, 1), .Cells(lngLastUsedRow, lngLastUsedColumn)).Address
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: Letzten Spaltenbuchstaben ermitteln
17.06.2016 23:52:06
Burghard
Hallo Nepumuk,
vielen Dank für Deine aufwändige Lösung! Das passt!
Grüße
Burghard

AW: Letzten Spaltenbuchstaben ermitteln
17.06.2016 20:28:28
Nepumuk
Hallo,
ein Spaltenbuchstabe ist nicht notwendig.
Public Sub Test()
    Dim objCell As Range
    Dim lngLastUsedRow As Long
    Dim lngLastUsedColumn As Long
    With Tabelle1
        Set objCell = .Cells.Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, _
            SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
        lngLastUsedColumn = objCell.Column
        Set objCell = .Cells.Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
        lngLastUsedRow = objCell.Row
        MsgBox .Range(.Cells(1, 1), .Cells(lngLastUsedRow, lngLastUsedColumn)).Address
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: Letzten Spaltenbuchstaben ermitteln
17.06.2016 21:03:54
snb 

Sub M_snb()
msgbox sheet1.cells(1).currentregion.rows.count
msgbox sheet1.cells(1).currentregion.columns.count
sn=sheet1.cells(1).currentregion
msgbox ubound(sn)
msgbox ubound(sn,2)
End Sub

AW: Letzten Spaltenbuchstaben ermitteln
17.06.2016 23:54:00
Burghard
Hallo snb,
vielen Dank für deine Lösung und die Mühe! Leider kommt meine alte Excel-Version (Excel 2000) nicht damit zurecht. Ich konnte aber Nepomuks Lösung nehmen. Nochmals danke!
Grüße
Burghard

AW: Letzten Spaltenbuchstaben ermitteln
18.06.2016 14:16:39
snb
Das hat nichts (!!) mit Excel 2000 zu tun. Das funktioniert auch in Excel 95.
Du muss evt. nur 'sheet1' anpassen (z.b. Tabelle1, oder sheets(1) )

Anzeige
setzt aber voraus,
18.06.2016 14:32:28
Michael
snb,
daß die Tabelle (so ca.) ab A1 gefüllt ist, sonst ist range("A1").currentregion eben auch nur A1
Schöne Grüße,
Michael

AW: Letzten Spaltenbuchstaben ermitteln
17.06.2016 21:50:32
Alen
Hallo Burghard,
mit die Variante bin ich an meisten zufrieden:
Dim DeineZeile As Integer
DeineZeile = 4 'hier deine  Zeilenummer eingeben in welcher du suchen möchtest
i=Cells(DeineZeile,Columns.Count).End(xlUp).column
SG
Alen

AW: Letzten Spaltenbuchstaben ermitteln
17.06.2016 23:55:06
Burghard
Hallo Alen,
vielen Dank für Deine Hilfe und den Lösungsansatz. :-)
Grüße
Burghard

102 Forumthreads zu ähnlichen Themen

VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Anzeige
Erste freie Zelle in letzter Spalte ermitteln
Jonathan

Hallo zusammen,
ich stehe wieder einmal vor einem Problem.
Ich möchte in der letzten Spalte (variabel) die erste freie Zelle ermitteln.
Ich bekomme den Code hierfür einfach nicht hin. Könnt ihr mir hier weiterhelfen?
Vielen Dank schon mal.
Gruß
Jonathan
03.06.2009 11:04:40
Thread-ID: 1078815
5 Beiträge
nach @ Buchstaben und Zeichen in Spalte daneben
Thomas

Hallo Forum!
Ich hab in Spalte D viele verschiedene E-Mailadressen und möchte jeweils alles was nach dem @ kommt in die Spalte E daneben hineinkopieren. Die Teilformel nutzt mir ja nicht viel wiel die Zeichen und Buchstaben vor dem @ immer unterschiedlich sind.
Viellecht kann mir wer he...
24.06.2009 09:22:34
Thread-ID: 1084002
2 Beiträge
Anzeige
spaltenangabe in buchstaben
peter

hallo excels,
habe folgendes macro in diesem forum gefunden,angepasst und als add-inn gespeichert.klappt auch super.
bei abfrage nach der spalte möchte ich aber den spaltenBUCHSTABEN abfragen.bei mir klappt das nur mit der spaltenzahl.
sieht da jemand eine lösung?

gruss
peter...
03.05.2002 09:41:26
Thread-ID: 118104
6 Beiträge
UsedRange Spalte Rückgabe als Buchstabe
Burghard

Hallo,
habe ein kleines Problem:
Bei i = ActiveSheet.UsedRange.Columns.Count ist das Ergebnis zum Beispiel = 4
Gibt es die Möglichkeit statt "4" auch "D" als Variable rückgeben zu lassen?
Schönen Gruß
Burghard
11.04.2011 16:58:16
Thread-ID: 1209909
10 Beiträge
letzte Spalte ermitteln
Steph@n

Hallo,möchte die letzte belegte Spalte in einem Sheet ermitteln. Wollte folgendes Coding benutzen. Leider funktioniert es nicht!intNr = Cells(1, Columns.Count).End(xlRight).ColumnWas ist falsch? Wer kann mir helfen?Gruss Stephan
16.05.2002 16:11:33
Thread-ID: 121417
5 Beiträge
VBA - letzte Zeile ermitteln
WalterK

Hallo,
für die letzte belegte Zeile in Spalte D habe ich folgende Codezeile gefunden:
Zeletzte = Cells(Rows.Count, 4).End(xlUp).Row
Leider werden hier auch die Formelergebnisse "" mitberücksichtigt.
Wie müßte die Codezeile lauten, wenn für die Ermittlung der letzten belegten Zei...
09.12.2011 11:55:16
Thread-ID: 1241383
6 Beiträge
Suchen und Ausgeben in gleicher Spalte
Sebastian

Guten Tag,
ich habe eine Artikelliste die nach mehreren Werten durchsucht werden muss. Der gefundene Wert soll dann ausgegeben werden.
Beispiel Suchbegriffe: rot,grün,braun,lila,weiß,rosa/weiß,blau / weiß,kiwi etc.
Daten stehen in den Spalten A bis C
In D soll der Wert angezeigt...
25.02.2012 15:13:53
Thread-ID: 1252455
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
5
4
1
2
5
9
4
5
5
1
5
12
2
11
7
23
3
6
10
4
2
5
6
3