Thema Datum  Von Nutzer Rating
Antwort
22.06.2017 23:04:22 Angelo
NotSolved
Blau Schleife
 23.06.2017 04:41:21 Werner
NotSolved
24.06.2017 20:58:47 Angelo
NotSolved
24.06.2017 22:16:26 Mackie
NotSolved
24.06.2017 22:17:31 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
23.06.2017 04:41:21		 Views:
921		 Rating:
     
Antwort:
  Ja
Thema:
Schleife

Hallo Angelo,

hast du dir deinen Beitrag eigentlich mal angeschaut?

Zum Code einfügen bitte oben in der Leiste das Code-Fenster benutzen. Das funktioniert aber nicht mit dem IE, da kannst du ja z.B. Firefox benutzen. So kann man dann mit dem Code auch was anfangen.

Ehrlich gesagt habe ich keine Ahnung was du in einer Schleife von 1-31 befüllen willst

Ich hab in deinen Code mal zwei Schleifen zum Befüllen eines Teils der Textboxen und zum setzen der Checkboxen eingebaut. Bzgl. der Checkboxen musst du jetzt aber deine Anordnung auf deiner Userform anpassen. Damit sie alle in einer Schleife abgearbeitet werden können sind die jetzt chronologisch 9-16 ==> W-AC.

Zudem das ganze in eine With - End With Klammer, das spart dann das ständige schreiben des Blattes.

Im Übrigen kannst du dir beim Übertragen der Werte vom Blatt in die Textboxen das Format-Gedöns sparen. wenn du das als Text überträgst

TextBox1 = .cells(1, 1).Text

dann wird es in der Textbox so dargestellt, wie es auch in der Zelle aussieht.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim i As Long
 
With Tabelle13
    For i = 14 To 21
        Me.Controls("Textbox" & i) = .Cells(7, i - 9).Text
    Next i
 
    TextBox22 = Format(.Range("p7"), "0.00") & " Std."
    TextBox23 = Format(.Range("Q7"), "0.00") & " €"
    TextBox24 = Format(.Range("r7"), "0.00") & " €"
    TextBox25 = .Range("a7") & ", " & .Range("b7")
    TextBox26 = .Range("c7")
     
    For i = 9 To 16
        Me.Controls("Checkbox" & i) = Cells(7, i + 14)
    Next i
     
    If .Range("n7") = "" Then
        ComboBox2 = "Deutschland"
    Else
        ComboBox2 = .Range("n7")
    End If
     
    If CDate(TextBox18) < CDate(TextBox19) Then TextBox20.ForeColor = &HFF&
 
End With

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.06.2017 23:04:22 Angelo
NotSolved
Blau Schleife
 23.06.2017 04:41:21 Werner
NotSolved
24.06.2017 20:58:47 Angelo
NotSolved
24.06.2017 22:16:26 Mackie
NotSolved
24.06.2017 22:17:31 Mackie
NotSolved