Letzte Spalte eines markierten Bereichs ausgeben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Letzte Spalte eines markierten Bereichs ausgeben
von: Theo Spangenberger
Geschrieben am: 12.05.2015 10:04:56

Hi Liebes Forum,
habe folgendes Problem:
Ich möchte mir den Wert der letzten markierten Spalte ausgeben.
Also zum Beispiel: Ich markiere die Zellen von A1 bis A5.
Jetzt möchte ich einer Variable den Wert 5 zuweißen, also quasi den Spaltenindex, damit ich sie später über Cells(1,5).... ansprechen kann. Der Zeilenindex ist mir egal, den brauch ich nicht.
Vielen Dank Im Vorraus
P.S: Ihr seid ein klasse Forum ;)

Bild

Betrifft: AW: Letzte Spalte eines markierten Bereichs ausgeben
von: Rudi Maintaire
Geschrieben am: 12.05.2015 10:24:52
Hallo,
Ich markiere die Zellen von A1 bis A5.
Das ist aber 1 Spalte und 5 Zeilen.
Wat nu?
Gruß
Rudi

Bild

Betrifft: AW: Letzte Spalte eines markierten Bereichs ausgeben
von: Nepumuk
Geschrieben am: 12.05.2015 10:28:38
Hallo,
bin wie Rudi auch verwirrt. So?

Public Sub Test()
    MsgBox Selection.Column + Selection.Columns.Count - 1
End Sub

Gruß
Nepumuk

Bild

Betrifft: AW: Letzte Spalte eines markierten Bereichs ausgeben
von: Theo Spangenberger
Geschrieben am: 12.05.2015 10:35:53
sorry, sollte A1 bis E1 heißen. Allerdings möchte ich nicht die Anzahl der markierten Zellen sondern die Adresse der letzten Zelle. Also für E1 wäre das die (1,5). Und um diese "5" geht es mir.
Gruß Theo

Bild

Betrifft: siehe Nepumuk. owT
von: Rudi Maintaire
Geschrieben am: 12.05.2015 10:55:54


Bild

Betrifft: AW: Letzte Spalte eines markierten Bereichs ausgeben
von: UweD
Geschrieben am: 12.05.2015 10:34:12
Hallo
hier mal Spalte und Zeile

Sub mark()
    Dim i&, j&
    i = Selection.Columns.Count + Selection.Column - 1 'Spalte
    j = Selection.Rows.Count + Selection.Row - 1 'Zeile
End Sub

Gruß UweD

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Letzte Spalte eines markierten Bereichs ausgeben"