Office: (Office 2013) nächste freie Spalte auswählen

Hallo zusammen,
ich bin was VBA angeht leider ein totaler Neuling und habe mir im Internet folgenden Code ergoogelt.


Sheets("Tabelle1").Range("B5").Copy
Worksheets("Tabelle2") _
.Cells(Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) _
.PasteSpecial xlPasteFormulasAndNumberFormats, Transpose:=True


Der funktioniert auch, allerdings möchte ich gerne, dass nicht die Zelle nach unten gezählt wird, sondern eine Spalte nach rechts. Also ich hätte die Ausgaben gerne nicht untereinandern sondern in der gleichen Zeile von links nach rechts durch.

Mit meinem Wissen schaffe ich es allerdings nicht, diesen Code zu meinen Wünschen anzupassen. Kann mir da eventuell jemand weiter helfen?

Bin für jede Antwort dankbar!

:)

 

Wenn Du schon den Code für die letzte ZEILE ergoogelt hast, kannst Du nicht das gleiche für die letzte SPALTE finden?

 

Ich habe leider nichts gefunden, was am Ende funktioniert hat, sonst hätte ich das hier nicht gepostet

 

für Zeile 1
LoLetzte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count)

oder Tabelle
Spalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column

 

erstmal danke ich dir für deine Anwort! Leider muss ich dir sagen, dass ich noch nicht ganz weiß, wie ich das mit obigem Code funktionierend verbinden kann und mir deshalb noch nicht ganz weiter hilft. Ich bin in dem Thema leider echt noch eine Niete *sos

 

ersetze 2 die Spalte durch meine Variable.

 

was meinst du denn mit "2 die Spalte"?

 

edit: falsche Antwort...

 

mir wird das jetzt zu blöd. Du kennst Deinen Code also nicht.
Viel Erfolg noch.

 

Deine Antworten sind unmöglich...

 

ich kenne den Code auch nicht ?!?!? Ich habe doch gesagt, ich habe den selbst nur gegooglet und habe gehofft, dass mir hier jemand weiter helfen kann???

 

Probier das Mal :

Code:

 

Das funktioniert schonmal, vielen Dank!!
Ist es damit auch möglich den "Startpunkt" variabel festzulegen? Also wenn ich jetzt sage, ich würde gerne jetzt in der Zelle C5 meinen ersten Werte haben und von da aus nach rechts rücken?

 

Vielleicht erklärst Du mal genauer, was Du überhaupt erreichen willst.

Du kopierst den Wert EINER Zelle in ein anderes Blatt mit dem Parameter Transpose=True, was überhaupt keinen Sinn macht...

 

Ich habe in B5 einen Namen stehen und möchte den auf ein anderes Sheet in Zelle C5 kopieren. Dann trage ich bei B5 einen neuen Namen ein und dieser soll dann in C6 erscheinen. Dann wieder einen neuen Namen und der dann in C7 und so weiter.