Bei Prüfung Wert übertragen?
03.08.2017 08:53:41
Peter
ich habe ein Makro das prüft ob der Mitarbeiter in einem Zeitraum im Plan war, das funktioniert soweit ganz prima. Kann mir jemand weiter helfen bei einem Problem?
Ich möchte gerne wenn der Wert OK ist (also ist ja im Plan) dann den Wert dazu aus der Tabelle1 z. B Spalte E in die Tabelle2 in Spalte O übertragen also ähnlich wie Sverweis?
Vielen Dank für eure Hilfe
Grüße
Peter Arnold
Makro =
Sub Abrechung()
' Abrechnung Makro
'Füge neben die Spalte L eine neue Spalte ein
Columns("L:L").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("M1").Select
'Gebe der Spalte eine Überschrift
ActiveCell.FormulaR1C1 = "Prüfung_DPP"
Range("M2").Select
'Formel eingeben
ActiveCell.FormulaR1C1 = _
"=IF(COUNTIFS(Tabelle1!C[-12],""=""&RC[-3],Tabelle1!C[-9] _
_
_
_
,RC[-7]),""OK"",""nicht OK"")"
Dim lngLast As Long
lngLast = Cells(Rows.Count, 1).End(xlUp).Row
'Kopiere die Formel bis zur letzen befüllten Zelle
Range("M2").AutoFill Destination:=Range("M2:M" & lngLast)
'Kopieren und einfügen, damit nur die Werte aber nicht die Formeln stehen bleiben
Columns("M:M").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Save
End Sub