code falsch?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: code falsch?
von: denisa
Geschrieben am: 07.04.2005 17:21:02
Hallo!
Ich hoffe ihr könnt mir helfen!
Ich habe ein im excel ein userform angelegt, welches sich beim starten automatisch öffnet. Jetzt möchte ich wenn man einen bestimmt Namen eingibt und auf dem Button klickt, dass sich das Blatt mit dem Namen öffnet! Aber das Blatt öffnet sich nicht, ich glaub mir fehlt da etwas!
Bitte helft mir

Folgenden code habe ich beim Button eingegeben;
Private Sub bttnsuchen_click()
Dim txtname As String
txtname = name
If name = "Wieser" Then
Sheets("Wieser").Activate
Sheets("Wieser").Select
End If

Ich hab es mit Visible, open und allen möchlichen probiert, es funktioniert einfach nicht.

Bild

Betrifft: AW: code falsch?
von: Ceyser Soze
Geschrieben am: 07.04.2005 17:27:06
Hi denisa,
du musst nur den namen des Buttons und der Textbox austauschen:


      
Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets(TextBox1.Text).Activate
End Sub
 

     Code eingefügt mit Syntaxhighlighter 3.0

Gruß
CS
Bild

Betrifft: AW: code falsch?
von: denisa
Geschrieben am: 08.04.2005 07:17:11
Ich habe es probiert, doch leider klappt es noch immer ich weiß nicht was ich da alles falsch mache:
https://www.herber.de/bbs/user/20854.xls
Bild

Betrifft: AW: code falsch?
von: Marcus Rose
Geschrieben am: 08.04.2005 08:31:36
Hallo,
dann versuche einmal diesen Code:


      
Private Sub bttnsuchen_click()
Dim name As String
name = txtname.Value
    
If name = "Wieser" Then Sheets("Wieser").Select
    
If name = "Temmel" Then Sheets("Temmel").Select
    
If name = "Brandl" Then Sheets("Brandl").Select
Unload Me
End Sub 

     Code eingefügt mit Syntaxhighlighter 3.0


Gruß
Marcus
http://xltreff.de
Bild

Betrifft: AW: code falsch?
von: denisa
Geschrieben am: 08.04.2005 12:50:53
Danke, du hast mir sehr geholfen!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "code falsch?"