Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Rangeadressen

Forumthread: Rangeadressen

Rangeadressen
30.09.2016 11:16:29
Rolf
Hallo und einen schönen Tag,
mit BS = ActiveWindow.RangeSelection.address
bekomme ich zB. diese Adressen geliefert:
$C$19:$C$23
$AC$27:$C$123
usw.
Gibt es einen einfachen Weg aus diesen Angaben die Zeileneinträge 19,23 und 27,123
in A1:A2 und B1:B2 zu schreiben?
Gruß an alle
Rolf
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Rangeadressen
30.09.2016 11:42:19
UweD
Hallo
Vorraussetzung, es sind 2 getrennte Bereiche markiert. (das kann man natürlich erst noch prüfen)
Sub sdsds()
    Dim BS, Arr
    BS = ActiveWindow.RangeSelection.Address
    Arr = Split(BS, "$")
    Range("A1") = Replace(Arr(2), ":", "")
    Range("B1") = Replace(Arr(4), ",", "")
    Range("A2") = Replace(Arr(6), ":", "")
    Range("B2") = Arr(8)
End Sub

LG UweD
Anzeige
AW: Rangeadressen
30.09.2016 11:53:20
Rolf
Hallo Uwe,
danke für die schnelle Antwort.
Habe deinen Vorschlag bereits getestet - passt wunderbar!
Herzliche Grüße Rolf
AW: Rangeadressen
30.09.2016 12:04:15
UweD
inkl. Prüfung.
Sub sdsds()
    Dim BS, Arr, Anz As Integer
    BS = ActiveWindow.RangeSelection.Address
    Anz = Len(BS) - Len(Replace(BS, "$", ""))
    Arr = Split(BS, "$")
    If Anz = 4 Or Anz = 8 Then
        Range("A1") = Replace(Arr(2), ":", "")
        Range("B1") = Replace(Arr(4), ",", "")
    End If
    If Anz = 8 Then
        Range("A2") = Replace(Arr(6), ":", "")
        Range("B2") = Arr(8)
    End If
    If Anz > 8 Then
            MsgBox "Mehr als 2 Bereiche markiert"
    End If
            
End Sub
LG UweD
Anzeige
AW: Rangeadressen
30.09.2016 12:17:00
Gerd
Hallo Rolf!
Der Direktzugriff auf Anfangs- u- Endezeile für 's markierte normale Rechteck:
Sub Zeilen()
MsgBox Selection.Row
MsgBox Selection.Row + Selection.Rows.Count - 1
End Sub
Gruß Gerd
AW: Rangeadressen
01.10.2016 15:56:15
Rolf
Hallo Uwe, hallo Gerd,
recht herzlichen Dank für euere Hilfen, die ich leicht geändert (das kann schon!) eingebaut habe.
Gruß Rolf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige