Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
460to464
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt X beim Start öffnen...

Blatt X beim Start öffnen...
27.07.2004 23:40:41
Jean-Pierre
Hallo zusammen,
folgenden Code habe ich gefunden um mein Problem zu lösen:

Private Sub Workbook_Open()
Sheets("Tabelle5").Select
End Sub

Ich möchte jedoch das die Zellen A22:A24 automatisch markiert sind.
Wie muss ich den VBA Code anpassen?
Gruß aus Berlin
Jean-Pierre

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt X beim Start öffnen...
B.
Hallo Jean

Private Sub Workbook_Open()
with sheets("Tabelle5")
.Select
.Range("A22.A24").select
End Sub

Gruß
Beate
AW: Blatt X beim Start öffnen...
27.07.2004 23:56:13
Jean-Pierre
Hallo Beate,
hmmm, leider funzt es nicht...
> Fehler beim Kompilieren: End With erwartet Woran liegt es?
Gruß aus Berlin
Jean-Pierre
AW: Blatt X beim Start öffnen...
27.07.2004 23:57:45
Björn
Hallo Jean,
dann schreib das End with doch hin ;-).

Private Sub Workbook_Open()
with sheets("Tabelle5")
.Select
.Range("A22.A24").select
End Sub

Gruß
Björn
AW: Blatt X beim Start öffnen...
27.07.2004 23:58:54
Björn
Hallo Jean,
da schau mal einer an, war ich selbst zu blöd ...

Private Sub Workbook_Open()
with sheets("Tabelle5")
.Select
.Range("A22.A24").select
end with
End Sub

Gruß
Björn
Anzeige
AW: Blatt X beim Start öffnen...
B.
Sorry, war zu hektisch

Private Sub Workbook_Open()
With Sheets("Tabelle2")
.Select
.Range("A22.A24").Select
End With
End Sub

o.T.: Herzlichen Dank an Beate & Björn
28.07.2004 00:01:29
Jean-Pierre
Hallo Björn, Hallo Beate,
brav wie ich bin hab ich es auch gleich getan.
So soll es genau sein!
Vielen Dank !
Gruß aus Berlin
Jean-Pierre
Danke für die Rückmeldung - o. T.
Björn

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige