Spalte als Zahl ausgeben

Moin
In deinem Code ist die Spalte immer A!?
Versuch mal so. Die Spaltennummer wird in die Tag Eigenschaft gesetzt. Und auch wieder ausgelesen.


Private Sub UserForm_Initialize()
Dim i As Integer
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
With Me.Controls.Add("Forms.CheckBox.1", Name:=i)
.Left = 100
.Width = 400
.Top = 50 + lngZaehler * 25
.Caption = Cells(i, 1)
.Tag = Cells(i, 1).Column '---Spaltenummer
lngZaehler = lngZaehler + 1
End With
End If
Next
End Sub

und fuer den Button


Dim ctrl As Msforms.Control
For Each ctrl In Me.Controls
If TypeName(ctrl) = "CheckBox" Then
If ctrl.Object.Value = True Then
MsgBox ctrl.Name
MsgBox ctrl.Tag '---Spaltennummer
End If
End If
Next
End Sub

gruss hary

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

Forumthread: Spalte als Zahl ausgeben

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Spalte als Zahl ausgeben

Forumthread: Spalte als Zahl ausgeben

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread