Hallo Excelaner..
habe nachfolgenden Code eingebaut um nur markierte Elemente einer textBox drucken zu können. Jetzt will ich aber, nach dem erkannt wurde dass in der TextBox markierte Elemente existieren, eine Abfrage einbauen ob man nun wirklich den ganzen Text oder nur die markierten einträge drucken will. aussedem soll ich noch abbrechen können.
[code]
Dim Temp As Worksheet
Dim i As Integer
Dim iRow As Integer
On Error GoTo FEHLER
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
iRow = 3
Set Temp = Worksheets.Add
With Temp
If ListBox1.ListIndex (grösserals) 0 Then
'If MsgBox("Nur markierten Bereich frucken?", vbQuestion + vbYesNo, "Drucken") = vbYes Then

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Cells(iRow, 1) = ListBox1.List(i)
iRow = iRow + 1
End If
Next
Else

For i = 0 To ListBox1.ListCount - 1
Cells(i + 3, 1) = ListBox1.List(i)
Next
End If
.PrintOut
.Delete
End With



FEHLER:
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
[code]
Bitte um Hilfe..irgend wie klappt das bei mir nicht...
Danke