VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Schleifen	08.03.2014 18:40:00	Norbert
Schleifen	09.03.2014 08:40:26	frau
Schleifen	09.03.2014 19:44:26	Gast50588
Schleifen	10.03.2014 18:02:14	Gast80615

Ansicht des Beitrags:

Von:
Norbert

Datum:
08.03.2014 18:40:00

Views:
1572

Rating:

Antwort:

Thema:
Schleifen

Leider bin ich blutiger Anfänger in VBA, suche aber trotzdem nach einer Lösung

Es gibt eine Tabelle - Schichtplan - in diese die ganzen Daten eingefügt werden, wie F=Frühschicht, M=Mittelschicht, N=Nachtschicht etc.

Nun will ich bei der Auswertung die Daten aus der Schichtplan Tabelle in Tabelle1 einfügen.

Da klappt auch prima, nur - ich müsste dazu den untenstehenden Block für jeden einzelnen Kollegen zusammenbasteln.

Untenstehend das Beispiel für 2 Kollegen.

Ich denke das geht mit einer Schleife viel geschickter, weiß aber nicht wie so etwas gemacht wird.

Hat jemand eine Lösung dazu?

Private Sub OptionButton87_Click()
Range("Tabelle1!B2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB87:UB87=""F"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!C2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB87:UB87=""M"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!D2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB87:UB87=""N"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!E2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB87:UB87=""U"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!F2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB87:UB87=""AZG"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!G2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB87:UB87=""SF"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!H2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB87:UB87=""K"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!I2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB87:UB87=""Ka"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!J2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB87:UB87;(""F""))"
Range("Tabelle1!K2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB87:UB87;(""M""))"
Range("Tabelle1!L2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB87:UB87;(""N""))"
Range("Tabelle1!M2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB87:UB87;(""U""))"
Range("Tabelle1!N2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB87:UB87;(""AZG""))"
Range("Tabelle1!O2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB87:UB87;(""SF""))"
Range("Tabelle1!P2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB87:UB87;(""K""))"
Range("Tabelle1!Q2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB87:UB87;(""KA""))"
End Sub
Private Sub OptionButton88_Click()
Range("Tabelle1!B2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB88:UB88=""F"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!C2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB88:UB88=""M"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!D2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB88:UB88=""N"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!E2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB88:UB88=""U"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!F2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB88:UB88=""AZG"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!G2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB88:UB88=""SF"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!H2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB88:UB88=""K"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!I2").FormulaLocal = "=SUMMENPRODUKT((Schichtplan!GB88:UB88=""Ka"")*(Schichtplan!GB1:UB1<=HEUTE()))"
Range("Tabelle1!J2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB88:UB88;(""F""))"
Range("Tabelle1!K2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB88:UB88;(""M""))"
Range("Tabelle1!L2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB88:UB88;(""N""))"
Range("Tabelle1!M2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB88:UB88;(""U""))"
Range("Tabelle1!N2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB88:UB88;(""AZG""))"
Range("Tabelle1!O2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB88:UB88;(""SF""))"
Range("Tabelle1!P2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB88:UB88;(""K""))"
Range("Tabelle1!Q2").FormulaLocal = "=ZÄHLENWENNS(Schichtplan!GB88:UB88;(""KA""))"
End Sub

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
Schleifen	08.03.2014 18:40:00	Norbert
Schleifen	09.03.2014 08:40:26	frau
Schleifen	09.03.2014 19:44:26	Gast50588
Schleifen	10.03.2014 18:02:14	Gast80615