folgendes Makro funktioniert nicht wie es sollte.
Ich wähle mir im Excel 5 x-beliebige Zellen aus.
Das Makro sollte mir die Zeilen- und spaltennummern
der markierten zellen in die im Makro angegebenen
Zellen schreiben.
Wieso funktioniert das Makro nicht einwandfrei?
Wenn ich 5 Zellen untereinander wähle funktionierts.
Wenn ich 5 Zellen nebeneinander wähle haperts...
Wenn ich 5 beliebige Zellen wähle haperts...
Sub Zellenadresse()
Dim a(10)
Dim b(10)
Dim i As Integer
For i = 1 To Selection.Cells.Count
a(i) = Selection.Cells(i).Row
b(i) = Selection.Cells(i).Column
Next i
Cells(1, 1) = a(1)
Cells(1, 2) = a(2)
Cells(1, 3) = a(3)
Cells(1, 4) = a(4)
Cells(1, 5) = a(5)
Cells(2, 1) = b(1)
Cells(2, 2) = b(2)
Cells(2, 3) = b(3)
Cells(2, 4) = b(4)
Cells(2, 5) = b(5)
End Sub
Kann mir jemand bitte einen Korrekturvorschlag machen.
Danke!!!
Schöne Grüße Andreas