Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1220to1224
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
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Umwandlung Cells(1,1) in Range(A1)

VBA Umwandlung Cells(1,1) in Range(A1)
loca
Hallo Zusammen
Einige VBA Funktionen (z.B. Pivot) verlangen eine Schreibweise im Stil von Range(A1). Oft kenne ich den Bereich aber nur via Variabeln im Sinne von Cells(x,y). Wie kann ich das umwandel?
Besten Dank und Gruss
loca

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Umwandlung Cells(1,1) in Range(A1)
27.07.2011 15:34:43
Yal
Cells(x, y).Address
VBA: Zelladressen in Z1S1-Schreibweise umwandeln
27.07.2011 15:36:14
NoNet
Hallo Loca,
das klappt so :
Range("C5").Address(1,1,xlR1C1) ergibt R5C3 (also: Row 5, Column 3)
Gruß, NoNet
AW: VBA Umwandlung Cells(1,1) in Range(A1)
27.07.2011 15:41:12
fcs
Hallo Ioca,
du kannst die Address-Eigenschaft des Bereiches abfragen.
Gruß
Franz 
Sub aaTest()
Dim sAdresse As String, Zeile&, Spalte&
sAdresse = Cells(1, 2).Address(ReferenceStyle:=xlA1)
MsgBox "Cells(1, 2).Adress : " & sAdresse
sAdresse = Range(Columns(1), Columns(2)).Address(ReferenceStyle:=xlA1)
MsgBox "Range(Columns(1), Columns(2)).Address : " & sAdresse
Zeile = 10: Spalte = 5
sAdresse = Range(Cells(1, 1), Cells(Zeile, Spalte)).Address(ReferenceStyle:=xlA1)
MsgBox "Range(Cells(1, 1), Cells(" & Zeile & ", " & Spalte & ")).Address : " & sAdresse
End Sub

Anzeige
AW: VBA Umwandlung Cells(1,1) in Range(A1)
27.07.2011 15:45:50
loca
besten dank euch allen.
gruss
loca
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
25
1