Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereiche markieren

Forumthread: Bereiche markieren

Bereiche markieren
18.07.2018 13:36:12
Antonio
Hallo
ich versuche mit eine Schaltfläche auf Tabelle6 mit diesem Code zwei Bereiche zu markieren: 
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle6")
ws2.Activate
ActiveSheet.Range("BI2:BS2").Select
ActiveSheet.Range("AG20:AL34").Select
sobald ich auf die Schalfläche clicke verschwindet die Markierung auf:
  • ("BI2:BS2")

    • und wird nur der Bereich:
  • ("AG20:AL34")

    • markiert.
    Kann mir bitte jemand helfen?
    Vielen Dank in Voraus
    Antonio
    Anzeige

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

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Bereiche markieren
    18.07.2018 13:49:37
    ChrisL
    Hi Antonio
    Beachte Anpassung Deklaration (ws1 ist sonst Typ Variant)
    Sub t()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle6")
ws2.Activate
ws2.Range("BI2:BS2,AG20:AL34").Select
End Sub
    cu
    Chris
    Anzeige
    Danke
    18.07.2018 14:05:16
    Antonio
    Hi Chris,
    Danke für den Tip für die Variante.
    Danke für den Code (MIST.... eine winzige kleine KOMMA)
    Antonio
    ;

    Beliebteste Forumthreads (12 Monate)

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