Office: kopieren, transponieren

Ich suche nach einem Makro das

1. einen von mir gewählten Bereich kopiert (Spalte B)
2. diesen Bereich in eine Zeile (B18) einfügt (Transponieren), wenn sie noch frei ist, wenn nicht dann in die nächste freie Zeile in der Spalte B nach 18 (B19 usw.)
3. Zelle A1 kopiert
4. in Zelle A18 einfügt, wenn sie noch frei ist, wenn nicht dann in die nächste freie Zeile in der Spalte A nach 18 (A19 usw.)

Soweit bin ich schon gekommen, doch leider bekomme ich die Abfrage ob die Zeile frei ist und wenn nicht, dass es in die nächste freie Zeile eingefügt werden soll nicht hin.

Code:

:)

 

LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
If Loletzte

 

Danke für die Antwort.

Nur... wie baue ich das jetzt in den bestehenden Code ein?

 

Du hast doch den Code erstellt, da muss es Dir docjh klar sein wo.

vor Range("B18").Select

Range("B" & Loletzte+1).PasteSpecial Paste:=xlPasteAll

Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Online-Excel.de
Gruß Hajo

 

Hallo Hajo,

schön, daß Du so giut Bescheid weißt über die Theorie von '.Select'
Leider vermisse ich immer noch die praktische Umsetzung in dem AddIn '32_64_bit_xhtml_add_in.xlam'.
Dort gibt es 16-mal dieses o.g. Konstukt.
Da kommt mir immer wieder diese Weisheit ein: 'Wasser predigen und Wein trinken!'

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

es sind 0,1 % damit habe ich meine Vorgabe eingehalten.

Gruß Hajo

 

Danke, Hajo_Zi.
Ich habe herausgefunden warum es bei mir nicht funktioniert hatte.
Zuerst dachte ich wirklich ich würde deinen Baustein falsch verwenden, doch dann ist es mir aufgefallen.

Ich hatte einen Buchstaben-Dreher drin und hatte deswegen jedes Mal keinen Erfolg.


Also, noch einmal vielen Dank für deine Hilfe.