HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Probleme mit Range

Probleme mit Range
14.04.2005 09:54:52
Peter
Hallo zusammen ich habe leider keine Idee mehr wie ich das Problem lösen soll, kann mir jemand von Euch helfen?
Problemstellung:
Ich muss via VBA in verschiedenen Zellbereichen (wird von Hand selektiert)
berechnungen durchführen und diese wieder in den jeweiligen Zellbereich zurückschreiben.
Frage:
Wie kann ich nun die Zellkoordinaten sowie den Zellwert jeder einzelnen Zelle
innerhalb der selektion lesen und schreiben.
Ich bin um jeden Tipp dankbar der mich einen schritt weiterbringt.

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

Betreff
Datum
Benutzer
AW: Probleme mit Range
14.04.2005 09:59:16
ANdreas
Hallo Peter,
das sollte Dir weiterhelfen:

Sub SelektionDurchlaufen()
Dim c As Range, s$
For Each c In Selection
s = s & c.Address(0, 0) & ": " & c.Value & vbCrLf
Next c
MsgBox s, , "Zellen in Selektion " & Selection.Address(0, 0) & " mit Werten"
End Sub

Gruß
Andreas
AW: Probleme mit Range
14.04.2005 10:00:49
Andi
Hi,
wenn mit allen Zellen die gleiche Rechenoperation durchgeführt werden soll (in diesem Beispiel eine Verdoppelung), dann so:

Sub Markierung_Berechnen()
Dim zelle As Range
For Each zelle In Selection
zelle.Value = zelle.Value * 2
Next zelle
End Sub

Die Koordinaten jeder einzelnen Zelle bekommst Du mit zelle.row und zelle.column
Schönen Gruß,
Andi
AW: Probleme mit Range
14.04.2005 10:32:07
Peter
Dank Euch

Meistgelesene Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Ihre Stimme zählt!