VBA Druckoption m. Userforn

Hallo Forum,
ich hoffe einer kann mir mal wieder weiter helfen. Ich möchte eine Druckoption per VBA
und Userform erstellen, in dem der Benutzer die Druckeigenschaften (also was er gedruck haben möchte) selber fexibel auswhlen kann.
Also der User soll die Namen welche er ausdrucken will als Buchstaben auswählen können.
Danach dann die Optionen "Namen", "Straße" und "PLZ" oder nur Namen usw....
Der Druck solle dann untereinander und je nach auswahl recht leserlich auf ein A4 sein.
Eine bsp. Datei hab ich beigefügt mit Userform, wie ich es mir so vorstelle!
vlt. kann mir jemand helfen, da ich das nicht hinbekomme.
Vielen Dank schonmal !
https://www.herber.de/bbs/user/107879.xlsm
Gruß Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() Dim varList, intI As Integer Set wksData = ActiveSheet Dim objCol As New Collection Dim bolRemove As Boolean With wksData varList = Application.WorksheetFunction.Transpose( _ .Range(.Cells(1, 2), .Cells(1, .Columns.Count).End(xlToLeft).Offset(1, 0))) 'Spaltennummern zu Spaltentiteln eintragen With Me.ListBox2 .List = varList For intI = 0 To .ListCount - 1 .List(intI, 1) = 2 + intI Next End With Me.ListBox2.Selected(0) = True For Zeile = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row With .Cells(Zeile, 2) If Trim(.Text) "" Then objCol.Add Left(Trim(.Text), 1), Left(Trim(.Text), 1) End If End With Next ReDim varList(1 To 29) As String For intI = 1 To 26 varList(intI) = Chr(64 + intI) Next varList(27) = "Ä" varList(28) = "Ö" varList(29) = "Ü" Me.ListBox1.List = varList With Me.ListBox1 For intI = .ListCount - 1 To 0 Step -1 bolRemove = True For Zeile = 1 To objCol.Count If .List(intI, 0) = objCol(Zeile) Then bolRemove = False Exit For End If Next If bolRemove = True Then .RemoveItem (intI) End If Next End With Me.CheckBox1.Value = True End With End Sub

Hallo Stefan,
da hatte ich in der Eile vergessen, die Fehlerbehandlung einzubauen, die den Fehler 456 verarbeitet (einfach zum nächsten Namen springt).
Gruß
Franz

Private Sub UserForm_Initialize()
Dim varList, intI As Integer
Set wksData = ActiveSheet
Dim objCol As New Collection
Dim bolRemove As Boolean
On Error GoTo Fehler
With wksData
varList = Application.WorksheetFunction.Transpose( _
.Range(.Cells(1, 2), .Cells(1, .Columns.Count).End(xlToLeft).Offset(1, 0)))
'Spaltennummern zu Spaltentiteln eintragen
With Me.ListBox2
.List = varList
For intI = 0 To .ListCount - 1
.List(intI, 1) = 2 + intI
Next
End With
Me.ListBox2.Selected(0) = True
For Zeile = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
With .Cells(Zeile, 2)
If Trim(.Text)  "" Then
objCol.Add Left(Trim(.Text), 1), Left(Trim(.Text), 1)
End If
End With
Next
ReDim varList(1 To 29) As String
For intI = 1 To 26
varList(intI) = Chr(64 + intI)
Next
varList(27) = "Ä"
varList(28) = "Ö"
varList(29) = "Ü"
Me.ListBox1.List = varList
With Me.ListBox1
For intI = .ListCount - 1 To 0 Step -1
bolRemove = True
For Zeile = 1 To objCol.Count
If .List(intI, 0) = objCol(Zeile) Then
bolRemove = False
Exit For
End If
Next
If bolRemove = True Then
.RemoveItem (intI)
End If
Next
End With
Me.CheckBox1.Value = True
End With
Fehler:
With Err
Select Case .Number
Case 0 'alles OK
Case 457 'doppeltes Object in Collection
Resume Next
Case Else
MsgBox "Fehler-Nr.: " & vbLf & .Description, vbOKOnly, _
"Fehler Makro: Userform-Initialize"
End Select
End With
End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Druckoption m. Userforn

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread