Unterschiedliche Zellen markieren

Vendor2k · 04.03.2005

Hi,

ich weis, dass ich hier nicht gerade richtig bin, aber vielleicht kann mir doch jemand weiter helfen.

Mein Problem ist, dass ich mehere Zellen in Excel per Makro markieren will.

Wenn ich ein Makro aufzeichne, sieht das dann so aus:

Range(A2,B2,C3,D7)

Da ich aber nach Zellen mit bestimmten Inhalt suche und nur eine absolute Position
wie Row1 Cell5 bekomme, klappt das mit dem markieren nicht.

Ich habe eine große Liste, will nach mehreren Überschriften suchen, dann einen Artikel in einer Spalte finden und dann die Werte der auseinanderliegenden Zellen kopieren.

Wie kann ich z.B. ROW 24 COLUMN 4 und die Zelle ROW 24 COLUMN 7 zugleich markieren?

Wäre super, wenn mir jemand helfen könnte.

Gruß Vendor

freestyler96 · 08.03.2005

Hallo,

z. Bsp:
Application.Goto Reference:=R1C1,R1C4:R1C17

Matjes · 08.03.2005

Hallo Vendor2k,

ein kleines Beispiel für die Selektion mererer Zellen.

Gruß Matjes

Code:

Sub MehrereZellenSelektieren()
  
  Dim r_ges As Range, r_hinzufuegen As Range
  
 ->ersten Range definieren D24
  Set r_ges = ActiveSheet.Cells(24, 4)
 ->zweiten Range definieren G24
  Set r_hinzufuegen = ActiveSheet.Cells(24, 7)
 ->beide Range in einem zusammenfassen
  Set r_ges = Application.Union(r_ges, r_hinzufuegen)
  
 ->Range selektieren
  r_ges.Select
  MsgBox (jetzt sind auf dem aktuellen Blatt D24 und G24 markiert.)
  
 ->*** eine weitere Zelle der Selection hinzufügen ***
  
 ->Range E24 definieren
  Set r_hinzufuegen = ActiveSheet.Cells(24, 5)
 ->beide Range in einem zusammenfassen
  Set r_ges = Application.Union(r_ges, r_hinzufuegen)
  
 ->Range selektieren
  r_ges.Select
  MsgBox (jetzt sind auf dem aktuellen Blatt D24,E24 und G24 markiert.)
  
 ->Variablen wieder freigeben
  Set r_ges = Nothing
  Set r_hinzufuegen = Nothing
  
End Sub

Unterschiedliche Zellen markieren

Vendor2k

freestyler96

Matjes

Unterschiedliche Zellen markieren

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums