Thema Datum  Von Nutzer Rating
Antwort
03.04.2013 14:06:07 Gast43716
NotSolved
Blau Nächste Zeile für Textboxen
 15.07.2013 22:18:28 Neuhäusler Korbinian
*****
Solved

Ansicht des Beitrags:
Von:
Neuhäusler Korbinian		 Datum:
15.07.2013 22:18:28		 Views:
1619		 Rating:
     
Antwort:
 Nein
Thema:
Nächste Zeile für Textboxen

Counter mitlaufen lassen.

Wenn der Counter 8 erreicht wird er Zurückgesetzt und Zeile um 1 erhöht.

 

hf damit

 

Dim counter As Integer
Dim zeile As Integer
Dim a As Integer

counter = 0
zeile = 0
For a = 1 To 280
    Sheets(UserForm1.ComboBox1.Text).Cells(1 + zeile, 2 + a).Value = Me.Controls("Textbox" & a)

    counter = counter + 1
    If counter = 8 Then
        zeile = zeile + 1
        counter = 0
    End If
Next a

 

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:



  • 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
03.04.2013 14:06:07 Gast43716
NotSolved
Blau Nächste Zeile für Textboxen
 15.07.2013 22:18:28 Neuhäusler Korbinian
*****
Solved