Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten links nach rechts und überspringen

Spalten links nach rechts und überspringen
Laund
Bitte um Hilfe bei den VBA-Profis
Alle Daten befinden sich in Spalte B. Ich müsste jetzt Spalten von links nach rechts füllen.
Und es sollte immer eine Spalte überspringen.
Die Reihenfolge sollte sein, Spalte:
B D F H J L N P R T
und dann die nächste Zeile von vorne.
Als Anfänger habe ich folgendes gemacht. Man müsste das aber irgendwie in eine Schleiffe packen:
"
Dim lrow As Long
lrow = Range("B" & Rows.Count).End(xlUp).Row
Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row).Cut
Range("D1").Select
ActiveSheet.Paste
Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row).Cut
Range("F1").Select
ActiveSheet.Paste
"
usw...
Danke für Eure Hilfe
AW: Spalten links nach rechts und überspringen
01.05.2012 15:44:06
Laund
habe mal etwas gebastelt...
So macht er alles in Spalte B von links nach rechts jetzt sollte er aber nach Spalte T auf nächster Zeile bei Spalte B beginnen...
Danke für weitere Tips 

Dim lrow As Long
Dim m As Long
Dim d As Long
lrow = Range("B" & Rows.Count).End(xlUp).Row
m = 2
d = 4
For i = 1 To lrow
Range(Cells(2, m), Cells(lrow, m)).Cut
Cells(1, d).Select
ActiveSheet.Paste
m = m + 2
d = d + 2
lrow = lrow - 1
Next i

AW: Spalten links nach rechts und überspringen
01.05.2012 16:18:59
Josef

Hallo Laund,
so?
Sub ausfuellen()
  Dim lngRow As Long, lngLast As Long, lngCol As Long
  
  With ActiveSheet
    lngLast = Application.Max(2, .Cells(.Rows.Count, 2).End(xlUp).Row)
    For lngRow = 2 To lngLast
      For lngCol = 4 To 20 Step 2
        .Cells(lngRow, lngCol) = .Cells(lngRow, 2)
      Next
    Next
  End With
  
End Sub



« Gruß Sepp »

Anzeige
AW: Spalten links nach rechts und überspringen
01.05.2012 16:18:59
Hans-Jochen
Hallo Laund ,
Wenn du Daten aus Spalte B aufteilen willst, verwende doch im Menü Daten die Funktion Text in Spalten.
Dort kanst du die Daten Teilen und bestimmen in welche Spalte die Daten sollen .
mfg
Hans-Jochen
AW: Spalten links nach rechts und überspringen
01.05.2012 17:05:52
Laund
Hallo Hans-Jochen und Sepp
Also Hans-Jochen: ich glaube das mit Text in Spalten nicht das ist was ich möchte?..
Wenn ich das richtig verstehe wird wenn in Spalte B z.B. Haus;Katze;Fisch steht -> Haus in B Katze in C und Fisch in D geschrieben.
Ich möchte dass die Daten, die in Spalte B sind (jetzt also "vetikal" angeordnet) "horizontal" von Spalte B, D, F, ... bis T und dann wieder eine Zeile weiter bei Spalte B beginnend angeordnet werden. Kompliziert geschrieben? :(
Sepp: dein Makro kopiert mir einfach alles von Spalte B bis T. Das ist auch nicht das was ich möchte...
Lasst mal mein Makro laufen mit einigen Zahlen in Spalte B.
Das sollte einfach nur bis Spalte T gehen und dann wieder unten weiter gehen...
(Der letzte Eintrag bei meinem Makro geht jedoch noch nicht...)
Dim lrow As Long
Dim m As Long
Dim d As Long
lrow = Range("B" & Rows.Count).End(xlUp).Row
m = 2
d = 4
For i = 1 To lrow
Range(Cells(2, m), Cells(lrow, m)).Cut
Cells(1, d).Select
ActiveSheet.Paste
m = m + 2
d = d + 2
lrow = lrow - 1
Next i

Anzeige
AW: Spalten links nach rechts und überspringen
01.05.2012 17:16:51
Josef

Hallo Laund,
warum sollte ich dein Makro laufen lassen, wenn ich nicht weiß, was bei dir in B steht und wie das ganze aufgeteilt werden soll?
Vielleicht solltest du mal ein Beispiel hochladen.

« Gruß Sepp »

AW: Spalten links nach rechts und überspringen
02.05.2012 08:22:40
Laund
Hallo Sepp
hier die Datei: https://www.herber.de/bbs/user/80013.xlsm
Es sind Etiketten. Es ist eigentlich egal was in Spalte B steht.
Nach dem ausführen des Makros sollte das Blatt nicht von oben nach unten, sondern von links nach rechts (in den richtigen Spalten) gefüllt sein.
Gruss
Raphi
Anzeige
AW: Spalten links nach rechts und überspringen
02.05.2012 11:36:57
Rudi
Hallo, 
Private Sub CommandButton1_Click()
Dim lngR As Long, vntArr, i As Long, j As Long
vntArr = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
For i = 1 To UBound(vntArr) Step 10
lngR = lngR + 1
For j = 0 To 9
If i + j > UBound(vntArr) Then Exit Sub
Cells(lngR, 2 * j + 2) = vntArr(i + j, 1)
Next
Next
End Sub

Gruß
Rudi
AW: Spalten links nach rechts und überspringen
02.05.2012 13:38:35
Laund
Hallo Rudi
Genau so :) Besten Dank
ich habe nur noch Löschen vom Range nach dem kopieren in das Array gemacht
  Dim lngR As Long, vntArr, i As Long, j As Long
