Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

420to424

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

zeile in spalten

Forumthread: zeile in spalten
9 Beiträge zu diesem Forumthread
Anzeige
299 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

zeile in spalten

Jürg

Hallo Forum
Habe ein anliegen!
Möchte einen Bereich M6:P17 in eine spalte Transponieren . es sollte dann so aussehen B65:B112. Aber das tronsponieren macht das nicht so(kann es auch nicht!!) kann mir jemand einen Tip geben, wie ich einen Bereich in eine Splate bringe
Vieln Dank
Mit Gruss
Jürg

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: zeile in spalten

Mac4
AW: zeile in spalten

Jürg
AW: zeile in spalten

Mac4
AW: zeile in spalten

Jürg
kurze Nachfrage

Mac4
AW: kurze Nachfrage

Jürg
AW: kurze Nachfrage

Mac4
AW: kurze Nachfrage

Jürg
AW: zeile in spalten

Jürg

AW: zeile in spalten

Mac4

Hi,
dieses Makro schreibt die Werte des Bereichs A1:C2 untereinander in die Spalte E:


Sub test()
Dim zl
zl = 1
For Each Zelle In Range("A1:C2")
Cells(zl, 5).Value = Zelle.Value
zl = zl + 1
Next
End Sub

Marc

AW: zeile in spalten

Jürg

Hallo Mac
vielen Dank!!!
Kannst du mir noch aufzeichen wie sich das verhaltet wenn die daten in unterschiedlichen mappen sind?

AW: zeile in spalten

Mac4

Hi,
jetzt werden die Daten im Sheet "Test" in Spalte A untereinander geschrieben:


Sub test()
Dim zl
zl = 1
For Each Zelle In Range("A1:C2")
Sheets("Test").Cells(zl, 1).Value = Zelle.Value
zl = zl + 1
Next
End Sub

Marc

AW: zeile in spalten

Jürg

Vielen dank Mac
noch ein anliegen...
wie mach ich das wenn ich die Daten in einer Mappe3 hollen will ind dann in Mappe 1 einfügen will? geht das auch?
mit Gruss
jürg

kurze Nachfrage

Mac4

Meinst Du mit Mappe richtigerweise Datei oder Tabellenblatt?

AW: kurze Nachfrage

Jürg

ja kann man das auch übergreifend machen?
einmal wäre ich froh von Datei zu Datei und das andere mal von Tabellenblatt zu tabellenblatt!!
vielen Dank für die deinen Einsatz!
mit gruss
Jürg

AW: kurze Nachfrage

Mac4

Hi,
erst mal für den Fall von Tabellenblatt zu Tabellenblatt. Diese Lösung hast Du schon, kopier den Code in das Tabellenmodul der Tabelle, in der die Daten stehen (Alt+F11).
Für die Fall Datei zu Datei gehört der Code in das Tabellenmodul des Tabellenblattes der Datei, in der die Daten stehen.
Die Pfadangabe und Tabellenbezeichnungen musst Du natürlich noch anpassen


Sub test()
Dim zl
Workbooks.Open FileName:="C:\Test\Test.xls"
zl = 1
For Each Zelle In Range("A1:C2")
Activeworkbook.Sheets("Tabelle1").Cells(zl, 1).Value = Zelle.Value
zl = zl + 1
Next
End Sub

Marc

AW: kurze Nachfrage

Jürg

Hallo Marc
vielen Dank , funktioniert !!!!!
mit Gruss
Jürg

AW: zeile in spalten

Jürg

Hallo Mac
vielen Dank!!!
Kannst du mir noch aufzeichen wie sich das verhaltet wenn die daten in unterschiedlichen mappen sind?