"Zellennummern" in Variable schreiben

Forumthread: "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

AW: "Zellennummern" in Variable schreiben

17.10.2005 11:20:49

Peter
Anders gemeint...

17.10.2005 11:31:04

Andreas
AW: "Zellennummern" in Variable schreiben

17.10.2005 11:24:54

MichaV
Danke so klappts

17.10.2005 11:39:56

Andreas

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

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

Beliebteste Forumthreads (12 Monate)

"Zellennummern" in Variable schreiben

Forumthread: "Zellennummern" in Variable schreiben

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread