Willie Hilfe

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

Betrifft: Willie Hilfe
von: junny
Geschrieben am: 22.09.2003 11:45:05

Morgen Willie,
habe in zu meiner Frage Sheets auswählen noch was ins Forum gestellt, weiß aber nicht ob dich diese noch erreicht hat.
Deswegen hier noch eine Frage dazu!!

bei mir kommt in dieser Zeile ein Fehler (Sprungmarke nicht definiert / bei weiter)

If ThisWorkbook.Sheets(i).Name = "BL ComWagen" Then GoTo weiter

weisst Du weiter??

Gruss junny

Bild


Betrifft: AW: Willie Hilfe
von: Willie
Geschrieben am: 22.09.2003 12:03:46

Hallo Junny
Dann hast du weiter:
aus dem Makro gelöscht!
Willie


Bild


Betrifft: AW: Willie Hilfe
von: junny
Geschrieben am: 22.09.2003 12:22:22

Hai Willie,
Dein makro passt aber in Verbindung mit meinem halt nicht.
Sieht so aus:

Sub FlexDruckbereich()
Dim Ende As Integer
'Druckbereich aufheben
Worksheets("Holzliste").PageSetup.PrintArea = ""
'Feststellen Letzte Benutzte Zeile
Ende = Range("E" & Rows.Count).End(xlUp).Row
'Druckbereich festlegen
Worksheets("Holzliste").PageSetup.PrintArea = "$A$1:$U$" & Ende
Worksheets("Holzliste").PrintOut Copies:=1, Collate:=True
'Beschlaglisten drucken
Dim Blatt As Worksheet
iBlatt = ThisWorkbook.Sheets.Count
For i = 2 To iBlatt
If ThisWorkbook.Sheets(i).Name = "BL ComWagen" Then GoTo weiter
If ThisWorkbook.Sheets(i).Cells(5, 2).Value <> "" Then
Worksheets(i).PrintOut Copies:=1, Collate:=True
'Else
'MsgBox ThisWorkbook.Sheets(1).Name & "wird nicht gedruckt"
If Worksheets("BL ComWagen").Cells(6, 2) <> "" Then
Worksheets("BL ComWagen").PrintOut Copies:=2, Collate:=True
End If
End If
Next
End Sub


Hier krieg ich Probleme bei weiter.
Danke, ich hoffe du kannst es nochmals anschauen junny


Bild


Betrifft: AW: Willie Hilfe
von: Willie
Geschrieben am: 22.09.2003 12:50:05

Hallo Junny ....

End If
weiter: '<--- Das hast du gelöscht!!
Next
End Sub

Gruß

Willie


Bild


Betrifft: Ahhhhhhhhh
von: junny
Geschrieben am: 22.09.2003 13:11:23

Hai Willie
ich habe nun einen hoch roten Kopf!!
Zudem habe ich mir überlegt ob ich mal wieder meine Brille überprüfen lassen sollte.

DANKE
junny


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Ausblenden Div/0"