Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > verschachtelte Wenn-Funktion ohne doppelte Datenausgabe
Normale Version: verschachtelte Wenn-Funktion ohne doppelte Datenausgabe
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

RStarck

10.01.2020, 13:11
Seid gegrüßt,

ich stehe mal wieder vor einem Problem. Ich bräuchte Hilfe in meinem Schichtplan.

- Es sind 12 Personen im Schichtbetrieb
- Es sollen die Schichthabenen in eine 2te Tabelle übertragen werden

Ich bekomme es nicht hin, dass es keine doppelten Einträge in den drei Spalten der Kurzübersicht gibt.

Beispiel:

Schichtplan: z.B. Person 1, Person 3 und Person 5 haben 24 Stundendienst (Felder C33, G33, K33)
Kurzübersicht: in den Spalten AF, AG, AH soll dann die entsprechende Person stehen

hat jemand für mich eine Lösung ?

Vielen Dank

steve1da

10.01.2020, 13:19
Hola,

und wie sollen wir jetzt ohne die Datei zu kennen helfen?
Stell dir mal vor, du hast keine Ahnung von der Datei und liest diesen Text. Was würdest du antworten?
Also lade bitte eine Beispieldatei (kein Bild) hoch.

Gruß,
steve1da

RStarck

10.01.2020, 13:22
hinzugefügt !

Basisa

10.01.2020, 14:16
Vielleicht so etwas?

RStarck

10.01.2020, 16:03
Hallo Basisa,

vielen lieben Dank hat vorerst bestens geklappt - als ich jedoch 3 zusätzliche Spalten eingefügt hatte klappte nix mehr Confused

Könntest du mir nochmals helfen ?

Basisa

10.01.2020, 20:54
Bin nur mit Handy drin, das Wochenende muss ich durchgehend arbeiten. Müsste also jemand anderes machen :)

schauan

11.01.2020, 22:03
Hallöchen,

wenn Du Dir das Makro zum Button aufrufst siehst Du selbiges:

Code:
Sub eintragen()
Dim i, i2 As Integer

For i = 33 To 63 Step 1
    For i2 = 3 To 26 Step 1
        If Cells(i, i2).Value <> "" Then
            If Cells(i, 32).Value = "" Then
                Cells(i, 32).Value = Cells(28, i2).Value
            ElseIf Cells(i, 33).Value = "" Then
                Cells(i, 33).Value = Cells(28, i2).Value
            Else
                Cells(i, 34).Value = Cells(28, i2).Value
            End If
        End If
    Next
    
Next

End Sub

Du trägst in mehreren Spalten Daten ein. Bei der Angabe Cells(x, y) ist die erste Angabe (x) immer die Zeile und die zweite Angabe (y) die Spalte.
Wenn Du jetzt mal auf Deinem Blatt die alten Spaltennummern z.B. mit der Funktion =SPALTE() ermittelst und die "neuen" Nummern ebenso kannst Du sehen, welche Zahl im Code durch welche zu ersetzen ist Smile

Basisa

12.01.2020, 20:35
Das wäre nur eine winzige Änderung.
Wir sind ja hier um zu helfen, nicht alles zu machen ^^

Versuche dich mal selber, so lernt man es eben.
Wenn es gar nicht gehen sollte. Melde dich einfach erneut!

Gruß

TIPP siehe über mir hier!!!
Clever-Excel-Forum > Office-Anwendungen > Excel > verschachtelte Wenn-Funktion ohne doppelte Datenausgabe