Thema Datum  Von Nutzer Rating
Antwort
10.11.2016 12:07:04 Henrik
NotSolved
Blau Automatisch n zellen mit Wert füllen
 10.11.2016 12:29:55 Gcstange
*****
Solved
11.11.2016 10:13:26 Henrik
NotSolved

Ansicht des Beitrags:
Von:
Gcstange		 Datum:
10.11.2016 12:29:55		 Views:
578		 Rating:
     
Antwort:
 Nein
Thema:
Automatisch n zellen mit Wert füllen

Hallo Henrik

Hoffe habe deine Aufgabenstellung richtig verstanden. 

Probier mal diesen Code.

Sub NwerteAbüllen()
    Dim iTabelle1 As Integer
    Dim iTabelle2 As Integer
    
    'Beginnt bei Zeile 3 mit abfüllen
    iTabelle1 = 3
    'Beginnt bei Zeile 1 mit lesen
    iTabelle2 = 1
    
    'Iteration über alle Kategorien in Tabelle2
    Do While Sheets(2).Cells(iTabelle2, 1) <> ""
        
        'läuft so lange bis alle Felder einer Kategorie abgefüllt sind
        For Z = 1 To Sheets(2).Cells(iTabelle2, 2)
        
            'Füllt die Werte in die Tabelle1
            Sheets(1).Cells(iTabelle1, 1) = Sheets(2).Cells(iTabelle2, 1) & Z
            
            'Zähler Tabelle1 + 1
            iTabelle1 = iTabelle1 + 1
        Next Z
        
        'Zähler Tabelle2 + 1
        iTabelle2 = iTabelle2 + 1
    Loop
End Sub

Gruss

 

 

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
10.11.2016 12:07:04 Henrik
NotSolved
Blau Automatisch n zellen mit Wert füllen
 10.11.2016 12:29:55 Gcstange
*****
Solved
11.11.2016 10:13:26 Henrik
NotSolved