29.01.2022, 20:19
Hallo zusammen
Ich brauche noch einmal eine Hilfe.
Ich kopiere von einem fremden Programm (auf Excelbasis) und von meiner Arbeitsmappe die Daten in meine Exceldatei. Ich möchte diese in mein Blatt "kopieren" einfügen. Das Ziel kann immer überschrieben werden (ich benötige das nur als Zwischenspeicher.
Mit unterem Code funktioniert das tadellos, wenn ich die Daten aus meiner Arbeitsmappe kopiere und einfüge. Wenn ich jetzt das von dem fremden Programm einfüge, funktioniert das nur, wenn ich kein Range verwende. Nur wird das dann irgendwo ins Blatt eingefügt.
wenn ich Range verwende läuft der Code nicht mehr
Hier ist der gesamte Code. Mein Wunsch wäre, dass die Kopie bei "A" beginnt. irgendwie ist das nicht möglich
Ich bin für jede Hilfe oder auch Ansatz dankbar.
LG
Michael
Ich brauche noch einmal eine Hilfe.
Ich kopiere von einem fremden Programm (auf Excelbasis) und von meiner Arbeitsmappe die Daten in meine Exceldatei. Ich möchte diese in mein Blatt "kopieren" einfügen. Das Ziel kann immer überschrieben werden (ich benötige das nur als Zwischenspeicher.
Mit unterem Code funktioniert das tadellos, wenn ich die Daten aus meiner Arbeitsmappe kopiere und einfüge. Wenn ich jetzt das von dem fremden Programm einfüge, funktioniert das nur, wenn ich kein Range verwende. Nur wird das dann irgendwo ins Blatt eingefügt.
PHP-Code:
Sheets("kopieren").PasteSpecial Format:="text", NoHTMLFormatting:=True
wenn ich Range verwende läuft der Code nicht mehr
PHP-Code:
Sheets("kopieren").Range("A1").PasteSpecial Format:="text", NoHTMLFormatting:=True
Hier ist der gesamte Code. Mein Wunsch wäre, dass die Kopie bei "A" beginnt. irgendwie ist das nicht möglich
PHP-Code:
Sub Kopieren()
Sheets("kopieren").Range("A1:Z25") = ""
If Application.CutCopyMode > 0 Then 'Application.CutCopyMode > 0 nur beim Kopieren in derselben Excel-Instanz
Sheets("kopieren").Range("A1").PasteSpecial xlPasteValues ' Einfügen Werte aus der gleichen Excel-Instanz
Else
Sheets("kopieren").PasteSpecial Format:="text", NoHTMLFormatting:=True ' Einfügen Werte aus fremder Excel-Instanz
End If
End Sub
LG
Michael