Laufzeitfehler 13, Typen unverträglich
16.12.2021 17:18:53
Alexander
Die andere Tabelle heisst zB "15.11.21 AB1". Finde ich dort in AG "offen" soll er mir die Werte von C6-AG6 übernehmen
Der Hammer: Er macht das für eine Zeile korrekt,
dann kommt "Laufzeitfehler 13, Typen unverträglich" bei If wks.Cells(i, "AG").Value = "offen" Then
Jetzt steh ich aufm voll aufm Schlauch....wie kann das sein?
Danke im Voraus!
Code
----------------------------
Sub Zusammenfassen()
Dim wks As Excel.Worksheet
Dim rngTarget As Range
Dim i As Long
Set wks = Worksheets("15.11.21 AB1")
Set rngTarget = Worksheets("Übersicht").Range("C6")
For i = 4 To 48
If wks.Cells(i, "AG").Value = "offen" Then
wks.Range("D" & i & ":AG" & i).Copy Destination:=rngTarget
Set rngTarget = rngTarget.Offset(1)
End If
Next
End Sub