Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
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
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenwert in Zeilen verschieben

Spaltenwert in Zeilen verschieben
23.05.2017 15:47:11
Tobias
Hallo,
meine Tabelle hat ausschließlich Daten in Spalte A, und davon sehr viele alle untereinander. Jetzt möchte ich für eine Seriendruckfunktion jeweils 5 Einträge aus der Spalte in eine Zeile verschieben und die 4 darunter befindlichen dann leeren Zeilen löschen. Also A1 bleibt, A2 wird B1, A3 wird C1, A4 wird D1 und A5 wird E1, A6 wird A2, A7 wird B2, A8 wird C2 usw.
Kann mir hier jemand mit einem kleinen Makro auf die Sprünge helfen?

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenwert in Zeilen verschieben
23.05.2017 16:05:17
Jürgen
Hallo Tobias,
wozu hier ein Makro?
Einfach 
=INDEX($A:$A;(5*(ZEILE(B1)-1)+SPALTE(B1)-1))

in Zelle B1 eintrage und dann in den Bereich B1 - E99999 kopieren.
alternativ: 
=INDEX($A:$A;(5*(SPALTE(B1)-1)+ZEILE(B1)))
in den Bereich B1 - xyz5 kopieren. Dann steht B1=A1,B2=A2, b3=A3...,C1= A6
Gruß
Jürgen
AW: Spaltenwert in Zeilen verschieben
23.05.2017 16:21:31
UweD
Hallo
so?
Sub Eins_in_fuenf()
    On Error GoTo Fehler
    Dim TB, i%
    Dim SP%, ZE&, LR&
    
    Set TB = Sheets("Tabelle1")
    
    SP = 1 'Spalte A 
    ZE = 1 'ab Zeile wegen ggf Überschrift 
    With TB
        LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 
        For i = ZE To LR Step 5
            .Range(.Cells(i, SP + 1), .Cells(i, SP + 4)) = _
                WorksheetFunction.Transpose(.Range(.Cells(i + 1, SP), .Cells(i + 4, SP)))
            .Range(.Cells(i + 1, SP), .Cells(i + 4, SP)).ClearContents
        Next
    End With
    
    Err.Clear
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Spaltenwert in Zeilen verschieben
23.05.2017 17:51:35
Tobias
Hallo Uwe,
vielen Dank für das Makro, es funktioniert, hat nur einen Haken, es löscht nicht die leeren Zeilen, sondern nur deren Inhalt, so dass ich am Ende eine gefüllte und 4 leere Zeilen im Wechsel habe. Kann man das um die Löschfunktion der leeren Zeilen erweitern?
Viele Grüße, Tobias
AW: Spaltenwert in Zeilen verschieben
24.05.2017 08:29:19
UweD
Hallo nochmal
ok, hatte ich anders verstanden.
Dann so...
Hab es noch was gekürzt.
Sub Eins_in_fuenf()
    On Error GoTo Fehler
    Dim TB, SP As Integer, ZE As Double
    Set TB = Sheets("Tabelle1")
    SP = 1 'Spalte A 
    ZE = 1 'ab Zeile wegen ggf Überschrift 
    
    Application.ScreenUpdating = False
    With TB
        Do Until .Cells(ZE + 1, SP) = ""
            .Cells(ZE, SP + 1).Resize(1, 4) = _
                WorksheetFunction.Transpose(.Cells(ZE + 1, SP).Resize(4, 1))
            .Rows(ZE + 1).Resize(4, 1).Delete xlUp
            ZE = ZE + 1
        Loop
    End With
    
    Err.Clear
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Spaltenwert in Zeilen verschieben
24.05.2017 11:12:47
Tobias
Sehr genial, Uwe vielen, vielen Dank, das hat mir richtig geholfen, astrein...
Viele Grüße, Tobias
AW: gern geschehen owt
24.05.2017 11:46:19
UweD
AW: Spaltenwert in Zeilen verschieben
23.05.2017 16:36:00
Michael
Hallo!
Noch eine Array-Lösung aus Spaß an der Freude
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim c As Range, a, b, i&, j&, k&
With Ws
Set c = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
a = c
ReDim b(1 To UBound(a) / 5, 1 To 5)
For i = 1 To UBound(a, 1) Step 5
For j = 0 To 4
b(1 + k, 1 + j) = a(i + j, 1)
Next j
k = k + 1
Next i
'nicht erwünschte Ausgabe auskommentieren
'Original-Spaltenwerte behalten, Transponiert daneben...
c.Offset(, 1).Resize(UBound(b, 1), UBound(b, 2)) = b
'...oder Original-Spaltenwerte mit transp. Werten ersetzen
c.ClearContents
c.Resize(UBound(b, 1), UBound(b, 2)) = b
End With
Erase a: Erase b
Set Wb = Nothing: Set Ws = Nothing: Set c = Nothing
End Sub
LG
Michael
Anzeige

318 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Anzeige
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Anzeige

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
2
3
10
3
3
2
2
2
2
6
3
2
2
2
2
4
4
8
4
5
4
2
5
3
4