Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wechseln zwischen Tabellenblättern

Forumthread: Wechseln zwischen Tabellenblättern

Wechseln zwischen Tabellenblättern
28.09.2005 21:38:17
m.
Hallo Herberianer,
Ich habe hier eine Datei bei der ich über je eine Combobox zwischen 12 (Monats-)Blättern hin und herspringen möchte. Bevor ich auf das neue Blatt gehe, möchte ich aber die Combobox des "alten" Blattes zurück stellen auf den "Eigennamen". Dazu hab ich in jedem Blatt eine ifthen Schleife, die aber nach drei , vier Clicks das gesamte Excel "zermanscht" ;-(
Was mache ich falsch? Falscher Ansatz? Hier der Anfang der Schleifen:

Private Sub ComboBox1_Change()
If Range("m7") = "Januar" Then
Range("M7").Select
ActiveCell.FormulaR1C1 = "Januar"
Range("b13").Select
Sheets("01").Select
ElseIf Range("m7") = "Februar" Then
Range("M7").Select
ActiveCell.FormulaR1C1 = "Januar"
Range("b13").Select
Sheets("02").Select
ElseIf Range("m7") = "März" Then
Range("M7").Select
ActiveCell.FormulaR1C1 = "Januar"
Range("b13").Select
Sheets("03").Select
End If
End Sub

Gruß aus der Mitte der Republik
Martin
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Wechseln zwischen Tabellenblättern
28.09.2005 22:11:58
Matthias
Hallo Martin,
die Combobox ist scheinbar mit der Zelle M7 verknüpft.
Kein Wunder, dass das abschmiert, denn jede Änderung von M7 ruft erneut die ComboBox_Change()-Prozedur auf...
Probier mal diesen Code in jedem Monats-Tabellenmodul:

Private Sub ComboBox1_Change()
Sheets(Format("1. " & ComboBox1.Value, "MM")).Select
End Sub
Private Sub Worksheet_Activate()
ComboBox1.Value = Format("1." & Me.Name, "MMMM")
End Sub

Gruß Matthias
Anzeige
AW: Wechseln zwischen Tabellenblättern
28.09.2005 23:42:30
M.
Hallo und guten Abend,
Danke! Die Lösung hilft schon mal sehr weiter......
ABER: (es tut mir ja auch leid :-) ) Ich würde gerne die, durch die Combobox beeinflußte, "LinkedCell" schon beim verlassen des entsprechenden Blattes wieder umbenennen, da auch von anderer Seite darauf zugegriffen wird. Versuche mit "Worksheet_close" oder ..._deactivate anstatt ..._activate waren leider nicht vom Erfolg gekrönt
Grüße in die Nacht und nochmals vielen herzlichen Danke für die Hilfe bis hier hin.
Martin
Anzeige
AW: Wechseln zwischen Tabellenblättern
28.09.2005 23:54:39
Matthias
Hallo Martin,
versuch mal das:

Option Explicit
Private Sub ComboBox1_Change()
If Blattname <> Me.Name Then Sheets(Blattname).Select
End Sub
Private Sub Worksheet_Deactivate()
ComboBox1.Value = Comboname
End Sub
Private Function Blattname()
Blattname = Format("1. " & ComboBox1.Value, "MM")
End Function
Private Function Comboname()
Comboname = Format("1." & Me.Name, "MMMM")
End Function

Gruß Matthias
Anzeige
AW: Wechseln zwischen Tabellenblättern
29.09.2005 00:09:00
M.
Jau !
Dat iss ett!!! Merci!!! Nur verstehen tue ich das natürlich überhaupt nicht mehr :-( egal!
Ich gehe jetzt schlafen und träume davon, dass ich mal Excel beherrsche......
winke winke
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige