Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1024to1028
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
Inhaltsverzeichnis

anderes Tab aufrufen

anderes Tab aufrufen
13.11.2008 20:54:00
Peter
Hallo,
habe ein Problem mit einem Macro das irgentwie als Schleife läuft.
Tab1 rufe ich auf, hier wird das ausgeführt:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Schuldoc
Application.ScreenUpdating = True
End Sub


Nun läuft das Macro "Schuldoc" ab, geht dann wieder auf:


Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Schuldoc
Application.ScreenUpdating = True
End Sub


usw, läuft unendlich.
Erreichen wollte ich, wenn ich ins Tab1 gehe, dass ein anderes versteckte Tab aktualisiert wird, und ich mich immer noch in Tab1 befinde.
Wie müßte das Macro aussehen?
Mfg Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: anderes Tab aufrufen
13.11.2008 21:03:00
Gerd
Hi,
wo ist der Code von Schuldoc
?
mfg Gerd
AW: anderes Tab aufrufen
13.11.2008 21:06:00
Peter
Hallo Gerd,
so sieht das Macro aus.

Sub Schuldoc()
Application.ScreenUpdating = False
Worksheets("Schularzt").Visible = True
Sheets("Schularzt").Select
ActiveWindow.SmallScroll Down:=-12
Range("A10:AH200").Select
Selection.ClearContents
Range("Datenbank1").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("SuchenDoc"), CopyToRange:= _
Range("Zieldoc"), Unique:=False
'Worksheets("Tabelle1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password: _
="test"
' Worksheets("Abgang").Range("A10:Ag800").Interior.ColorIndex = xlNone
Worksheets("Schularzt").Visible = False
Worksheets("Tabelle1").Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub


Gruß peter

Anzeige
AW: anderes Tab aufrufen
13.11.2008 21:10:47
chris
Hallo versuchs doch mal so:
Schreibe in dein Makro

Sub Schuldoc()
application.enableevents = false
Application.ScreenUpdating = False
Worksheets("Schularzt").Visible = True
Sheets("Schularzt").Select
ActiveWindow.SmallScroll Down:=-12
Range("A10:AH200").Select
Selection.ClearContents
Range("Datenbank1").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("SuchenDoc"), CopyToRange:= _
Range("Zieldoc"), Unique:=False
'Worksheets("Tabelle1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password: _
_
="test"
' Worksheets("Abgang").Range("A10:Ag800").Interior.ColorIndex = xlNone
Worksheets("Schularzt").Visible = False
Worksheets("Tabelle1").Activate
Range("A1").Select
Application.ScreenUpdating = True
application.enableevents = true
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige