Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1112to1116
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
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenbloecke in Zeilen schreiben

Datenbloecke in Zeilen schreiben
VolkerM
Hallo Forum
Ich möchte mehrere hundert "Datenblöcke" in Zeilen schreiben.
Diese "Datenblöcke" bestehen immer aus 4 Zeilen und 6 Spalten.
Dann folgt immer eine Leerzeile.
Die einzelnen Zellen sind mal leer mal befüllt.
Auch der Inhalt ist unterschiedlich (Datum Uhrzeit Ziffern Text).
Es sind keine Überschriften vorhanden.
Zur Verdeutlichung eine Beispieldatei mit der Ausgangssituation und dem angestrebten Ergebnis.
https://www.herber.de/bbs/user/65363.xls
Ist es möglich, das Schreiben in Zeilen mit einem Makro zu realisieren?
Vielen Dank im Voraus.
Gruss Volker

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

Betreff
Benutzer
Anzeige
AW: Datenbloecke in Zeilen schreiben
27.10.2009 07:30:13
fcs
Hallo Volker,
hier 2 Varianten.
Gruß
Franz 
Sub aaTest()
'Kopieren in 2. Blatt
Dim wksQ As Worksheet, ZeileQ As Long, ZeileQ1 As Long
Dim wksZ As Worksheet, ZeileZ As Long, SpalteZ As Long
Dim lCalc As Long
Const ZeilenBlock As Long = 5
Const SpaltenBlock As Long = 6
Set wksQ = Worksheets("Ausgangsdaten")
Set wksZ = Worksheets("Ergebnis")
ZeileZ = 0
With Application
.ScreenUpdating = False
lCalc = .Calculation
.Calculation = xlCalculationManual
.EnableEvents = False
End With
For ZeileQ = 1 To wksQ.Cells.SpecialCells(xlCellTypeLastCell).Row Step 5
ZeileZ = ZeileZ + 1
For ZeileQ1 = 0 To ZeilenBlock - 1
SpalteZ = 1 + ZeileQ1 * SpaltenBlock
With wksQ
.Range(.Cells(ZeileQ + ZeileQ1, 1), .Cells(ZeileQ + ZeileQ1, SpaltenBlock)).Copy _
Destination:=wksZ.Cells(ZeileZ, SpalteZ)
End With
Next
Next
With Application
.ScreenUpdating = True
.Calculation = lCalc
.EnableEvents = True
End With
End Sub
Sub bbTest()
'Umgruppieren im gleichen Blatt
Dim wksQ As Worksheet, ZeileQ As Long, ZeileQ1 As Long
Dim wksZ As Worksheet, ZeileZ As Long, SpalteZ As Long
Dim lCalc As Long
Const ZeilenBlock As Long = 5
Const SpaltenBlock As Long = 6
Set wksQ = ActiveSheet
Set wksZ = ActiveSheet
ZeileZ = 0
With Application
.ScreenUpdating = False
lCalc = .Calculation
.Calculation = xlCalculationManual
.EnableEvents = False
End With
For ZeileQ = 1 To wksQ.Cells.SpecialCells(xlCellTypeLastCell).Row Step 5
ZeileZ = ZeileZ + 1
For ZeileQ1 = 0 To ZeilenBlock - 1
SpalteZ = 1 + ZeileQ1 * SpaltenBlock
With wksQ
.Range(.Cells(ZeileQ + ZeileQ1, 1), .Cells(ZeileQ + ZeileQ1, SpaltenBlock)).Cut _
Destination:=wksZ.Cells(ZeileZ, SpalteZ)
End With
Next
Next
With Application
.ScreenUpdating = True
.Calculation = lCalc
.EnableEvents = True
End With
End Sub

Anzeige
AW: Datenbloecke in Zeilen schreiben
27.10.2009 07:38:56
VolkerM
Hallo Franz
Donnerwetter
Herzlichen Dank
Gruss Volker

306 Forumthreads zu ähnlichen Themen

makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
Anzeige
Zeilensprung in Textbox mit Enter
uli

Hallo Experten,
habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then If clTextBox.Tag = 95 Then 'Hier vielleicht Anweisung für Zeilensprung!!!! Exit Sub End If If Is...
20.11.2008 11:26:40
Thread-ID: 1026350
3 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige
Aus Spalte in Zeile schreiben
Eckhard

Hallo Leute, ich benötige Hilfe.
in der ersten Spalte meines Arbeitsblattes stehen Adressdaten (Vorname, Nachname, Strasse, etc) jeweils 7 Felder lang, dann wiederholen sie sich - mit anderem Inhalt. Ich benötige nun ein Makro, das den Inhalt dieser Felder jeweils in eine Zeile schreibt. Da...
15.12.2008 15:57:52
Thread-ID: 1033076
5 Beiträge
SVERWEIS springt ungewollt Zeile nach unten
Christoph

Hallo Zusammen,
ich hänge an einem ganz seltsamen Problem und komme nicht dahinter woran es liegen könnte.
Benutze folgenden S-Verweis:
=WENN(SVERWEIS(E22;'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH)=0;"";SVERWEIS(E22; 'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH))...
07.02.2009 18:17:24
Thread-ID: 1048114
3 Beiträge
Inhalt erst in Zeile 5 schreiben
Schmidtler

Hallo,
wie bekomme ich es hin, dass erst Werte ab der 4. Zeile eingetragen werden?
Main Eng. Doc.
LEER
LEER
LEER
LEER
25.02.2009
23.02.2009
OK
40002058
16.12.2008
18.12.2008
LATE
40002059
Mein Makro sieht wie folgt aus:
E...
27.02.2009 12:32:18
Thread-ID: 1054702
2 Beiträge
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
Ans ende einer Zeile springen
Felix

Hallo,
wahrscheinlich eine sehr einfache Frage für euch:
Ich möchte gerne per makro einen wert 3 zellen links vom zeilenende kopieren und an einer andere zelle wieder einfügen.
Das ganze zur einer schleife programmieren kann ich (hoffe ich) selbst.
Vielen Dank.
Felix
16.06.2009 13:23:03
Thread-ID: 1081884
4 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
13
2
4
4
4
2
1
2
3
7
3
3
18
1
4
4
2
2
3
4
2
13
11
5