Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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
Anwender
Anzeige
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
Anzeige
AW: Probleme mit Range
14.04.2005 10:32:07
Peter
Dank Euch

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige