Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle anklicken dann....

Zelle anklicken dann....
Kurt
Guten Morgen,
wenn ich in der Zelle X43 etwas eingebe, möchte
ich gern das dann die restlichen Tabbellen angeklickt werden bzw.
die Zelle B2 aktiviert wird und dann wieder zurück zu der ursprünglichen
Tabelle.
gruß Kurt P

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zelle anklicken dann....
20.04.2010 11:18:45
Chris
Also ich hoffe ich hab das richtig verstanden:
Wenn in Blatt "X" in Zelle X43 etwas drinsteht dann soll in allen anderen Blättern die Zelle B2 markiert werden. dann soll wieder in blatt "X" zurückgesprungen werden und in diesem Blatt die Markierung weiterhin auf X43 sein.
Kopier das mal über den VBA Editor in die besagte Tabelle "X":
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target = Range("X43").Value Then
If Target.Value  "" Then
nameblatt = ActiveSheet.Name
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Select
ActiveSheet.Range("B2").Select
Next Blatt
Worksheets(nameblatt).Select
Range("X43").Select
End If
End If
Application.ScreenUpdating = True
End Sub
Gruss Chris
Anzeige
Funktioniert -)
20.04.2010 11:30:37
Kurt
Hallo Chris,
danke.
Funtioniert, habe allerdings dies noch einsetzen
müssen :
Dim nameblatt
Dim blatt
DANKE
Kurt P
AW: Zelle anklicken dann....
20.04.2010 11:29:09
fcs
Hallo Kurt,
den tieferen Sinn eines solchen Makros verstehe ich jetzt nicht.
Aber nachfolgende Prozedur sollte den Zweck erfüllen.
Gruß
Franz 
'im VBA-Editor unter dem Blatt mit der Zelle X43 einfügen
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
If Target.Address = "$X$43" Then
For Each wks In ThisWorkbook.Worksheets
If wks.Name  Me.Name Then
wks.Activate
wks.Range("B2").Select
End If
Next
Me.Activate
End If
End Sub

Anzeige
Herzlichen Dank auch Dir Franz -) +Warum ?
20.04.2010 13:33:45
Kurt
Hallo Franz,
in der Zelle X43 gebe ich das akt. Jahr ein.
Die Monatstabellen werden hierdurch aktuallisiert:
ActiveSheet.Name = Format(ActiveSheet.Range("C2"), "mmm yy")
wenn ich jetzt automatisch die Tabellen anklicke, wird alles
auf das akt. Jahr gebracht.
mfg Kurt P

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige