Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 23:37:20
Datenverbindung automatisiert aktualisieren
08.05.2024 21:22:24
In vorhandener Formel Jahreszahl mit einbeziehen
08.05.2024 21:15:37
Koordinaten im XY-Diagramm per Cursor ändern.
08.05.2024 19:10:09
doppelte Zeile gem. mehrerer Bedingungen löschen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1860to1864
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
1860to1864
1860to1864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

EXCEL-VBA

EXCEL-VBA
16.12.2021 11:53:18
Richard
Hallo liebe EXEL-VBA Freunde,
wie kann ich die Erste und Letzte Zeile bzw. Spalte feststellen die eine Anwender markiert hat.
Mit freundlichen Grüßen
Richard

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: EXCEL-VBA
16.12.2021 12:01:57
{Boris}
Hi,
Ansatz für eine einfache Selektion:

Sub til()
Dim C As Range
Set C = Selection
Debug.Print C.Column 'erste Spalte
Debug.Print C.Column + C.Columns.Count - 1 'letzte Spalte
Debug.Print C.Row 'erste Zeile
Debug.Print C.Row + C.Rows.Count - 1 'letzte Zeile
End Sub
VG, Boris
AW: EXCEL-VBA
16.12.2021 12:03:09
Peter
Wenn nur ein Bereich selektiert war...
Ich nehme unten einfach den ersten selektierten Bereich - sonst musst du unterscheiden. Abfragen mit 

If Selection.Areas.Count > 1 Then
1. Spalte Bereich:

Selection.Column
Letzte Spalte Bereich:

Selection.Column + Selection.Columns.Count - 1

Anzeige
AW: EXCEL-VBA
16.12.2021 12:18:15
GerdL
Moin,
"sonst"

Sub a()
MsgBox Selection.Cells(1).Address
MsgBox Selection.Cells(1).Row
MsgBox Selection.Cells(1).Column
End Sub
Sub b()
With Selection
MsgBox .Areas(.Areas.Count).Cells(.Areas(.Areas.Count).Count).Address
MsgBox .Areas(.Areas.Count).Cells(.Areas(.Areas.Count).Count).Row
MsgBox .Areas(.Areas.Count).Cells(.Areas(.Areas.Count).Count).Column
End With
End Sub
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige