MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 30.03.2018, 12:38   #1
rhaego
Neuer Benutzer
Neuer Benutzer
Standard Excel 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!
rhaego ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 13:47   #2
Scorefun
MOF Meister
MOF Meister
Standard

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

__________________

Gruss Ralf
======================================
Bitte keine PN Anfragen - Hilfe erfolgt nur im Forum!
======================================
Vorsicht Beim Ausprobieren...
Auch Chaotischer Code Entwickelt Sich Ständig
1) Intel I5-2500K, 4x3,3 Ghz, 8GB RAM, Asus P8P67, 250GB SSD Toshiba Q-Pro, 1,5TB HD, MSI GTX550TI, Win7-Prof 64-bit SP1, Office 2010 Plus SP1
2) Asus Zenbook Flip UX360UAK-C4203T, 13,3 Zoll, i5-7200U, 2,5 Ghz, 8GB RAM, 256GB SSD, Win10 Home 64-bit, Office 2016 Plus
Scorefun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 14:56   #3
rhaego
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ich habe leider nichts gefunden, was am Ende funktioniert hat, sonst hätte ich das hier nicht gepostet
rhaego ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 14:58   #4
Hajo_Zi
MOF Guru
MOF Guru
Standard

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

GrußformelHomepage

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 15:49   #5
rhaego
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

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
rhaego ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 15:51   #6
Hajo_Zi
MOF Guru
MOF Guru
Standard

ersetze 2 die Spalte durch meine Variable.

Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 16:02   #7
rhaego
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

was meinst du denn mit "2 die Spalte"?
rhaego ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 16:07   #8
Scorefun
MOF Meister
MOF Meister
Standard

edit: falsche Antwort...

__________________

Gruss Ralf
======================================
Bitte keine PN Anfragen - Hilfe erfolgt nur im Forum!
======================================
Vorsicht Beim Ausprobieren...
Auch Chaotischer Code Entwickelt Sich Ständig
1) Intel I5-2500K, 4x3,3 Ghz, 8GB RAM, Asus P8P67, 250GB SSD Toshiba Q-Pro, 1,5TB HD, MSI GTX550TI, Win7-Prof 64-bit SP1, Office 2010 Plus SP1
2) Asus Zenbook Flip UX360UAK-C4203T, 13,3 Zoll, i5-7200U, 2,5 Ghz, 8GB RAM, 256GB SSD, Win10 Home 64-bit, Office 2016 Plus
Scorefun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 16:08   #9
Hajo_Zi
MOF Guru
MOF Guru
Standard

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

Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 16:10   #10
Scorefun
MOF Meister
MOF Meister
Standard

Zitat: von Hajo_Zi Beitrag anzeigen

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

Deine Antworten sind unmöglich...

__________________

Gruss Ralf
======================================
Bitte keine PN Anfragen - Hilfe erfolgt nur im Forum!
======================================
Vorsicht Beim Ausprobieren...
Auch Chaotischer Code Entwickelt Sich Ständig
1) Intel I5-2500K, 4x3,3 Ghz, 8GB RAM, Asus P8P67, 250GB SSD Toshiba Q-Pro, 1,5TB HD, MSI GTX550TI, Win7-Prof 64-bit SP1, Office 2010 Plus SP1
2) Asus Zenbook Flip UX360UAK-C4203T, 13,3 Zoll, i5-7200U, 2,5 Ghz, 8GB RAM, 256GB SSD, Win10 Home 64-bit, Office 2016 Plus
Scorefun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 16:14   #11
rhaego
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

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???
rhaego ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 16:26   #12
Scorefun
MOF Meister
MOF Meister
Standard

Probier das Mal :

Code:

Dim lastRow As Long
Dim lastColumn As Long

'Letzte Zeile in Spalte B finden
lastRow = Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
'Letzte Spalte finden
lastColumn = Worksheets("Tabelle2").Cells(lastRow, Columns.Count).End(xlToLeft).Column

Sheets("Tabelle1").Range("B5").Copy
Worksheets("Tabelle2") _
.Cells(lastRow, lastColumn + 1) _
.PasteSpecial xlPasteFormulasAndNumberFormats, Transpose:=True

__________________

Gruss Ralf
======================================
Bitte keine PN Anfragen - Hilfe erfolgt nur im Forum!
======================================
Vorsicht Beim Ausprobieren...
Auch Chaotischer Code Entwickelt Sich Ständig
1) Intel I5-2500K, 4x3,3 Ghz, 8GB RAM, Asus P8P67, 250GB SSD Toshiba Q-Pro, 1,5TB HD, MSI GTX550TI, Win7-Prof 64-bit SP1, Office 2010 Plus SP1
2) Asus Zenbook Flip UX360UAK-C4203T, 13,3 Zoll, i5-7200U, 2,5 Ghz, 8GB RAM, 256GB SSD, Win10 Home 64-bit, Office 2016 Plus
Scorefun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 16:32   #13
rhaego
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

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?
rhaego ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 16:40   #14
Scorefun
MOF Meister
MOF Meister
Standard

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...

__________________

Gruss Ralf
======================================
Bitte keine PN Anfragen - Hilfe erfolgt nur im Forum!
======================================
Vorsicht Beim Ausprobieren...
Auch Chaotischer Code Entwickelt Sich Ständig
1) Intel I5-2500K, 4x3,3 Ghz, 8GB RAM, Asus P8P67, 250GB SSD Toshiba Q-Pro, 1,5TB HD, MSI GTX550TI, Win7-Prof 64-bit SP1, Office 2010 Plus SP1
2) Asus Zenbook Flip UX360UAK-C4203T, 13,3 Zoll, i5-7200U, 2,5 Ghz, 8GB RAM, 256GB SSD, Win10 Home 64-bit, Office 2016 Plus
Scorefun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.03.2018, 16:45   #15
rhaego
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

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.
rhaego ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:32 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.