AW: stimmt so nicht
16.05.2021 19:51:01
Daniel
Hallo zusammen!
Ich schon wieder!
Puh da habe ich was angefangen! Nun habe ich meinen Code noch etwas ergänzt. Und zwar mit einem Label. Dies soll anzeigen ob eine Etikette gedruckt wird oder nicht. Wird die CheckBox ausgewählt, so sollte hinten im Label die Textfarbe grün werden und darin stehen "Etiketten werden gedruckt"!
Erstens weis ich nicht wie der Code aussehen soll, zweitens wohin muss ich dieser schreiben? Ich vermute jetzt mal in UserForm_Initialize?
Ihr mein ergänzter Code
Private Sub UserForm_Initialize()
Dim i As Integer
Dim s As Byte
Dim lolast As Long
Dim lngZaehler As Long
Worksheets(1).Activate
lolast = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = 1 To lolast
If Cells(i, 1).Font.ColorIndex = 3 Then
Dif1 = 30 - Len(Cells(i, 1))
Dif2 = 30 - Len(Cells(i, 2))
Dif3 = 30 - Len(Cells(i, 3))
With Me.Controls.Add("Forms.CheckBox.1", Name:=i)
.Font.Size = 12
.Left = 100
.Width = 600
.Top = 50 + lngZaehler * 25
.Caption = Cells(i, 1) & String(Dif1, 32) & vbTab & vbTab & Cells(i, 2) & String(Dif2, 32) _
& vbTab & vbTab & Cells(i, 3) & String(Dif3, 32) & vbTab & vbTab & Cells(i, 4)
.Tag = Cells(i, 1).Column '---Spaltenummer
lngZaehler = lngZaehler + 1
End With
With Me.Controls.Add("Forms.Label.1", Name:=i)
.Left = 750
.Width = 140
.Top = 27 + lngZaehler * 25
.Font.Size = 12
.ForeColor = vbRed
.Caption = "Druckt keine Etiketten!"
End With
End If
Next
End Sub
Gruss Daniel