anderes Tab aufrufen

Forumthread: 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

AW: anderes Tab aufrufen

13.11.2008 21:03:00

Gerd
AW: anderes Tab aufrufen

13.11.2008 21:06:00

Peter
AW: anderes Tab aufrufen

13.11.2008 21:10:47

chris

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: anderes Tab aufrufen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread