Hallo zusammen
Ich brauche wieder einmal Hilfe
Ich weiss, dass folgendes Thema schon mind.1000x ausgelutscht wurde. aber ich habe nichts gefunden für mein Problem. Ich kopiere von einer anderen Mappe einige Sachen und füge die in mein Arbeitsblatt Range ("A1") mit folgendem Code ein
Funktioniert auch gut
Jetzt mein Problem. Sobald ich vorher folgende Prozedur durchlaufen lasse
Funktioniert die Paste Funktion nicht mehr, da das Kopierte aus dem Speicher verschwindet. Ich muss aber vorher den Bereich A1:D40 löschen.
Und der kopierte Bereich soll immer in "A1" eingefügt werden. Der zu kopierende Bereich ist variabel. tlw A1 bis C20 oder B2 bis D15 usw.
Vielleicht hat jemand eine Idee wie ich den festgelegten Bereich lösche und die "Paste Funktion" funktioniert ohne dass der "Kopiespeicher" gelöscht wird. Entschuldigt für das Wort "Kopiespeicher". Ich weiß aber nicht wie das heißt. Achso. Ursprünglich habe ich mit
gearbeitet. Nur hat mir dieses die Numlocktaste am Firmen PC ausgeschaltet (Warum auch immer)
LG
Michael
Ich glaube (bin mir aber noch nicht sicher) dass ich die Lösung gefunden habe
statt
.Range("A1:D40").Clear
verwende ich
.Range("A1:D40") = ""
Der Fehler ist (momentan) weg
Trotzdem danke an alle
LG
Michael
Ich brauche wieder einmal Hilfe
Ich weiss, dass folgendes Thema schon mind.1000x ausgelutscht wurde. aber ich habe nichts gefunden für mein Problem. Ich kopiere von einer anderen Mappe einige Sachen und füge die in mein Arbeitsblatt Range ("A1") mit folgendem Code ein
PHP-Code:
ActiveSheet.Paste Cells(1, 1)
Funktioniert auch gut
Jetzt mein Problem. Sobald ich vorher folgende Prozedur durchlaufen lasse
PHP-Code:
With ActiveSheet
.Range("A1:D40").ClearContents
.Range("A1:D40").Interior.ColorIndex = xlNone
End With
Und der kopierte Bereich soll immer in "A1" eingefügt werden. Der zu kopierende Bereich ist variabel. tlw A1 bis C20 oder B2 bis D15 usw.
Vielleicht hat jemand eine Idee wie ich den festgelegten Bereich lösche und die "Paste Funktion" funktioniert ohne dass der "Kopiespeicher" gelöscht wird. Entschuldigt für das Wort "Kopiespeicher". Ich weiß aber nicht wie das heißt. Achso. Ursprünglich habe ich mit
Code:
SendKeys ("^v")
gearbeitet. Nur hat mir dieses die Numlocktaste am Firmen PC ausgeschaltet (Warum auch immer)
LG
Michael
Ich glaube (bin mir aber noch nicht sicher) dass ich die Lösung gefunden habe
statt
.Range("A1:D40").Clear
verwende ich
.Range("A1:D40") = ""
Der Fehler ist (momentan) weg
Trotzdem danke an alle
LG
Michael