Supportnet / Forum / Tabellenkalkulation
Tabelle neu anordnen
Frage
hi ich öchte meine tabelle von der form
1 2 3 4
5 6 7 8
.
.
.
in folgendes format ändern
1 (leer) 3
2 (leer) 4
(leer) (leer) (leer)
5 (leer) 8
6 (leer) 8
(leer) (leer) (leer)
.
.
.
ohne jede zelle einzeln zu verschieben. ich möchte also die erste zeile neu anordnen und der pc solls dann für die anderen zeilen übernehmen
PS.: konnte meine exceltabelle leider nich anders darstellen
danke schon mal im vorraus
[*][quote][sup][i]Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Siehe [url=https://supportnet.de/groupfaqs/3][u]FAQ 2.[/u][/url][/i][/sup][/quote]
Antwort 1 von nighty
hi all :)
wie gewünscht :)
gruss nighty
erste zeile nicht mit einbezogen da ueberschrift wahrscheinlich
Option Explicit
Sub NeuSortierung()
Dim zeilen As Long
zeilen = 2
Do While zeilen < ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
If Range("A" & zeilen) <> "" Then
Rows(zeilen + 1).Insert Shift:=xlUp
Range("A" & zeilen + 1) = Range("B" & zeilen)
Range("B" & zeilen) = ""
Range("C" & zeilen + 1) = Range("D" & zeilen)
Range("D" & zeilen) = ""
Rows(zeilen + 2).Insert Shift:=xlUp
zeilen = zeilen + 2
End If
zeilen = zeilen + 1
Loop
End Sub
wie gewünscht :)
gruss nighty
erste zeile nicht mit einbezogen da ueberschrift wahrscheinlich
Option Explicit
Sub NeuSortierung()
Dim zeilen As Long
zeilen = 2
Do While zeilen < ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
If Range("A" & zeilen) <> "" Then
Rows(zeilen + 1).Insert Shift:=xlUp
Range("A" & zeilen + 1) = Range("B" & zeilen)
Range("B" & zeilen) = ""
Range("C" & zeilen + 1) = Range("D" & zeilen)
Range("D" & zeilen) = ""
Rows(zeilen + 2).Insert Shift:=xlUp
zeilen = zeilen + 2
End If
zeilen = zeilen + 1
Loop
End Sub
Antwort 2 von Excelnoob
riesengroßes fragezeichen
danke für die antwort ich hoff mal des funktioniert wenn ich weiß was ich mit dem anfangen soll
danke für die antwort ich hoff mal des funktioniert wenn ich weiß was ich mit dem anfangen soll
Antwort 3 von Excelnoob
@ Admin
sry war ein versehen da ich beim schreiben in der falschen gruppe war, wie ich dann auf absenden geklickt hab, hab ich mich gewundert dass ich nicht nach einer gruppe gefragt worden bin
und löschen ging nicht mehr
sry war ein versehen da ich beim schreiben in der falschen gruppe war, wie ich dann auf absenden geklickt hab, hab ich mich gewundert dass ich nicht nach einer gruppe gefragt worden bin
und löschen ging nicht mehr
Antwort 4 von nighty
hi Excelnoob :)
einzufuegen unter alt + f11/einfuegen/modul
dann f5 zum starten
danach koennte es ,wenn nicht mehr gebraucht wird gelöscht werden
gruss nighty
einzufuegen unter alt + f11/einfuegen/modul
dann f5 zum starten
danach koennte es ,wenn nicht mehr gebraucht wird gelöscht werden
gruss nighty