Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Jede dritte Zeile andere Schriftart in Labels?
zurück: Sverweis zu Vlookup? weiter: BeforeClose vs. BeforeSave: Die 2. Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Käpsele
Einsteiger


Verfasst am:
22. Jan 2013, 18:46
Rufname: Käpsele

Jede dritte Zeile andere Schriftart in Labels? - Jede dritte Zeile andere Schriftart in Labels?

Nach oben
       Version: Office 2010

Hallo liebe Forenhelfer,

ich stehe wieder vor einem Problem...

Ich befülle einen Frame mit Labels und jede 3. Zeile wird in einer anderen Schriftart bzw. kleiner dargestellt.

Ich kann am Code nichts erkennen, was das auslösen könnte?

Code:
Private Sub UserForm_Initialize()
Dim LB As Control, LC As Control, LD As Control, LE As Control, LF As Control, LG As Control, LH As Control, LI As Control
Dim LabelCount1 As Integer
Dim i As Long
Dim t As Long
Dim ALetzte As Long
Dim ZeileMax As Long

'ZeileMax = Tabelle3.Range("d_AnzahlWerkstuecke").Value

t = 0

For i = 1 To 10 'ZeileMax
                                                   
    Set LB = Test.Frame1.Add("Forms.Label.1", Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 2).Value, True)
    Set LC = Test.Frame1.Add("Forms.Label.1", Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 3).Value, True)
    Set LD = Test.Frame1.Add("Forms.Label.1", Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 4).Value, True)
    Set LE = Test.Frame1.Add("Forms.Label.1", Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 5).Value, True)
    Set LF = Test.Frame1.Add("Forms.Label.1", Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 6).Value, True)
    Set LG = Test.Frame1.Add("Forms.Label.1", Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 7).Value, True)
    Set LH = Test.Frame1.Add("Forms.Label.1", Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 8).Value, True)
    Set LI = Test.Frame1.Add("Forms.Label.1", Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 9).Value, True)

    With LB '
        .Top = t
        .Left = 0
        .Width = 80
        .Caption = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 2).Value
        .ForeColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 2).Font.Color
        .Font.Size = 9
        .Height = 14
        .TextAlign = 3
    End With
   
    With LC 'Werkstückpreis
        .Top = t
        .Left = LB.Left + LB.Width + 5
        .Width = 80
        .Caption = Format(Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 3).Value, "#,##0.000 €")
        .ForeColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 3).Font.Color
        .BackColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 3).Interior.Color
        .Font.Size = 9
        If i > 0 Then .BorderStyle = 1
        .Height = 14
        .TextAlign = 2
    End With
   
    With LD 'Kunststoff
        .Top = t
        .Left = LC.Left + LC.Width - 1
        .Width = 150
        .Caption = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 4).Value
        .ForeColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 4).Font.Color
        .BackColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 4).Interior.Color
        .Font.Size = 9
        If i > 0 Then .BorderStyle = 1
        .Height = 14
        .TextAlign = 1
    End With
   
    With LE ' € / kg
        .Top = t
        .Left = LD.Left + LD.Width - 1
        .Width = 60
        .Caption = Format(Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 5).Value, "#,##0.00 € / kg")
        .ForeColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 5).Font.Color
        .BackColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 5).Interior.Color
        .Font.Size = 9
        If i > 0 Then .BorderStyle = 1
        .Height = 14
        .TextAlign = 2
    End With
   
    With LF 'Gewicht des Werkstücks
        .Top = t
        .Left = LE.Left + LE.Width - 1
        .Width = 60
        .Caption = Format(Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 6).Value, "#,##0")
        .ForeColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 6).Font.Color
        .BackColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 6).Interior.Color
        .Font.Size = 9
        If i > 0 Then .BorderStyle = 1
        .Height = 14
        .TextAlign = 2
    End With
   
    With LG 'Kosten je Werkstück
        .Top = t
        .Left = LF.Left + LF.Width - 1
        .Width = 60
        .Caption = Format(Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 7).Value, "#,##0.000 €")
        .ForeColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 7).Font.Color
        .BackColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 7).Interior.Color
        .Font.Size = 9
        If i > 0 Then .BorderStyle = 1
        .Height = 14
        .TextAlign = 2
    End With
   
    With LH 'Gewicht Anguss
        .Top = t
        .Left = LG.Left + LG.Width - 1
        .Width = 50
        .Caption = Format(Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 8).Value, "#,##0")
        .ForeColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 8).Font.Color
        .BackColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 8).Interior.Color
        .Font.Size = 9
        If i > 0 Then .BorderStyle = 1
        .Height = 14
        .TextAlign = 2
    End With
   
    With LI 'Kosten Anguss
        .Top = t
        .Left = LH.Left + LH.Width - 1
        .Width = 60
        .Caption = Format(Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 9).Value, "#,##0.000 €")
        .ForeColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 9).Font.Color
        .BackColor = Tabelle4.Range("k_Materialeinzelkosten").Cells(i, 9).Interior.Color
        .Font.Size = 9
        If i > 0 Then .BorderStyle = 1
        .Height = 14
        .TextAlign = 2
    End With
   
LabelCount1 = LabelCount1 + 1
t = t + 13
Next i
Test.Frame1.ScrollHeight = LabelCount1 * 13
End Sub


Die Datei habe ich zum besseren Verständnis beigefügt...


vielen Dank für eure Hilfe, ich werde fast verrückt...

schöne Grüße
Käpsele



Mappe1.xlsm
 Beschreibung:

Download
 Dateiname:  Mappe1.xlsm
 Dateigröße:  31.75 KB
 Heruntergeladen:  15 mal

Charly30
Der Koch


Verfasst am:
22. Jan 2013, 20:55
Rufname:

AW: Jede dritte Zeile andere Schriftart in Labels? - AW: Jede dritte Zeile andere Schriftart in Labels?

Nach oben
       Version: Office 2010

Hallo.
In deinem Code die viert-letzte Zeile:
Code:
t = t + 13

ändern in:
Code:
t = t + 15

Erzeugt bei mir in allen Zeilen eine gleichgroße Schrift. Frag mich nicht wieso und weshalb. Und ich weiß auch nicht wie du die "Lücken" dann wegbekommst.

Noch Fragen? Wink
Gruß
Käpsele
Einsteiger


Verfasst am:
23. Jan 2013, 12:44
Rufname: Käpsele


AW: Jede dritte Zeile andere Schriftart in Labels? - AW: Jede dritte Zeile andere Schriftart in Labels?

Nach oben
       Version: Office 2010

Hallo Charly30,

vielen Dank für deine Hilfe!

Das muss man wieder nicht verstehen, weshalb Excel so reagiert...
Aber ich glaube, ich habe eine Talent um sämtliche Bugs in Excel zu finden und dabei zu verzweifeln...

Dankeschön für den entscheidenden Hinweis!

viele Grüße
Käpsele
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Text aus Zeile ohne Finden-Funktion 2 Gast 675 30. März 2006, 12:35
Gast Text aus Zeile ohne Finden-Funktion
Keine neuen Beiträge Excel Formeln: Gesamte Zeile überprüfen ... 3 Elmo4873 707 26. März 2006, 18:18
Gast Gesamte Zeile überprüfen ...
Keine neuen Beiträge Excel Formeln: Formeln automatisch in neu eingefügte Zeile übertragen 3 Ferencz 1727 27. Feb 2006, 15:22
Klaus-Dieter Formeln automatisch in neu eingefügte Zeile übertragen
Keine neuen Beiträge Excel Formeln: Wenn Bedingung nicht erfüllt Zeile ausblenden? 1 Gast 2556 26. Jan 2006, 15:27
ae Wenn Bedingung nicht erfüllt Zeile ausblenden?
Keine neuen Beiträge Excel Formeln: in Zeile aus Spalten schreiben??? 6 robert_de 2318 25. Nov 2005, 12:10
robert_de in Zeile aus Spalten schreiben???
Keine neuen Beiträge Excel Formeln: Zahlen in einer Zeile auswerten nach den Größtwerten 11 Nicole-Fun 908 26. Okt 2005, 09:44
ransi Zahlen in einer Zeile auswerten nach den Größtwerten
Keine neuen Beiträge Excel Formeln: Frage zu Spalte ==> Zeile 2 Sven 15 519 23. Sep 2005, 11:03
Sven 15 Frage zu Spalte ==> Zeile
Keine neuen Beiträge Excel Formeln: bedingte Formatierung ganze Zeile enfärben 2 skyblue 2516 06. Sep 2005, 12:41
skyblue bedingte Formatierung ganze Zeile enfärben
Keine neuen Beiträge Excel Formeln: Suchen und übereinstimmung in neue Zeile 2 Sternenhimmel75 821 03. Aug 2005, 08:27
Sternenhimmel75 Suchen und übereinstimmung in neue Zeile
Keine neuen Beiträge Excel Formeln: Formatierung einer Zeile wenn das Wort CL vorkommt 13 Kemal76 2055 22. Jul 2005, 14:55
Kemal76 Formatierung einer Zeile wenn das Wort CL vorkommt
Keine neuen Beiträge Excel Formeln: Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopieren 2 Unregistered7 1556 05. Mai 2005, 22:32
Gast Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopieren
Keine neuen Beiträge Excel Formeln: zuletzt befüllte Zeile anzeigen 1 michi1234 949 29. März 2005, 13:54
fridgenep zuletzt befüllte Zeile anzeigen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum