Herbers Excel-Forum - das Archiv

If Block

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

    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

    Bild

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

    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
    Bild

    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!
    Bild

    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
    


    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/

    Bild

    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
    Bild

    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

    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/

    Bild

    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
    Bild

    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.

    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/

    Bild

    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
    Bild

    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
    Bild

    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
     Bild