Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
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

Makro, Zellen

Makro, Zellen
17.10.2005 13:17:23
Andreas
Hallo zusammen,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro, Zellen
17.10.2005 13:30:54
ede
hallo andreas,
du musst dir die werte deiner for schleife in ein zweidim. array schreiben!
i ist eine menge aus den selectdierten zellen, nicht die anzahl der zeilen/spalten
viel erfolg
AW: Makro, Zellen
17.10.2005 14:16:26
ede
hallo andreas,
vieleicht hilft dir dies zum verständnis weiter:

Sub test()
For Each z In Selection
Cells(z.Row, z.Column).Value = z.Row & "," & z.Column
Next
End Sub

viel erfolg
Danke
17.10.2005 14:27:18
Andreas
Dankeschön werde mir mal den Kopf
genauer darüber zerbrechen....
Alle Anfang ist schwer.
Gruß
Andreas
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige