Keine Ergebnisse gefunden für "wieso kann ich seit vorgesternnicht mehr mit der rechten...

Hi,

hat sich inzwischen wieder einmal erledigt/in Wohlgefallen aufgelöst.

Dein Computer das unbekannte wesen.

Gruß

M.S.

Hallo Rico,

schau hier:

https://onedrive.live.com/?cid=9378...#cid=9378AAB6121822A3&id=9378AAB6121822A3!325

nach "Beispiel Arbeitsplan Forum"

Durch das Hochladen nach OneDrive ist die Datengültigkeit in L3 verloren gegangen und muss wieder neu erstellt werden.

Mit freundlichen Grüßen

Claus

Hallo Rico,

falls das Blatt nicht "Tabelle1" heißt ändere im Code den Blattnamen. Ändere auch den Ausgabebereich. Im Moment ist er B30 abwärts.

Sub Arbeitstage()

Dim rngBig As Range

Dim c As Range

Dim FirstAddress As String, myStr As String

Dim myArr() As Variant

Dim n As Long

With Sheets("Tabelle1")

Set rngBig = Union(.Range("B3:M9"), .Range("B12:M18"), .Range("B20:M26"))

Set c = rngBig.Find("Rico", LookIn:=xlValues)

If Not c Is Nothing Then

FirstAddress = c.Address

Do

Select Case c.Row

Case 3 To 9

myStr = .Cells(2, c.Column)

Case 12 To 18

myStr = .Cells(11, c.Column)

Case 20 To 26

myStr = .Cells(19, c.Column)

End Select



If Len(myStr) > 0 Then

ReDim Preserve myArr(n)

myArr(n) = myStr

n = n + 1

End If



Set c = rngBig.FindNext(c)

Loop While Not c Is Nothing And c.Address <> FirstAddress

End If



.Range("B30").Resize(rowsize:=UBound(myArr) + 1) = _

Application.Transpose(myArr)



End With

End Sub

Mit freundlichen Grüßen

Claus

Nochmal Hallo,

kann ich die Formel auch so erweitern, dass sie noch in anderen Spalten zusätzlich zu den bereits genannten sucht? Hintergrund ist hier, dass ich diese Tabelle mehrfach untereinander kopiert habe um sie übersichtlicher zu gestalten, der aufbau ist hier gleich,
somit müsste der Suchbereich nochmals nach unten erweitert werden.

Somit starten die nächsten Pläne dann mit dem Wochentag wie im Schema oben zusätzlich in Zeile 11 sowie 19.

Ich hoffe ich konnte den Hintergrund erklären.

Vielen Dank!

VG

Hallo Claus,

danke für die schnelle Antwort.

Ich habe einfach eine Vermutung geäußert, ich will mich da auf keine Vorgehensweise einschränken.

Es handelt sich um einen Monatsplan:

Zeile 2 enthält nach rechts fortlaufend die Wochentage( bsp. Montag, 23.Juni 2014).

Unter den jeweiligen Tagen sind die Mitarbeiter notiert, die an diesem Tag arbeiten. Spalte A enthält passend hierzu die Arbeitsorte, diese sind aber nur zum Verständnis und nicht für den SVERWEIS relevant.

Generell also eher ein WVERWEIS, vom Prinzip aber ja gleich.

Ziel soll jetzt sein, als Suchkriterium den MA auswählen zu können, und durch den Verweis das Datum zurückzugeben wird, an dem der Mitarbeiter eingesetzt wird. Dies wie gesagt dann so lange, bis keine Ergebnisse mehr gefunden werden.

Wäre über Hilfe dankbar!

VG

Rico