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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bereiche markieren

18.07.2018 13:49:37

ChrisL
Danke

18.07.2018 14:05:16

Antonio

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

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)

Threadtitel

Lesezugriffe
excel wenn text enthält

34292
zelle einfärben wenn andere zelle wert enthält

23815
excel text ab einem bestimmten zeichen auslesen

16961

Weitere Forumthreads anzeigen

excel text am anfang einer zelle einfügen

16233

excel tabelle scrollt nicht nach unten

15683

excel formeln kopieren ohne änderung

15452

excel wenn zelle enthält dann

14478

excel wenn wahr dann wert in andere zelle schreiben

12464

excel formel abschneiden ab zeichen

12034

excel erste buchstaben entfernen

11543

excel farbe wenn andere zelle bestimmten wert hat

10808

excel zeigt summe 0

10749

excel text links abschneiden

9686

excel zelle auf bestimmten text prüfen

9629

zählenwenn oder kriterien

9547

wenn 0 dann leer formel

9063

vba zelle schreiben

8903

excel text nach leerzeichen ausgeben

8868

zählenwenn datum kleiner als

8519

excel werte nur einmal zählen

8325

excel ab bestimmten zeichen auslesen

8040

excel zellenwert übernehmen

8040

excel suchen von rechts bis leerzeichen

7946

excel größer gleich und kleiner gleich

7800

letzte zeile ermitteln vba

7695

datum und uhrzeit in excel zusammenführen

7605

excel minuten in stunden umwandeln

7282

excel ausblenden mit plus

7281

excel bestimmte zeilen ausblenden

7206

excel mauszeiger ändern

7115

kalenderwoche in monat umrechnen

6942

excel datum färben wenn älter als heute

6676

excel summewenns ungleich

6541

excel mehrere spalten in eine spalte untereinander

6328

vba zelle löschen

6310

excel wenn summe negativ dann 0

6199

excel formel wenn wert in spalte vorhanden dann

6085

excel ziffern aus zelle auslesen

6052

excel formel uhrzeit

6047

excel zweites wort aus zelle auslesen

5920

excel sheet wechseln shortcut

5868

excel wenn zwei zellen leer dann

5834

excel 1 2 3 runterziehen funktioniert nicht

5833

sverweis und summe

5807

excel letzten zeichen einer zelle löschen

5745

excel durch eigenen benutzer gesperrt

5735

was bedeutet in excel formel

5683

excel wenn zelle leer dann

5605

excel string in zelle suchen

5585

excel uhrzeit plus 1 stunde

5534

excel vba finden

5433

summewenn mehrere spalten addieren

5386

excel bedingte formatierung abhängig von anderer zelle

5384

excel 0 entfernen

5340

zählenwenn feld nicht leer

5314

wenn zelle farbig dann wert

5138

vba message box ja nein

5130

excel #nv durch 0 ersetzen

5125

vba zelle hintergrundfarbe

5117

email adresse in excel generieren

5041

excel anführungszeichen in text

4977

excel buchstaben aus zelle entfernen

4977

excel kriterium ungleich

4927

excel zellen kopieren wenn bedingung erfüllt

4922

excel vba teilstring suchen

4813

excel monate addieren

4809

summe wenn zwischen zwei daten

4772

vba passwort eingeben

4752

excel finden rechts

4738

excel datum nicht erkannt

4688

liniendiagramm excel mehrere linien

4685

vba mehrere if bedingungen nacheinander

4662

excel bild in zelle

4612

excel trennzeichen entfernen

4586

excel erste drei zeichen löschen

4582

zählenwenn bestimmter text

4570

excel text von anderer zelle übernehmen

4569

excel vba string in zahl umwandeln

4521

vba zeilenumbruch in string

4517

excel spalte ausgeben

4490

excel vba abbrechen

4488

excel vba check if sheet exists

4418

excel-tabelle kopieren ohne inhalt

4415

excel datumseingabe

4388

excel zeilennummer ermitteln

4385

excel summe aufrunden auf ganze zahl

4382

excel jetzt uhrzeit

4359

userform close

4311

excel daten von anderem tabellenblatt holen

4304

kalenderwoche in datum

4295

excel verketten mit datumsformat

4276

durchschnitt berechnen prozent

4268

gruppierungen excel benennen

4252

excel gruppierung nicht sichtbar

4220

excel spalte sperren ohne blattschutz

4192

vba absatz

4178

argumente einer funktion

4163

excel linien druckbereich ausblenden

4128

excel drop down leere zellen ignorieren

4086

excel jahr(heute)

4012

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

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn text enthält

34292
zelle einfärben wenn andere zelle wert enthält

23815
excel text ab einem bestimmten zeichen auslesen

16961

Weitere Forumthreads anzeigen

excel text am anfang einer zelle einfügen

16233

excel tabelle scrollt nicht nach unten

15683

excel formeln kopieren ohne änderung

15452

excel wenn zelle enthält dann

14478

excel wenn wahr dann wert in andere zelle schreiben

12464

excel formel abschneiden ab zeichen

12034

excel erste buchstaben entfernen

11543

excel farbe wenn andere zelle bestimmten wert hat

10808

excel zeigt summe 0

10749

excel text links abschneiden

9686

excel zelle auf bestimmten text prüfen

9629

zählenwenn oder kriterien

9547

wenn 0 dann leer formel

9063

vba zelle schreiben

8903

excel text nach leerzeichen ausgeben

8868

zählenwenn datum kleiner als

8519

excel werte nur einmal zählen

8325

excel ab bestimmten zeichen auslesen

8040

excel zellenwert übernehmen

8040

excel suchen von rechts bis leerzeichen

7946

excel größer gleich und kleiner gleich

7800

letzte zeile ermitteln vba

7695

datum und uhrzeit in excel zusammenführen

7605

excel minuten in stunden umwandeln

7282

excel ausblenden mit plus

7281

excel bestimmte zeilen ausblenden

7206

excel mauszeiger ändern

7115

kalenderwoche in monat umrechnen

6942

excel datum färben wenn älter als heute

6676

excel summewenns ungleich

6541

excel mehrere spalten in eine spalte untereinander

6328

vba zelle löschen

6310

excel wenn summe negativ dann 0

6199

excel formel wenn wert in spalte vorhanden dann

6085

excel ziffern aus zelle auslesen

6052

excel formel uhrzeit

6047

excel zweites wort aus zelle auslesen

5920

excel sheet wechseln shortcut

5868

excel wenn zwei zellen leer dann

5834

excel 1 2 3 runterziehen funktioniert nicht

5833

sverweis und summe

5807

excel letzten zeichen einer zelle löschen

5745

excel durch eigenen benutzer gesperrt

5735

was bedeutet in excel formel

5683

excel wenn zelle leer dann

5605

excel string in zelle suchen

5585

excel uhrzeit plus 1 stunde

5534

excel vba finden

5433

summewenn mehrere spalten addieren

5386

excel bedingte formatierung abhängig von anderer zelle

5384

excel 0 entfernen

5340

zählenwenn feld nicht leer

5314

wenn zelle farbig dann wert

5138

vba message box ja nein

5130

excel #nv durch 0 ersetzen

5125

vba zelle hintergrundfarbe

5117

email adresse in excel generieren

5041

excel anführungszeichen in text

4977

excel buchstaben aus zelle entfernen

4977

excel kriterium ungleich

4927

excel zellen kopieren wenn bedingung erfüllt

4922

excel vba teilstring suchen

4813

excel monate addieren

4809

summe wenn zwischen zwei daten

4772

vba passwort eingeben

4752

excel finden rechts

4738

excel datum nicht erkannt

4688

liniendiagramm excel mehrere linien

4685

vba mehrere if bedingungen nacheinander

4662

excel bild in zelle

4612

excel trennzeichen entfernen

4586

excel erste drei zeichen löschen

4582

zählenwenn bestimmter text

4570

excel text von anderer zelle übernehmen

4569

excel vba string in zahl umwandeln

4521

vba zeilenumbruch in string

4517

excel spalte ausgeben

4490

excel vba abbrechen

4488

excel vba check if sheet exists

4418

excel-tabelle kopieren ohne inhalt

4415

excel datumseingabe

4388

excel zeilennummer ermitteln

4385

excel summe aufrunden auf ganze zahl

4382

excel jetzt uhrzeit

4359

userform close

4311

excel daten von anderem tabellenblatt holen

4304

kalenderwoche in datum

4295

excel verketten mit datumsformat

4276

durchschnitt berechnen prozent

4268

gruppierungen excel benennen

4252

excel gruppierung nicht sichtbar

4220

excel spalte sperren ohne blattschutz

4192

vba absatz

4178

argumente einer funktion

4163

excel linien druckbereich ausblenden

4128

excel drop down leere zellen ignorieren

4086

excel jahr(heute)

4012

Bereiche markieren

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread