WVerweis / SVerweis

Guten Morgen Excel-Profis,

ich hab mir da eine Aufgabe gestellt, der ich scheinbar nicht gewachsen bin, bzw. vergisst man so schnell.

Ich habe mal beispielhaft einen Belegungsplan in Tabelle1. Auf Tabelle2 möchte ich eine Reinigung anhand des Datums (Zelle B1) auswerten. Dabei soll im Belegungsplan in der Spalte B nach dem Datum gesehen werden und dann nach rechts die jenigen Zimmer übertragen werden, die "dran" sind. Dabei soll das Gebäude (A oder B) aus Zeile 3, das Zimmer (EZ/DZ) aus Zeile 4 und die Nummer des Zimmers aus Zeile 5 sowie die Uhrzeit (norm/late) aus der Zelle übertragen werden.
Vermutlich ist es, da ja nach rechts gesucht wird, ein WVerweis, ich bin aber schon bei der Suche nach dem Datum gescheitert....

Vielleicht weiß ja jemand von euch, wie das zu bewerkstelligen ist.

Danke
Christian

https://www.herber.de/bbs/user/162263.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Christian!

Ich hab´s nur mit VBA hinbekommen.
Einen Formelansatz hatte ich auch, aber der war mit den fortgeschrittenen Funktionen von O365, also wenig hilfreich für dich.

Daher hier meine VBA-Lösung.

-	A	B	C	E	F
1	Datum:	05.01.2023
2
3	Gebäude	Zimmernummer	Einzel- oder Doppelzimmer	Abreise	Uhrzeit
4	A	10	Einzelzimmer	JA	08:00
5	A	14	Einzelzimmer	Nein
6	A	18	Einzelzimmer	Nein
7	A	20	Einzelzimmer	JA	12:00
8	B	306	Doppelzimmer	Nein

Sub Zimmerreinigungsplan()



    Dim row As Single

    Dim z As Single

    Dim num As Range

    Dim sh_rein As Worksheet

    Dim sh_Beleg As Worksheet

    Set sh_rein = Sheets("Reinigung")

    Set sh_Beleg = Sheets("Belegung")

    

    Set gefunden = sh_Beleg.Range("B:B").Find(sh_rein.Range("B1"))

    If gefunden Is Nothing Then MsgBox "das Datum gibt´s nicht", vbExclamation, "Fehler": Exit Sub

    

    z = 4

    row = gefunden.row

    For Each num In sh_Beleg.Range("E5:AA5") 'alle Zimmer durchgehen

        

        If num.Offset(-1, 0) > 0 Then DZ_EZ = num.Offset(-1, 0) 'wg verbundener Zellen ist nur die erste zelle mit einem Wert belegt. daher bleibt der bestehen solange kein neuer Wert kommt.

        If num.Offset(-2, 0) > 0 Then Gebäude = num.Offset(-2, 0) 'hier auch

                

        With sh_Beleg.Cells(row, num.Column)

            If .Interior.ColorIndex > xlNone Then 'Zimmer belegt

                If .Value = "" Then

                    Abreise = "Nein"

                    Uhrzeit = ""

                Else

                    Abreise = "JA"

                    Select Case .Value

                        Case "norm": Uhrzeit = "8:00"

                        Case "late": Uhrzeit = "12:00"

                    End Select

                End If

          

                With sh_rein 'Daten eintragen

                    .Cells(z, "A") = Gebäude

                    .Cells(z, "B") = num

                    .Cells(z, "C") = DZ_EZ

                    .Cells(z, "E") = Abreise

                    .Cells(z, "F") = Uhrzeit

                    z = z + 1

                End With

            End If

        End With

    Next

End Sub

Aus deiner xlsx-Datei wird dann natürlich eine xlsm

Viel Erfolg!
Gruß, MCO

Sub Zimmerreinigungsplan() Dim row As Single Dim z As Single Dim num As Range Dim sh_rein As Worksheet Dim sh_Beleg As Worksheet Set sh_rein = Sheets("Reinigung") Set sh_Beleg = Sheets("Belegung") Set gefunden = sh_Beleg.Range("B:B").Find(sh_rein.Range("B1")) If gefunden Is Nothing Then MsgBox "das Datum gibt´s nicht", vbExclamation, "Fehler": Exit Sub z = 4 row = gefunden.row For Each num In sh_Beleg.Range("E5:AA5") 'alle Zimmer durchgehen If num.Offset(-1, 0) > 0 Then DZ_EZ = num.Offset(-1, 0) 'wg verbundener Zellen ist nur die erste zelle mit einem Wert belegt. daher bleibt der bestehen solange kein neuer Wert kommt. If num.Offset(-2, 0) > 0 Then Gebäude = num.Offset(-2, 0) 'hier auch With sh_Beleg.Cells(row, num.Column) If .Value > "" Then Select Case .Value Case "norm": Uhrzeit = "8:00" Case "late": Uhrzeit = "12:00" End Select With sh_rein 'Daten eintragen .Cells(z, "A") = Gebäude .Cells(z, "B") = num .Cells(z, "C") = DZ_EZ '.Cells(z, "E") = "JA" .Cells(z, "F") = Uhrzeit z = z + 1 End With End If End With Next End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

WVerweis / SVerweis

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread