Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Such Makro läuft nicht...

Betrifft: Such Makro läuft nicht... von: Andi
Geschrieben am: 30.08.2004 07:48:19

Guten Morgen!

Habe jetzt schon seit einigen Tagen das gleiche Problem:

https://www.herber.de/forum/messages/476154.html
Leider hat mich das nicht weitergebracht. Mit trim läuft gar nichts mehr, d.h. jetzt wird nichts mehr gesucht.

Bei meinem "Suchmakro" funktioniert der Code auch nicht! Es kommt immer die Meldung, dass das Blatt nicht existiert, auch wenn es existiert...

Hier nochmals mein Code:

Private Sub CommandButton1_Click()
'suchen nach Tab.blatt
Application.ScreenUpdating = False
On Error Resume Next
Dim q
Dim wks As Worksheet
Dim strWKS As String
strWKS = TextBox1.Value
For Each wks In Worksheets
    If strWKS = "" Then
    Application.ScreenUpdating = True
    Exit Sub
    End If
        If InStr(UCase(wks.Name), UCase(strWKS)) > 0 Then
        wks.Visible = True
        wks.Activate
        Exit For
        End If
Next wks
Unload Me
q = MsgBox("Blattname existiert nicht. Neues Prüfblattlatt anlegen?", vbYesNo)
If q = vbNo Then Exit Sub
If q = vbYes Then
Call Makro_neues_Blatt_anlegen
End If
Application.ScreenUpdating = True
End Sub


Bitte helft mir.

Gruß Andi
  


Betrifft: AW: Such Makro läuft nicht... von: WernerB.
Geschrieben am: 30.08.2004 08:06:10

Hallo Andi.

vielleicht solltest Du Deine Datei mal hier hochladen, damit man die Ursachenforschung am "lebenden Objekt" betreiben kann.


Gruß
WernerB.


  


Betrifft: AW: Such Makro läuft nicht... von: Andi
Geschrieben am: 30.08.2004 08:23:47

Kann ich sie dir per email schicken? Erstaunlicherweise ist der Upload nicht möglich!


  


Betrifft: AW: Such Makro läuft nicht... von: P@ulchen
Geschrieben am: 30.08.2004 08:28:48

Hi Andi,

der Oplod kunktioniert wahrscheinlich nicht, weil der Pfad Deiner Datei zu lang ist. Kopiere sie mal direkt auf ein Laufwerk (ohne Unterordner), dann sollte der Upload funktionieren...

Oder versuch mal so:



Private Sub CommandButton1_Click()
'suchen nach Tab.blatt
Dim strWKS As String
Application.ScreenUpdating = False
If TextBox1.Value = "" Then Exit Sub
strWKS = TextBox1.Value
On Error GoTo ErrorHandler
Worksheets(strWKS).Visible = True
Worksheets(strWKS).Activate
Unload Me
Application.ScreenUpdating = True
End
ErrorHandler:
If MsgBox("Blattname existiert nicht. Neues Prüfblattlatt anlegen?", vbYesNo) = vbNo Then
    Unload Me
    Exit Sub
Else
    Call Makro_neues_Blatt_anlegen
End If
Unload Me
Application.ScreenUpdating = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5




Gruß aus Leipzig
P@ulchen

Das Forum lebt auch von den Rückmeldungen !


  


Betrifft: Danke, der Code läuft! von: Andi
Geschrieben am: 30.08.2004 08:33:13

Gruß Andi


  


Betrifft: Hier ist die Datei! von: Andi
Geschrieben am: 30.08.2004 08:30:54

Waren Leerzeichen im Dateipfad. Wußte nicht, dass es dann nicht geht...

https://www.herber.de/bbs/user/10282.xls

Gruß Andi


  


Betrifft: AW: Such Makro läuft nicht... von: WernerB.
Geschrieben am: 30.08.2004 08:32:22

Hallo Andi,

ich werde allen möglichen Blödsinn machen, nur nicht meine e-mail-Adresse hier reinstellen.
Ist Deine Datei vielleicht zu groß? Dann versuche doch mal, sie als gezippte Datei hochzuladen.


Gruß
WernerB.