Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
684to688
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Syntax für Bereichangaben

Syntax für Bereichangaben
20.10.2005 18:50:44
Korl
Hallo,
ich versuche mit folgender Schreibweise einen Bereich mit zwei zu multiplizieren.
Set Wert = 2
Set rng = Range("A1:F10,A12:F19")
Wert.Copy
rng.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Ich bekomme das Ergebnis auch hin wenn ich den Recorder benutze, würde aber gerne wissen was für ein Objekt ich einsetzen muß für "Wert", der wird nämlich angemeckert.
Ebenso würde mich Interessieren wie man den oben benannten Bereich in Cell-Befehl dastellen könnte.
Gruß Korl

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Syntax für Bereichangaben
20.10.2005 19:04:12
Matthias
Hallo Korl,
du brauchst dafür eine unbenutzte Zelle (z.B. IV1):

Sub test()
Dim Wert As Range
Set Wert = Range("IV1")
Wert.Value = 2
Set rng = Range("A1:F10,A12:F19")
Wert.Copy
rng.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("IV1").ClearContents
End Sub

oder auch so:

Sub test2()
Dim z As Range
For Each z In Range("A1:F10,A12:F19")
z.Value = z.Value * 2
Next z
End Sub

Gruß Matthias
AW: Syntax für Bereichangaben
20.10.2005 19:12:46
Korl
Hallo Matthias,
besten Dank für Deinen Tip, bin ja eigentlich schon nah dran gewesen ;-)
So langsam prägt es sich vielleicht bei mir ein.
gruß Korl
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige