Wir wünschen allen Forenteilnehmern ein frohes Fest und einen guten Rutsch ins neue Jahr. x

Einfügen in fester Zelle unabhängig von aktiver Zelle
#1
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 :)
Antworten Top
#2
Hi,

ohne das Makro jetzt zu "verfeinern":

Sheets("Übersicht").Select
Sheets("Übersicht").Range("B11").Select
Selection.PasteSpecial....
[-] Folgende(r) 1 Nutzer sagt Danke an {Boris} für diesen Beitrag:
  • Meliodas
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste