AW: angenommen Deine formatierte Tabelle ...
18.03.2022 16:09:36
ChrisL
Hi Fred
Ich bin zu 100 % bei Yal. Wieso erst viele Daten in die Tabelle ablegen, wenn du nachher sowieso nur einen kleinen Teil davon brauchst.
Trotzdem noch kurz die Frage beantwortet. Passt schon fast, aber bei Destination ging der Punkt vergessen. Zudem liesse sich die With-Klammer noch erweitern.
Sub daten2_b()
With Worksheets("import")
.Range("J2").FormulaLocal = "=WENNFEHLER(INDEX(J:J;AGGREGAT(15;6;ZEILE(live_daten)/(live_daten=$N3);1););"""")"
.Range("J2:J2").AutoFill Destination:=.Range("J2:EJ2"), Type:=xlFillDefault
.Range("J2:EJ2").Copy
.Range("J2").PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
End Sub
Und hier noch eine andere Variante:
Sub t()
Dim lngZeile As Long
With Worksheets("import")
lngZeile = Application.Match(.Range("N3"), .ListObjects("live_daten").ListColumns(5).DataBodyRange, 0)
.Range("J2:EJ2").Value = .ListObjects("live_daten").ListRows(lngZeile).Range.Value
End With
End Sub
cu
Chris