Office: range in anderem tabellenblatt ansprechen

DeBabba · 24. Mai 2015

Hallo Forum,
hab da mal wieder was, wo ich einfach nicht weiter komme
ABER vielleicht kann mir hier jemand helfen
ALSO:
Ich habe eine Mappe aus welcher Daten in eine andere Mappe kopiert werden sollen. Also öffne ich die zweite Mappe und setzte einen Bereich. nun suche ich ein Datum in der 2. Mappe (mit Application.match), erhalte hier jedoch einen Fehler 5 (rot markierte zeile) . Da dies alles funktioniert, wenn ich die 2. Mappe als sheet in der ersten habe, weiß ich nicht so recht wo ich suchen soll.
Hier der Code
Code:

StaPath = Sheets("Master").Cells(4, 28)
MaFile = ActiveWorkbook.Name
Set PivBla = Sheets("PI-KPi1")
'Set StaBla = Sheets("Statistic")
Workbooks.Open (StaPath)
Set StaFile = ActiveWorkbook
Set StaBla = Sheets("Statistic")
Set DatRg = StaBla.Range(StaBla.Cells(1, 1), StaBla.Cells(1, 400))
Set GrRg = StaBla.Range(StaBla.Cells(2, 1), StaBla.Cells(50, 2))
Windows(MaFile).Activate
'-----------------------
Zaehl1 = 0
A = Range(PivBla.Cells(1, 1), PivBla.Cells(500, 1)).Find("Delivery Days").Row + 2
B = PivBla.Cells(A - 1, 3).End(xlToRight).Column - 1
Zaehl1 = A
Zaehl2 = 0
'-----------------------
For Lop0 = 0 To 10
Gr = PivBla.Cells(Zaehl1, 1)
If InStr(1, Gr, "Gesamtergebnis", vbTextCompare) > 0 Then Exit For
For Lop1 = 0 To 10
Team = PivBla.Cells(Zaehl1, 2)
'----
For Lop2 = 3 To B
GrTe = Gr & "+" & Team
Datum = PivBla.Cells(A - 1, Lop2).Value
XX = A + Lop1
Wert = PivBla.Cells(A + Zaehl2, Lop2).Value
'------übernahme--------------
Col = DatRg.Cells(Application.Match(CDbl(Datum), DatRg)).Column
Rei = GrRg.Find(GrTe).Row
'StaBla.Cells(Rei, Col).Select
StaBla.Cells(Rei, Col) = Wert
'--------ende-----------------
Next Lop2

Zaehl1 = Zaehl1 + 1
Zaehl2 = Zaehl2 + 1

Next Lop1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Also ichbenötige die Spaltennummer des Datums aus Mappe 2
Würde mich freuen, wenn ihr mir hier helfen könntet*wink.gif*

Gruß
DeBabba

:)

Mc Santa · 25. Mai 2015

Hallo,

Match dürfte dir bereits die Spaltennummer als Zahl ausgeben. Column ist somit unnötig:
Code:

Col = DatRg.Cells(Application.Match(CDbl(Datum), DatRg))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VG
Santa

Beverly · 25. Mai 2015

Hi,

mit Application.Match, also =VERGLEICH(), kannst du m.W. nur in einer bestimmten Spalte oder bestimmten Zeile suchen, nicht jedoch in einem mehrspaltigen und mehrzeiligen Bereich,

Beverly · 25. Mai 2015

Da DatRg ein Zeilenbereich ist, ist mein vorheriger Beitrag nicht korrekt. Aber bei dir fehlt der 3. Parameter, außerdem gibt Match bereits die Spaltennumer wieder

Code:

Col = Application.Match(CDbl(Datum), DatRg, 0)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

DeBabba · 25. Mai 2015

Hallo ,
erst mal Danke für euer schnelles Feedback
@ Santa
Sorry, auchhier der Fehler 5 (Ungültiger Prozeduraufruf oder ungültiges Argument
@ Beverly
Das mit dem Match funktionert soweit prima (habe die Idee von Hajo_Zi). Ich muss hier ein datum in einem bereich finden. Find funktioniert hierbei überhaupt nicht.
Wie schon beschrieben. Habe ich das Statistikblatt in der mappe 1 funzt das alles prima

Beverly · 25. Mai 2015

schau mal in meinen Beitrag von 11:18 - habe ihn korrigiert.

DeBabba · 25. Mai 2015

Hi karin,
habs mal probiert und bekomme bei
Col = Application.Match(CDbl(Datum), DatRg, 0)
einen Fehler 2042
und bei
Col = DatRg.Cells(Application.Match(CDbl(Datum), DatRg), 0)
einen laufzeitfehler 13 (Typen unverträglich)

Weist Du was Fehler 2042 ist ??

Gruß
Klaus

Beverly · 25. Mai 2015

Hi Klaus,

und was sagt der Debugger genau?

DeBabba · 25. Mai 2015

Hi Karin,
sorry
Pebcak :-)
Problem exist between chair and keyboard
Das gesuchte datum war nicht in der 2. Mappe. (hatte da zuvor etwas "rumprobiert")
Danke für Deine Hilfe
Die Zeile
Col = DatRg.Application.Match(CDbl(Datum), DatRg, 0)
funktioniert bestens

Nochmals vielen vielen Dank

gruß
DeBabba Klaus

Office: range in anderem tabellenblatt ansprechen

range in anderem tabellenblatt ansprechen

range in anderem tabellenblatt ansprechen

range in anderem tabellenblatt ansprechen

range in anderem tabellenblatt ansprechen

range in anderem tabellenblatt ansprechen - Similar Threads - range tabellenblatt ansprechen

Excel Range als Bild in Word einfügen

SVERWEIS mit Range von bis funktioniert nicht?

Macro Fehler Subscript out of Range

Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".

2x Worksheet_Change(ByVal Target As Range)

Turnierdatenbank Punkteausweisung anhand Rang

In Excel per VBA Range durchsuchen, Zellinhalt in anderes Tabellenblatt übertragen