Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

If Block

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

Danke Gruss junny

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If Block fehlt !!!!
02.10.2003 15:31:23
m
AW: If Block fehlt !!!!
02.10.2003 15:38:59
junny
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
Anzeige
AW: If Block fehlt !!!!
02.10.2003 15:42:38
xXx
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!
Anzeige
AW: If Block fehlt !!!!
02.10.2003 15:45:20
Hajo_Zi
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/

Anzeige
AW: If Block fehlt !!!!
02.10.2003 16:00:48
junny
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
AW: If Block fehlt !!!!
02.10.2003 16:02:12
Hajo_Zi
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/

Anzeige
AW: If Block fehlt !!!!
02.10.2003 16:04:03
junny
Hai Hajo,
aber doch nur wenn in der Inputbox nichts eingetragen wird, oder.

junny
AW: If Block fehlt !!!!
02.10.2003 16:09:20
Hajo_Zi
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/

Anzeige
AW: If Block fehlt !!!!
02.10.2003 16:18:31
junny
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
AW: If Block fehlt !!!!
02.10.2003 16:34:14
PeterW
Hallo Junny,

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

Gruß
Peter
AW: If Block fehlt !!!!
06.10.2003 06:12:27
junny
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige