Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Aus einer Zeile mehrere Zeilen machen

Aus einer Zeile mehrere Zeilen machen
06.04.2006 17:41:23
Micha
Hallo User,
habe folgende Tabelle: (auszugsweise)
ANREDE / VORNAME / ZUNAME / STRASSE_HNR / PLZ_ORT_ / ANZ._PERSONEN
Herrn Franz Bernhard Am Hammerrech 1 51237 Testhausen 5
Herrn Bernd Massier Am Hammerrech 2 51237 Testhausen 2
Herrn Walter Antes Am Hammerrech 3 51237 Testhausen 3
jetzt sollte per VBA sich die erste Zeile genommen werden und bei "ANZ,.PERSONEN" (hier 5 Personen) die eine Zeile, am besten auf ein
gesondertes Blatt, 5 mal dar gestellt werden. Die zweite Zeile gem ANZ...
halt 2 mal.
Es sollte in etwa dann so aussehen
ANREDE VORNAME ZUNAME STRASSE_HNR PLZ_ORT_ ANZ._PERSONEN
Herrn Franz Bernhard Am Hammerrech 1 51237 Testhausen 1
Herrn Franz Bernhard Am Hammerrech 1 51237 Testhausen 1
Herrn Franz Bernhard Am Hammerrech 1 51237 Testhausen 1
Herrn Franz Bernhard Am Hammerrech 1 51237 Testhausen 1
Herrn Franz Bernhard Am Hammerrech 1 51237 Testhausen 1
Herrn Bernd Massier Am Hammerrech 2 51237 Testhausen 1
Herrn Bernd Massier Am Hammerrech 2 51237 Testhausen 1
und dies für alle vorhandenen Zeilen.
Spalten sind von A bis F belegt (ANREDE, VORNAME......)
Zeilen beginnend ab Zeile 2, unterschiedlich viele Zeilen.
Hoffe dies war einigermaßen verständlich.
Vielen Dank

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus einer Zeile mehrere Zeilen machen
06.04.2006 18:43:19
Ramses
Hallo
"...Hoffe dies war einigermaßen verständlich..."
Schauen wir mal.
Wenn du das Makro startest, dann muss die Tabelle mit den Grunddaten aktiv sein
Option Explicit

Sub Write_Personal_Count()
    Dim i As Integer, n As Integer
    Dim tarWks As Worksheet, curWks As Worksheet, tarName As String
    Dim newRow As Long
    Set curWks = Worksheets(ActiveSheet.Name)
    tarName = "Neue Datentabelle"
    On Error Resume Next
    Set tarWks = Worksheets(tarName)
    If tarWks Is Nothing Then
        Worksheets.Add
        ActiveSheet.Name = tarName
    End If
    tarWks.Cells.Clear
    With curWks
        .Select
        .Range("A1:E1").Copy Destination:=tarWks.Range("A1")
    End With
    newRow = 2
    With curWks
        For i = 2 To .Range("A65536").End(xlUp).Row
            For n = 1 To .Cells(i, 6)
                .Range(Cells(i, 1), Cells(i, 5)).Copy tarWks.Cells(newRow, 1)
                newRow = newRow + 1
            Next n
        Next i
    End With
End Sub


Das Ergebnis steht dann in der Tabelle "Neue Datentabelle"
Gruss Rainer
Anzeige
AW: Aus einer Zeile mehrere Zeilen machen
06.04.2006 18:49:17
ChrisL
Hallo Micha

Sub Makro1()
Dim iZeile As Long
Application.ScreenUpdating = False
For iZeile = Range("F65536").End(xlUp).Row To 2 Step -1
Rows(iZeile).Copy
Rows(iZeile & ":" & iZeile + Cells(iZeile, 6)).Insert
Next iZeile
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Gruss
Chris
AW: Aus einer Zeile mehrere Zeilen machen
06.04.2006 18:52:30
ChrisL
Fehlt noch was
Range("F2:F" & Range("F65536").End(xlUp).Row) = 1
Gruss
Chris
AW: Aus einer Zeile mehrere Zeilen machen
06.04.2006 19:00:20
Ramses
Hallo
Es fehlt noch was wichtigeres:
Nämlich die Löschanweisung für die zuviel erstellten Zeilen.
ODER
Du korrigierst deinen Code :-)
Gruss Rainer
Anzeige
OT
06.04.2006 19:09:31
ChrisL
Hallo Rainer
Wer hat den Code kaputt gemacht, eben lief er noch!!! :-)
cu
Chris
AW: OT
06.04.2006 19:39:10
Ramses
Hallo
"...eben lief er noch!!! ..."
Hast du den Code mal getestet :-)
Ausgangslage
Wie oft der jeweilige Name auftauchen soll ist fett geschrieben
 
 ABCDEF
1ANREDE VORNAME ZUNAME STRASSE_HNR PLZ_ORT_ ANZ._PERSONEN
2HerrnFranzBernhardAm Hammerrech 151237 Testhausen5
3HerrnBerndMassierAm Hammerrech 251238 Testhausen2
4HerrnWalterAntesAm Hammerrech 351239 Testhausen3
5      
 

Nach deinem Makro
 
 ABCDEF
1ANREDE VORNAME ZUNAME STRASSE_HNR PLZ_ORT_ ANZ._PERSONEN
2HerrnFranzBernhardAm Hammerrech 151237 Testhausen5
3HerrnFranzBernhardAm Hammerrech 151237 Testhausen5
4HerrnFranzBernhardAm Hammerrech 151237 Testhausen5
5HerrnFranzBernhardAm Hammerrech 151237 Testhausen5
6HerrnFranzBernhardAm Hammerrech 151237 Testhausen5
7HerrnFranzBernhardAm Hammerrech 151237 Testhausen5
8HerrnFranzBernhardAm Hammerrech 151237 Testhausen5
9HerrnBerndMassierAm Hammerrech 251238 Testhausen2
10HerrnBerndMassierAm Hammerrech 251238 Testhausen2
11HerrnBerndMassierAm Hammerrech 251238 Testhausen2
12HerrnBerndMassierAm Hammerrech 251238 Testhausen2
13HerrnWalterAntesAm Hammerrech 351239 Testhausen3
14HerrnWalterAntesAm Hammerrech 351239 Testhausen3
15HerrnWalterAntesAm Hammerrech 351239 Testhausen3
16HerrnWalterAntesAm Hammerrech 351239 Testhausen3
17HerrnWalterAntesAm Hammerrech 351239 Testhausen3
 

Zähl mal nach, WIE OFT die Namen NACH deinem Makro auftauchen :-)
Gruss Rainer
Anzeige
AW: OT
06.04.2006 19:48:33
ChrisL
Hellau Rainer
jaja jetzt sehe ich den Fehler auch, hatte vermutlich ein Brett vor dem Kopf (aber vorhin liefs noch) :-)))
Gruss
Chris
AW: Aus einer Zeile mehrere Zeilen machen
07.04.2006 08:11:25
Micha
Hallo Ramses
Hallo ChrisL
an beide von euch vielen Dank.
Ramses, dein Code läuft super.
Ihr habt mir sehr geholfen.
DANKE

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige