Office: cells(i,j).copy & paste?

Hallo,

Ich bin gerade etwas am verzweifeln, da ich mir ein Makro geschrieben habe und ich nicht herausfinde wie etwas eingefügt wird, nachdem es kopiert wurde.

Code:

Warum fügt er das nicht richtig ein?
Bzw. warum gibt's ein einfaches
Code:

nicht?

Kennt ihr ein Tutorial oder habt einen Tipp, wie man eine einzelne Zelle einfügt?
Ich muss leider das für jede Zelle einzeln machen, da ich Transponieren muss, aber eben nicht immer.

Vielen Dank

Jürgen

:)

 

Selektier mal die Zielzelle und mach dann ein Sheets(sheet2).Paste.
Geht das?

 

In der Form:
Code:

Die Idee ist gut, nur irgendwie tut's nicht.

Gibt's eine besondere Einfügenfunktion für strings, die nur eine Zelle umfassen und bis etwa 100 Zeichen lang sind?
Quasi so:
Code:

?

 

Ich habe mal was ähnliches gemacht:

Code:

Trifft dein Problem zwar nicht richtig, aber vielleicht hilft's.

Sven

 

Hi Sven,

Hab gerade eine neue Idee:
Ich definiere mir eine neue String Variable
Code:

Nur die erste Zeile tut nicht. Er scheint das Zuweisen nicht zu verstehen.
Er sagt da: Cells(j1, i_row) =

 

copy_text = Cells(j1, i_row).text

Cells(j1, i_fin) = copy_text.value = copy_text

 

Deine Antwort aus Post #4 funktioniert.

Man muss halt nur das mit Row & Column richtig bekommen...
Wenn nichts in der Zelle ist, kopiert er kein Inhalt, fügt diesen ein und ich dachte, er macht's falsch.

Hab vielen Dank.

Jetzt sollte ich eigentlich das ganze hinbekommen. *steinvomherzfall* :-)