mehrere Bereiche markieren

Bild

Betrifft: mehrere Bereiche markieren
von: Klaus
Geschrieben am: 07.04.2005 12:23:54
Hallo Excel Spezi´s!
Kann mir bitte jemand weiter helfen?
Folgendes Problem:
Wie kann ich zwei oder mehere Bereiche (z.B.: A4:A10, D4:D10, F4:F10) mittels VBA markieren, damit ich mit diesen Bereichen z.B. ein Diagramm erstellen kann? Die Zeilen nach unten können einmal bis zur Zeile 10 gehen, ein anderes mal bis zur Zeile 25.
Danke für eure Hilfe im Voraus.
Klaus

Bild

Betrifft: AW: mehrere Bereiche markieren
von: GraFri
Geschrieben am: 07.04.2005 12:50:38
Hallo
Vielleicht hilft dir folgender Code weiter.


      
Sub Bereich()
Dim z1&, z2&, z3&
Dim myBereich

  z1 = 10: z2 = 6: z3 = 8
  
  
Set myBereich = Range("A4:A" & z1 & ",D4:D" & z2 & ",F4:F" & z3)
End Sub
 

     Code eingefügt mit Syntaxhighlighter 3.0

Bei weiteren Fragen einfach melden.
mfg, GraFri
Bild

Betrifft: AW: mehrere Bereiche markieren
von: Klaus
Geschrieben am: 07.04.2005 13:25:21
Danke für deine rasche Hilfe,
doch wenn ich dieses Makro ausführe, dann werden diese Bereiche bei mir aber nicht markiert. Mache ich da etwas falsch?
Gruß
Klaus
Bild

Betrifft: AW: mehrere Bereiche markieren
von: u_
Geschrieben am: 07.04.2005 13:34:23
Hallo,
du musst in VBA nicht markieren. Lies dir mal das durch:
https://www.herber.de/xlfaq/xlbasics/main_sel.htm
Gruß
Bild

Betrifft: AW: mehrere Bereiche markieren
von: Tobias Marx
Geschrieben am: 07.04.2005 13:42:01
Auch wenn u_ gegen Select ist (und ich eigentlich auch) - hier trotzdem der korrigierte Code:

Sub Bereich()
Dim z1&, z2&, z3&
Dim myBereich
  z1 = 10: z2 = 6: z3 = 8
  
  Range("A4:A" & z1 & ",D4:D" & z2 & ",F4:F" & z3).Select
End Sub


Gruss

Tobias
 Bild

Beiträge aus den Excel-Beispielen zum Thema "mehrere Bereiche markieren"