Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Daten von untereinander zu nebeneinander kopieren
Gehe zu Seite 1, 2  Weiter
zurück: Keine Leerzeilen in Zieltabelle weiter: String an Array übergeben (Makrosubstitution) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
SIGNSmedia
Gast


Verfasst am:
04. Okt 2010, 13:51
Rufname:

Daten von untereinander zu nebeneinander kopieren - Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

guten Tag alle miteinander ich hoffe jemand kann mir helfen. ich habe im forum nichts gefunden das genau auf das zutrifft was ich brauche.

ich habe in excel datensaetze die so aussehen ( alles in spalte A)

Kunde1
Kunde1 adresse
Kunde1 telefon
kunde1 bemerkungen

Kunde2
Kunde2 adresse
Kunde2 telefon
kunde2 bemerkungen

Kunde3
Kunde3 adresse
Kunde3 telefon
kunde3 bemerkungen

ich habe hiervon sehr viele untereinanderstehende daten.

jetzt moechte ich das jeder datensatz zu einer zeile wird also so

kunde1 kunde1adresse kunde1telefon kunde1 bemerkungen
kunde2 kunde2adresse kunde2telefon kunde2 bemerkungen
kunde3 kunde3adresse kunde3telefon kunde3 bemerkungen

und dabei soll nicht alles in A eingetragen werden sonder kunde1 in A kunde1adresse in B usw.

hoffe jemand kann mir helfen !

bedanke mich schon im voraus !
Phelan XLPH
Fortgeschritten


Verfasst am:
04. Okt 2010, 14:07
Rufname: Phelan


AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

Hallo,

Test das mal:
Code:
Sub ph_Transpose()
    Dim wks As Worksheet
    Dim rngA As Range, i As Long
    Set wks = Worksheets.Add
   
    With Tabelle1 'anpassen
        On Error Resume Next
        With .Range("A:A")
            For Each rngA In .ColumnDifferences(.Find("")).Areas
                With rngA.Resize(, 2)
                    i = i + 1
                    wks.Cells(i, 1).Resize(, .Columns(2).Rows.Count) = _
                    WorksheetFunction.Transpose(.Columns(2))
                    wks.Cells(i, 1) = .Cells(1)
                End With
            Next
        End With
       
    End With
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
04. Okt 2010, 14:57
Rufname:

AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

funktioniert leider nicht ! mit diesem makro verschwindet alles !

eigendlich sind es 8 zeilen untereinander die nebeneinander dargestellt werden sollen und dann wieder 8 neue... kann das ein grund dafuer sein das es nicht funktioniert ?
Phelan XLPH
Fortgeschritten


Verfasst am:
04. Okt 2010, 15:02
Rufname: Phelan

AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

sind denn leerzeilen dazwischen?
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
04. Okt 2010, 15:06
Rufname:


AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

ja da sind leerzeilen dazwischen

3 leerzeilen sind dazwischen ! ich weiss nur nicht wie ich die leerzeilen wegkriege und dabei die reienfolge beibehalte
Phelan XLPH
Fortgeschritten


Verfasst am:
04. Okt 2010, 15:36
Rufname: Phelan

AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

Zitat:
Kunde1
Kunde1 adresse
Kunde1 telefon
kunde1 bemerkungen


Sind die Zeilen in SpalteA und SpalteB oder ist alles in SpalteA?[/quote]

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
04. Okt 2010, 15:40
Rufname:

AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

alles in spalte A



siehe


ΑΒΡΑΜΗΣ ΙΩΑΝΝΗΣ Π

ΕΛΕΥΣΙΝΑ
Πλούτωνος 26
Αττικής
19200

2105543369

ΑΒΡΑΜΙΔΗ ΘΕΟΔΩΡΑ Π

ΕΛΕΥΣΙΝΑ
Πετράκη 54

2105547209

ΑΒΡΑΜΙΔΗ ΜΑΡΙΑ Η

ΕΛΕΥΣΙΝΑ
Βενιζέλου Ελευθερίου 60
Αττικής
19200

2105549190
ΑΒΡΑΜΗΣ ΙΩΑΝΝΗΣ Π

ΕΛΕΥΣΙΝΑ
Πλούτωνος 26
Αττικής
19200

2105543369

ΑΒΡΑΜΙΔΗ ΘΕΟΔΩΡΑ Π

ΕΛΕΥΣΙΝΑ
Πετράκη 54

2105547209

ΑΒΡΑΜΙΔΗ ΜΑΡΙΑ Η

ΕΛΕΥΣΙΝΑ
Βενιζέλου Ελευθερίου 60
Αττικής
19200

2105549190


immer bis zur 10 stelligen zahl gehoert zum gleichen datensatz.

das ist griechisch nur zur info Smile

wie man sieht ist es ziemlich unterschiedlich manchmal hab ich mehr daten als andere male. deshalb denke ich das 8 zeilen die beste loesung waehre.
Phelan XLPH
Fortgeschritten


Verfasst am:
04. Okt 2010, 17:16
Rufname: Phelan

AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

FAST PERFEKT:

Code:
Sub ph_Transpose()
    Dim wks As Worksheet
    Dim Bereiche As Range
    Dim rngA As Range, i As Long
    Set wks = Worksheets.Add
   
    With Tabelle2 'anpassen
        With .UsedRange
            With .Columns(.Columns.Count).Offset(1, 1)
                .Formula = "=IF(ISNUMBER(A1)*LEN(A1)=10,1,0)"
                .Copy
                .PasteSpecial xlPasteValues
                On Error Resume Next
                Set Bereiche = Intersect(.Parent.Columns(1), .EntireColumn.ColumnDifferences(.Find(1)).EntireRow)
                For Each rngA In Bereiche.Areas
                    i = i + 1
                    wks.Cells(i, 1).Resize(, rngA.Rows.Count) = _
                    WorksheetFunction.Transpose(rngA)
                Next
                .ClearContents
            End With
        End With
    End Wit

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
04. Okt 2010, 17:26
Rufname:

AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

irgendwas passt nicht excel nimmt den code nicht an !
SIGNSmedia
Gast


Verfasst am:
04. Okt 2010, 22:07
Rufname:

AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

ok es war nicht vollstaending.

jetzt habe ich es in das geaendert

Sub ph_Transpose()
Dim wks As Worksheet
Dim Bereiche As Range
Dim rngA As Range, i As Long
Set wks = Worksheets.Add

With Tabelle2 'anpassen
With .UsedRange
With .Columns(.Columns.Count).Offset(1, 1)
.Formula = "=IF(ISNUMBER(A1)*LEN(A1)=10,1,0)"
.Copy
.PasteSpecial xlPasteValues
On Error Resume Next
Set Bereiche = Intersect(.Parent.Columns(1), .EntireColumn.ColumnDifferences(.Find(1)).EntireRow)
For Each rngA In Bereiche.Areas
i = i + 1
wks.Cells(i, 1).Resize(, rngA.Rows.Count) = _
WorksheetFunction.Transpose(rngA)
Next
.ClearContents
End With
End With
End With
End Sub

allerdings bringt er mich beim ausfuehren auf With.UsedRange zum debugen.

weiss jemand wieso ?
Phelan XLPH
Fortgeschritten


Verfasst am:
04. Okt 2010, 22:35
Rufname: Phelan

AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

Versteh das Problem nicht.
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein



Hellas.xls
 Beschreibung:

Download
 Dateiname:  Hellas.xls
 Dateigröße:  37.5 KB
 Heruntergeladen:  170 mal

SIGNSmedia
Gast


Verfasst am:
04. Okt 2010, 22:52
Rufname:

AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

bedanke mich herzlichst fuer deine hilfe ! funktioniert einwandfrei!
Gast



Verfasst am:
04. Okt 2010, 22:53
Rufname:

AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

eine frage noch... wieviele zeilen nimmt er jetzt immer ?
Phelan XLPH
Fortgeschritten


Verfasst am:
05. Okt 2010, 09:39
Rufname: Phelan

AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

Keine!

Es wird per Formel geschaut wo sich die 10-stellige Zahl befindet, die das
Ende eines Datensatzes markiert, und anhand dessen werden Datenblöcke
gebildet die dann transponiert werden.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
SIGNSmedia
Gast


Verfasst am:
07. Okt 2010, 21:21
Rufname:


AW: Daten von untereinander zu nebeneinander kopieren - AW: Daten von untereinander zu nebeneinander kopieren

Nach oben
       Version: Office 2007

heisst das das er immer bis zur nummer waagerecht einfuegt und die zeile aendert nach der 10 stelligen zahl ?
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Doppelte Daten entfernen 1 Sabine1980 2206 08. Feb 2005, 18:19
Thomas Ramel Doppelte Daten entfernen
Keine neuen Beiträge Excel Formeln: Text von Tabelle1 auch in Tabelle 2 kopieren 7 Pinguin1977 2848 30. Jan 2005, 16:56
Pinguin1977 Text von Tabelle1 auch in Tabelle 2 kopieren
Keine neuen Beiträge Excel Formeln: Teilinhalt einer Zelle in einer neuen Zelle kopieren 2 nastromo2001 2812 24. Jan 2005, 18:48
nastromo2001 Teilinhalt einer Zelle in einer neuen Zelle kopieren
Keine neuen Beiträge Excel Formeln: Verknüpfungen nach Kopieren eines Verzeichnises 17 Toledo 4274 12. Jan 2005, 10:27
Toledo Verknüpfungen nach Kopieren eines Verzeichnises
Keine neuen Beiträge Excel Formeln: Daten aus Liste übernehmen und selektieren 1 Maggi 1695 06. Jan 2005, 02:21
Gast1 Daten aus Liste übernehmen und selektieren
Keine neuen Beiträge Excel Formeln: daten suchen 18 excelfinki 2799 17. Dez 2004, 11:34
excelfinki daten suchen
Keine neuen Beiträge Excel Formeln: 2 Daten miteinander vergleichen, wenn gleich dann Text 1 BennyII 4347 11. Dez 2004, 12:00
ae 2 Daten miteinander vergleichen, wenn gleich dann Text
Keine neuen Beiträge Excel Formeln: erste Zeichen einer Zelle in andere kopieren 2 fisler0815 3067 11. Okt 2004, 15:37
fisler0815 erste Zeichen einer Zelle in andere kopieren
Keine neuen Beiträge Excel Formeln: Frage wegen Kopieren von Tabelle1 in Tabelle2 1 SnowStorm 961 03. Okt 2004, 17:07
ae Frage wegen Kopieren von Tabelle1 in Tabelle2
Keine neuen Beiträge Excel Formeln: Formeln anzeigen und Formeln mit Bezug kopieren 3 birgitrb 2270 01. Okt 2004, 16:22
Gast Formeln anzeigen und Formeln mit Bezug kopieren
Keine neuen Beiträge Excel Formeln: Daten aus einer Spalte in eine Zeile bringen 8 Hobbitz 2695 26. Aug 2004, 19:49
Arnim Daten aus einer Spalte in eine Zeile bringen
Keine neuen Beiträge Excel Formeln: Wie kopiere ich Daten in darauffolgende Tabellenblätter? 2 Markus Burri 542 13. Aug 2004, 14:40
HermannZ Wie kopiere ich Daten in darauffolgende Tabellenblätter?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum