Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
964to968
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
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte gefüllte Zelle im sichtbaren Bereich

Letzte gefüllte Zelle im sichtbaren Bereich
02.04.2008 21:05:00
Klaus
Hallo Forum,
ich komme mit einem Problem nicht weiter:
es soll im Zeilenbereich L10:IV10 die letzte gefüllte Zelle ermittelt werden –
allerdings nur für den sichtbaren Bereich (einige Spalten sind ausgeblendet).
Zusätzliche Schwierigkeit: es soll nicht die Spaltenziffer sondern der
Buchstabe ausgeworfen werden ...
Für Antworten Danke im voraus
Klaus

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

Betreff
Datum
Anwender
Anzeige
AW: Letzte gefüllte Zelle im sichtbaren Bereich
02.04.2008 21:24:00
Erich
Hallo Klaus,
bei der folgenden Prozedur werden ausgeblendete Spalten nicht berücksichtigt,
also wohl genau das, was du möchstest: 

Option Explicit
Sub test()
Dim intC As Integer
intC = Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox SpalteTxt_ausNum(intC)
End Sub
Function SpalteTxt_ausNum(iNr As Integer) As String
SpalteTxt_ausNum = Left(Cells(1, iNr).Address(0, 0), 1 - (iNr > 26) - (iNr > 702))
End Function

Die Funktion kannst du auch unabh. davon verwendet, klappt auch in XL2007.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Letzte gefüllte Zelle im sichtbaren Bereich
02.04.2008 21:41:19
Klaus
Hallo Erich,
eine Super-Lösung – wäre ich nie drauf gekommen!
Vielen Dank und einen schönen Abend nach Kamp-Lintfort ...
Klaus

AW: @Erich
03.04.2008 11:17:00
Peter
Hallo Erich,
wenn die Spalte IV aber belegt ist, meldet dein Makro eine letzte belegte Spalte irgendwo vorher.
Ich glaube, so wäre es besser:
intC = IIf(IsEmpty(Cells(1, Columns.Count)), _
Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count)
Gruß Peter

AW: @Peter
03.04.2008 11:55:44
Erich
Hi Peter,
stimmt natürlich! Das war die geschluderte Kurzversion, die Unfug ausgibt, wenn IV nicht leer ist.
Auch deshalb hatte ich unten im Thread noch eine Version nachgeschoben.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Letzte gefüllte Zelle im sichtbaren Bereich
02.04.2008 21:33:00
Erich
Hallo Klaus,
hier nochmal genauer auf deine Frage zugeschnitten: 

Option Explicit
Sub test()
Dim intC As Integer
If Not IsEmpty(Cells(10, Columns.Count)) Then
intC = Columns.Count
Else
intC = Cells(10, Columns.Count).End(xlToLeft).Column
If intC  26) - (iNr > 702))
End Function

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige