Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

If Block

    Betrifft: If Block von: junny
    Geschrieben am: 02.10.2003 15:29:37

    Hai Forum,
    habe mal wieder ein Problem:
    der folgende Code bleibt beim If Block stehen!! Kann mir jemeand sagen warum?

    Danke Gruss junny

      


    Betrifft: AW: If Block fehlt !!!! von: m
    Geschrieben am: 02.10.2003 15:31:23




      


    Betrifft: AW: If Block fehlt !!!! von: junny
    Geschrieben am: 02.10.2003 15:38:59

    Ich bin doch eine Pappnase, hier mein Code

    Sub neu()
    Dim Zeile As Integer
    'Dim Spalte As Integer
       Zeile = 1
       'Spalte = 1
        
    ' Makro am 02.10.2003 von v.weil aufgezeichnet
    
        Workbooks.Open Filename:= _
            "C:\Dokumente und Einstellungen\vw\Eigene Dateien\Frau Berndt.xls"
        Range("A1:W15").Select
        Selection.Copy
        Windows("Mappe_Test.xls").Activate
        Zeile = InputBox("Nr. Einfügezeile angeben:")
        If Zeile = "" Then
        Exit Sub
    
        Cells(Zeile, 1).Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        True, Transpose:=False
        Range("E31").Select
        Windows("Frau Berndt.xls").Activate
        Application.CutCopyMode = False
        ActiveWindow.Close
        
        End If
        
        
    End Sub
    


    junny


      


    Betrifft: AW: If Block fehlt !!!! von: xXx
    Geschrieben am: 02.10.2003 15:42:38

    Hallo,
    da fehlt ein Else hinter Exit Sub.
    Sub neu()
    Dim Zeile As Integer
    'Dim Spalte As Integer
       Zeile = 1
       'Spalte = 1
        
    ' Makro am 02.10.2003 von v.weil aufgezeichnet
    
        Workbooks.Open Filename:= _
            "C:\Dokumente und Einstellungen\vw\Eigene Dateien\Frau Berndt.xls"
        Range("A1:W15").Select
        Selection.Copy
        Windows("Mappe_Test.xls").Activate
        Zeile = InputBox("Nr. Einfügezeile angeben:")
        If Zeile = "" Then
        Exit Sub
    Else
        Cells(Zeile, 1).Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        True, Transpose:=False
        Range("E31").Select
        Windows("Frau Berndt.xls").Activate
        Application.CutCopyMode = False
        ActiveWindow.Close    
        End If   
    End Sub
    

    Gruß aus'm Pott
    Udo
    http://www.excelerator.de

    P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


      


    Betrifft: AW: If Block fehlt !!!! von: Hajo_Zi
    Geschrieben am: 02.10.2003 15:45:20

    Hallo junny

    auf Select, Activate kann in VBA verzichtet werden.

    Sub neu()
        Dim Zeile As Integer
        'Dim Spalte As Integer
        Zeile = 1
        'Spalte = 1
        ' Makro am 02.10.2003 von v.weil aufgezeichnet
        Workbooks.Open Filename:= _
            "C:\Dokumente und Einstellungen\vw\Eigene Dateien\Frau Berndt.xls"
        Range("A1:W15").Copy
        Windows("Mappe_Test.xls").Activate
        Zeile = InputBox("Nr. Einfügezeile angeben:")
        If Zeile = "" Then
            Exit Sub
            ' Warum steht hier nocht Code
            ' der wird nie abgearbeitet
            Cells(Zeile, 1).PasteSpecial Paste:=xlValues
            Windows("Frau Berndt.xls").Close
            Application.CutCopyMode = False
        End If
    End Sub
    

    Grußformel

    Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
    Bitte kein Mail, Probleme sollen im Forum gelöst werden.

    Microsoft MVP für Excel

    Das Forum lebt auch von den Rückmeldungen.

    http://home.media-n.de/ziplies/



      


    Betrifft: AW: If Block fehlt !!!! von: junny
    Geschrieben am: 02.10.2003 16:00:48

    Hai Jungs, erstmal Danke!!

    Noch an Hajo, wie meinst Du der wird nie abgearbeitet? In meinen Verständnis gehts da weiter sobald was in der Inputbox eingetragen wird.

    Wäre nett wenn Du mir das kurz näher erklären würdest.

    Viele Grüsse junny


      


    Betrifft: AW: If Block fehlt !!!! von: Hajo_Zi
    Geschrieben am: 02.10.2003 16:02:12

    Hallo Junny

    davor steht Exit Sub und dies bedeutet verlasse den Code
    Grußformel

    Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
    Bitte kein Mail, Probleme sollen im Forum gelöst werden.

    Microsoft MVP für Excel

    Das Forum lebt auch von den Rückmeldungen.

    http://home.media-n.de/ziplies/



      


    Betrifft: AW: If Block fehlt !!!! von: junny
    Geschrieben am: 02.10.2003 16:04:03

    Hai Hajo,
    aber doch nur wenn in der Inputbox nichts eingetragen wird, oder.

    junny


      


    Betrifft: AW: If Block fehlt !!!! von: Hajo_Zi
    Geschrieben am: 02.10.2003 16:09:20

    Hallo Junny

    keine Eingabe nächste Zeile Exit
    Sub nächste Zeile End Sub
    

    Eine Eingabe nächste Zeile End If nächste Zeile End Sub


    Lasse den Code im Einzelschrittmodus laufen.
    Grußformel

    Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
    Bitte kein Mail, Probleme sollen im Forum gelöst werden.

    Microsoft MVP für Excel

    Das Forum lebt auch von den Rückmeldungen.

    http://home.media-n.de/ziplies/



      


    Betrifft: AW: If Block fehlt !!!! von: junny
    Geschrieben am: 02.10.2003 16:18:31

    Hai Hajo,
    so ganz komm ich noch nicht hin, bleibt immer noch stehen und ich weiß natürlich nicht warum.

    Ich teste mal noch weiter

    Gruss junny


      


    Betrifft: AW: If Block fehlt !!!! von: PeterW
    Geschrieben am: 02.10.2003 16:34:14

    Hallo Junny,

    sorry für die Einmischung aber Udo hat dir doch die LÖsung hier im Thread gepostet.

    Gruß
    Peter


      


    Betrifft: AW: If Block fehlt !!!! von: junny
    Geschrieben am: 06.10.2003 06:12:27

    Hai Peter,
    ja Udo hat mir gepostet, das sollte auch kein Zeichen von Undankbarkeit oder ähnl. sein,
    aber es geht halt nicht mit Else, warum weiss ich nicht!
    Wenn ich den Ganzen If Block ausblende lauft mein Code.

    Grüsse Junny