Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalte von Spalte B bis .... verschieben?

Forumthread: Zellinhalte von Spalte B bis .... verschieben?

Zellinhalte von Spalte B bis .... verschieben?
Spalte
Hallo Leute,
wie kann ich per VBA die Zellinhalte von Spalte B, C, D usw. (bis letzte benutzte Spalte) in Spalte A immer in nächste leere Zelle verschieben?
Besten Dank im Voraus!
Viele Grüße,
Selma
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellinhalte von Spalte B bis .... verschieben?
08.07.2010 09:25:42
Spalte
Hallo, 
Sub ttt()
Dim arrTmp, i As Long, j As Long, n As Long, arrDaten
arrTmp = ActiveSheet.UsedRange
ReDim arrDaten(1 To Application.CountA(arrTmp))
For i = 1 To UBound(arrTmp, 2)
For j = 1 To UBound(arrTmp)
If arrTmp(j, i)  "" Then
n = n + 1
arrDaten(n) = arrTmp(j, i)
End If
Next j
Next i
Sheets(2).Cells(1, 1).Resize(n, 1) = _
WorksheetFunction.Transpose(arrDaten)
End Sub

Gruß
Rudi
Anzeige
AW: Zellinhalte von Spalte B bis .... verschieben?
08.07.2010 13:34:07
Spalte
Hallo Rudi,
super... es funktioniert. Danke!!!
Das habe ich geändert: ActiveSheet.Cells(1, 1).Resize(n, 1) = WorksheetFunction.Transpose(arrDaten)
Im Anschluß muss ich noch nach Verschieben die Werte von Spalte B... bis letzte benutzte Spalte löschen.
Viele Grüße,
Selma
;

Forumthreads zu verwandten Themen

Makro zum Befüllen von Spalten aus einer 2. Datei
Spalten

Hallo zusammen,
wurde leider wieder von eine Aufgabe gestellt, die meine beschränkten Makro Fähigkeiten ziemlich ausreizt.
Ich habe eine ziemlich große xls Datei (>100 Spalten), die für den Export in mehrere txt.Dateien für eine Fremdsoftware Schnittstelle benötigt wird.
Nun wu...
18.11.2008 09:39:00
Thread-ID: 1025506
3 Beiträge
Anzeige
kopieren/filtern von x-Spalten in x-Blättern
x-Spalten

So, anderes Thema:
Ich habe eine Arbeitsmappe mit verschiedenen Arbeitsblättern, diese Arbeitsblätter sind von der struktur her alle gleich aufgebaut, nur der Inhalt unterscheidet sich voneinander.
Ich möchte jetzt eine Auflistung generieren, die mir auf dem letzten Blatt der Arbeitsmap...
22.11.2008 16:34:00
Thread-ID: 1026984
16 Beiträge
Makro-einfügen spalten;verschieben;löschen spalten
Oli

https://www.herber.de/bbs/user/57281.xls
Hallo zusammen,
ich würde mir sehr gerne die Arbeit erleichtern benötige hierzu aber eure Hilfe.
In der anliegenden Tabellen soll das programm nach dem öffnen zunächst einmal vorne eine zusätzliche Spalte einfügen. Anschließend beginnend von...
01.12.2008 14:46:27
Thread-ID: 1029268
3 Beiträge
Einfügen von Zeilen, Spalten u. Zellen verhindern.
Zeilen,

Hallo
Wie kann ich mit VBA das einfügen und löschen von Zeilen, Spalten und Zellen verhindern.
Wäre lieb von Euch wenn jemand mir helfen könnte
Gruß
Dino
08.03.2009 18:06:43
Thread-ID: 1057918
2 Beiträge
Anzeige
VBA: Spalteninhalt dynamisch verschieben
Dom

Hallo zusammen,
ich möchte einen Spalteninhalt (dynamisch) um einen Faktor nach unten verschieben.
Normalerweise gibt es ja folgende Funktion
Range("D4:I4").Select
Selection.Cut Destination:=Range("D5:I5")
Range("D5:I5").Select
Da dies jedoch nicht Dynamisch ist (d.h....
09.06.2009 18:10:04
Thread-ID: 1080235
2 Beiträge
Vergleichen von Spalten/Mindest Häufigkeit
Spalten/Mindest

Hallo zusammen,
ich habe ein Problem beim Vergleichen von Spalten und es wäre toll, wenn mir hier jemand helfen könnte.
Ich habe mehrere Spalten in denen verschiedenen Sprachen stehen.
Also in Spalte 1 z.B. Englisch, Franzsösich, Deusch, Spanisch
in Spalte 2 z.B. Französisch, S...
23.06.2009 18:44:36
Thread-ID: 1083905
14 Beiträge
Daten von zwei Spalten in einer
zwei

Hallo Gemeinde,
ich habe 14 Spalten ( A bis N), wobei immer die Daten der nebeneinanderliegenden Spalten zusammen gehören. (Also A und B, C und D etc.).
Auf einer anderen Tabelle sollen die Daten der oben genannten UNTEREINANDER (Spalte A:B) erscheinen.
Mit folgendem Code komm ich...
14.10.2009 22:49:48
Thread-ID: 1109642
8 Beiträge
Zellinhalte von Spalte B bis .... verschieben?
Spalte

Hallo Leute,
wie kann ich per VBA die Zellinhalte von Spalte B, C, D usw. (bis letzte benutzte Spalte) in Spalte A immer in nächste leere Zelle verschieben?
Besten Dank im Voraus!
Viele Grüße,
Selma
08.07.2010 09:39:45
Thread-ID: 1166062
2 Beiträge
Anzeige
Spalten nach links auffüllen ohne Leerzellen
Mike

Hallo,
ich stehe vor folgendem Problem und weiß da leider keine Lösung:
Ich habe eine Excel-Datei mit zig Tausend Datensätzen, in A2 Steht z.B. Titel, B2 Vorname, in B3 Strasse und so weiter. Nun handelt es sich bei diesen Datensätzen um Ärzte denen bestimmte Fachrichtungen zugeordnet s...
17.12.2010 16:50:03
Thread-ID: 1191944
12 Beiträge
+/- Ausgabe aufgrund Folge von 2 Spalteneinträge
2

Hallo Excelianer,
habt Ihr eine Idee, wie ich die +/- Einträge automatisiert auf Basis der 2 Regelen darstellen kann.
Die Spalten F,G,H, sind lediglich Hilfsspalten.
Ich scheitere immer daran, wenn ich auf einen vorherigen Block schauen muss. In Regel 1 muss ich ja im selben Bereic...
13.05.2011 16:01:26
Thread-ID: 1213743
2 Beiträge
abhängig von Tabellenblatt, Spalten einblenden
Tabellenblatt,

Hallo zusammen,
meine Excel-Datei besteht aus zwei nahezu identischen Tabellenblättern. Auf beiden Tabellenblättern kann eine PDF-Datei erzeugt werden, welche automatisch per Outlook versendet wird.
Der Unterschied sollte nun sein, dass bei einem Tabellenblatt (z.B. "Blatt2") die Spalt...
15.04.2013 11:01:31
Thread-ID: 1308807
6 Beiträge
Werte von 3 Spalten in eine Spalte umwande
3

Wie wandele ich Werte um, die in 3er Reihen in der Spalte A,B,C stehen,
dass die Werte in Zeile 1 in Spalte A,B,C in Spalte 1 und in Zeile 1-3 stehen.
Die Werte in Zeile 2 dann in Zeile 4-6 usw. Siehe Datei.
https://www.herber.de/bbs/user/88113.xls
16.11.2013 14:24:43
Thread-ID: 1338787
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige