09.12.2024, 18:10
Hallo zusammen,
ich habe über Makro aufzeichnen Werte aus einer intelligenten Tabelle kopiert, in Sheet "Übersicht" in Zelle B11 eingefügt und anschließend die duplikate entfernt.
Das Makro ist einem Piktogram hinterlegt.
Kann mir jemand bei folgendem Code das so anpassen, dass immer nur in Zelle B11 in Übersicht die Daten eingefügt werden, egal welche Zelle gerade aktiv ist?
Sub CopyPasteMN()
'
' CopyPasteMN Makro
'
'
Sheets("Datenbank").Select
Range("Tabelle1[[#All],[Mandantennummer]]").Select
Selection.Copy
Sheets("Übersicht").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$B$11:$B$366").RemoveDuplicates Columns:=1, Header:= _
xlYes
End Sub
Danke sehr.
VG
Andreas :)
ich habe über Makro aufzeichnen Werte aus einer intelligenten Tabelle kopiert, in Sheet "Übersicht" in Zelle B11 eingefügt und anschließend die duplikate entfernt.
Das Makro ist einem Piktogram hinterlegt.
Kann mir jemand bei folgendem Code das so anpassen, dass immer nur in Zelle B11 in Übersicht die Daten eingefügt werden, egal welche Zelle gerade aktiv ist?
Sub CopyPasteMN()
'
' CopyPasteMN Makro
'
'
Sheets("Datenbank").Select
Range("Tabelle1[[#All],[Mandantennummer]]").Select
Selection.Copy
Sheets("Übersicht").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$B$11:$B$366").RemoveDuplicates Columns:=1, Header:= _
xlYes
End Sub
Danke sehr.
VG
Andreas :)