Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

"Zellennummern" in Variable schreiben

"Zellennummern" in Variable schreiben
17.10.2005 11:11:18
Andreas
Hallo zusammen,
nochmal ich. Ich habe ein Problem, das ich als VBA-
Anfänger nicht zu lösen vermag.
Ich habe in Excel eine bestimmte Anzahl von x-beliebigen Zellen
markiert (z.b. die Zellen B1 D2 F10 ...). Nun möchte ich
mit einem Makro die Zeilen- und Spaltennummern dieser
Zellen in die Variable
a(1,1)=ZeilennummervonB1
a(1,2)=SpaltennummervonB1
a(2,1)=ZeilennummervonD2
a(2,2)=SpaltennummervonD2
a(3,1)=ZeilennummervonF10
a(3,2)=SpaltennummervonF10
.
.
.
schreiben.
Ich bin leider alleine nicht fähig dieses Problem zu
lösen. Wenns kein allzugroßer Aufwand ist bitte ich
um ein kurzes Makro, sonst um einen kleinen Tipp...
Schöne Grüße und Dank von
Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: "Zellennummern" in Variable schreiben
17.10.2005 11:20:49
Peter
Servus,
weis zwar nicht für was du das ganze brauchst, vorallem für was jede einzelne Zelle.
Aber vom Prinzip her so, müsste man die einzelnen Zellen halt noch separieren, glaub aber gar nicht das das nötig ist.
Sub t()
Dim myrange As Range
Set myrange = ActiveWindow.RangeSelection
MsgBox myrange.Address
End Sub

MfG Peter
Anders gemeint...
17.10.2005 11:31:04
Andreas
Ich habe in Excel eine bestimmte Anzahl von x-beliebigen Zellen
markiert (z.b. die Zellen B1 D2 F10 ...). Nun möchte ich
mit einem Makro die Zeilen- und Spaltennummern dieser
Zellen in die Variable a schreiben wobei:
a(1,1)=ZeilennummervonB1 wobei die Zeilennummer von B1 die Zahl 1 ist
a(1,2)=SpaltennummervonB1 wobei die Spaltennummer von B1 die Zahl 2 ist
a(2,1)=ZeilennummervonD2 wobei die Zeilennummer von D2 die Zahl 2 ist
a(2,2)=SpaltennummervonD2 wobei die Spaltennummer von D2 die Zahl 4 ist
a(3,1)=ZeilennummervonF10 wobei die Zeilennummer von F10 die Zahl 10 ist
a(3,2)=SpaltennummervonF10 wobei die Spaltennummer von F10 die Zahl 6 ist
.
.
.
schreiben.
Schöne Grüße und Dank von
Andreas
Anzeige
AW: "Zellennummern" in Variable schreiben
17.10.2005 11:24:54
MichaV
Hallo,

Option Explicit
Sub Test()
Dim a
Dim i As Integer
ReDim a(1 To Selection.Cells.Count, 1 To 2)
For i = 1 To Selection.Cells.Count
a(i, 1) = Selection.Cells(i).Row
a(i, 2) = Selection.Cells(i).Column
Next i
End Sub

ansonsten siehe Peter W.
Gruss- Micha
PS: Rückmeldung wäre nett.
Danke so klappts
17.10.2005 11:39:56
Andreas
Dankeschön
Grüße
Andreas

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige