Spalte finden und kopieren
12.12.2022 09:34:39
Peter
mit dem nachfolgenden Code soll in Zeile 1der Tabelle "Debitoren_SAP" die Überschrift "Betrag in Hauswährung" gefunden werden und dann die gesamte Spalte in Tabelle "Debitoren" ab Zelle A2 kopiert werden.
Ich bekomme aber einen Laufzeitfehler 424 Objekt erforderlich.
Kann mir bitte jemand helfen und den Code entsprechend korrigieren.
Danke im Voraus.Peter
Sub PrüfungWoEineBestimmteSpalteSitzt()
'prüft, wo die gesuchte Spalte sitzt
Dim Treffer As Range
With Debitoren_SAP
Set Treffer = Sheets("Debitoren_SAP").Rows(1).Find(what:="Betrag in Hauswährung", lookat:=xlWhole)
If Treffer Is Nothing Then
MsgBox "Spalte mit Betrag in Hauswährung wurde nicht gefunden"
Else
.Columns(Treffer.Column).Copy Destination:=Debitoren.Range("A2")
End If
End With
End Sub
Anzeige