AW: Frage: sind beide Dateien geöffnet?
31.01.2022 15:57:23
UweD
Hallo
dann so.
Sub Aram()
Dim WB1 As Workbook, TB1 As Worksheet
Dim WB2 As Workbook, TB2 As Worksheet
Dim Spalte As Integer, Zeile As Long, Such As String
Dim objData As New DataObject ' Microsoft Forms 2.0 object library erforderlich!
Dim varVar As Variant
Set WB1 = ThisWorkbook
Set TB1 = WB1.Sheets("Tabelle1")
Set WB2 = Workbooks("22.xlsm")
Set TB2 = WB2.Sheets("Muster")
Spalte = 2 'Suchspalte B
Such = TB1.Range("H5")
objData.GetFromClipboard
varVar = objData.GetText
' Ist der Wert vorhanden?
Zeile = WorksheetFunction.CountIf(TB2.Columns(Spalte), Such)
If Zeile > 0 Then
'Wenn Ja, in welcher Zeile
Zeile = WorksheetFunction.Match(Such, TB2.Columns(Spalte), 0)
'Darunter Zwischenablage einfügen
TB2.Cells(Zeile + 1, Spalte) = varVar
End If
Set objData = Nothing
End Sub
LG UweD