vntArr = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)).ClearContents
For i = 1 To UBound(vntArr) Step 10
lngR = lngR + 1
For j = 0 To 9
If i + j > UBound(vntArr) Then Exit Sub
Cells(lngR, 2 * j + 2) = vntArr(i + j, 1)
Next
Next

Anzeige

321 Forumthreads zu ähnlichen Themen

Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
Anzeige
Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Anzeige
Bestimmte Zellen addieren
Willi

Mahlzeit allerseits,
ich möchte folgendes Addieren.
Beginnend In V6 und dann jede siebte Zelle in Spalte V.
V6+V13+V20 usw. bis zum Ende des Tabellenblattes, es kommt
aber zwischendurch vor, das sich Text bzw. Symbole in den
Zellen dazwischen befinden.
Wie kann ich am be...
15.02.2009 11:48:00
Thread-ID: 1050858
5 Beiträge
Ergebnis auslesen und in andere Spalte übertragen
Alex

Hallo,
Kann mir jemand bei folgendem Problem helfen:
Ich habe drei Spalten A, B, C.
In Spalte A steht in wenigen Zellen etwas drin und sehr viele Zellen sind leer. In Spalte B wird die Anzahl leerer Zellen der Spalte A gezählt und jedes Mal wenn in A etwas drin steht, beginnt er mit...
17.03.2009 08:16:28
Thread-ID: 1060992
5 Beiträge
Spalte A und E aus allen Blätern zusammenkopieren
Mindjogger

Servus,
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils die Spalte A und E in eine neue Excel Datei auf ein Sheet kopieren.
Oder noch genauer:
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils ein Schlüsselwort (unique) als...
26.03.2009 17:01:20
Thread-ID: 1064329
4 Beiträge
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Nur bestimmte Werte auslesen
Nic

Hallo zusammen,
ich versuche Zahlen in einer ComboBox 1-10, die mit jeweiligen Beschreibung versehen sind
z.B. 4 (es handelt sich hierbei um Missmanagement), 5 (Wasserball macht Spass) je nach Wahl in Zellen auszulesen. Dabei möchte ich nicht den Befehl benutzen
Private Sub ComboB...
17.04.2009 22:16:22
Thread-ID: 1069409
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
5
5
4
12
4
4
3
2
5
8
1
2
1
4
1
5
3
2
6
5
7
3
4
20