Datum in Tab suchen, Werte vergleichen und Inhalte kopieren

[Micha63]

Hallo Zusammen, Hallo schauan...

Habe jetzt mit der Datei versucht und probiert. Bekomme leider nicht das Ergebnis das ich möchte.
Habe die Datei nochmal hochgeladen. 
Vielleicht kannst du dir das Ganze nochmal anschauen.

Gruß Micha




Datei:

[Micha63]

Hallo Schauan,
sorry die Datei war gesperrt...

Hier jetzt ohne Schutz.

Wollte es so haben das nur die Daten die in z.B. arrSchichtF(iCnt) stehen auch gesucht und angezeigt werden.

Hoffe das du mir dies bezüglich nochmal helfen kannst.
Danke und Gruß Micha





  Planung Test.xlsm (Größe: 111,96 KB / Downloads: 5)

[schauan]

Hallo Micha,

Beim Entwickeln solltest Du entweder möglichst ganz auf On Error verzichten oder eine Fehlerbehandlung programmieren, die Dir ein paar Info's ausgibt.

In Deinem Code steht min. 2x
Worksheets("Plan")

Ich finde aber kein Plan, sondern nur Tagesplanung. Vielleicht ist das schon der Punkt.

[Micha63]

Hallo Schauan,
stimmt.

Habe es geändert in Tagesplanung, aber das selbe Ergebnis.

Suche nach F in D1 = Ergebnis alle Werte DF, S usw.

es sollte doch aber eigentlich nur nach dem gesucht werden : arrSchichtF = Array("F", "F1", "F2", "A1", "Ü1")... Kein DF oder S.

Tja bin leider mit meinem Latein am Ende, weiß nicht weiter.  :22:

Gruß Micha

[Rabe]

Hi,

ich weiß nicht, ob es etwas ausmacht, aber Du hast in Deinem Code bei der Dimensionierung der Variablen zwei Methoden:

Code:

.
   Dim wsMon As Worksheet, lngC As Long, arD, arA, arB, arP, arZ, qq As Long
   Dim arE(), arF(), ee As Long, ff As Long, bolPr As Boolean

Soviel ich weiß, werden nur die Variablen mit einer speziellen Type versehen, bei denen "As" steht, alle anderen sind Variant.

Das heißt, die Variablen
arD, arA, arB, arP, arZ sind Variant, sollten die nicht Array sein?
qq ist Long
desgleichen:
arE(), arF() sind Variant
ee ist Long

Ich würde es so machen:

Code:

.
   Dim wsMon As Worksheet
   Dim lngC As Long
   Dim arD As Array
   Dim arA As Array
   Dim arB As Array
   Dim arP As Array
   Dim arZ As Array
   Dim qq As Long
   Dim arE() As Array
   Dim arF() As Array
   Dim ee As Long
   Dim ff As Long
   Dim bolPr As Boolean

Ist zwar länger, aber übersichtlicher und einfacher nachzuvollziehen.

Außerdem hast Du die Variablen sprechend benamst:
lngC als Long
arD als Array
bolPr als Boolean

Irgendwie stimmt das nicht überein mit den "ar", die Du als Variant definiert hast.