Clever-Excel-Forum

Hallo zusammen,

ich habe Daten aus einer Datenbank in eine Excel exportiert. Die Daten werden in Spalte A und B angezeigt. In Spalte A kommt nach jedem Kundensatz mit den einzelnen Informationszellen ein ; )  - diese beiden Zeichen kommen in jeder (keine Ahnung - Excel ist in der Arbeit) - 7. Zelle. Also z. B. sind in Zelle B1 - B6  Werte wie B1 Name, B2 Datum, B2 Alter usw. bis B6. B7 ist leer, dafür ist in A7 ein ; ) Es geht dann weiter bei B8 Name, B9 Datum, usw. 

Mittlerweile konnte ich dieses Sheet so ändern dass eine Spalte (B) komplett in Zeile 1 gezeigt wird. Dadurch habe ich eben regelmäßig jede 7. Zelle leer

Ich hätte gerne als Ergebnis 
A1 Name 1    B1 Datum 1   C1 Alter1
A2 Name 2    B2 Datum 2   C2 Alter2 
A3 Name 3    B3 Datum 3   C3 Alter 3

Kann mir dazu irgendjemand helfen 

LG

Bianca

:43: :59: :22: :69: :69: :69:

Hallo Bianca,

mit einer Beispieltabelle (kein ScrShot!) können dir die Helfer besser helfen. http://www.clever-excel-forum.de/thread-326.html

Hallo Bianca,

Sub Makro1()

    Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

Gruß Uwe

Hallo Günther, hallo Uwe, 

Vielen, vielen Dank schonmal für eure Antworten! 

@Günther: die Datei hänge ich morgen an.
@ Uwe: wie geht das mit Marco ? 

Vielen lieben Dank schonmal und viele Grüße 

Bianca

[attachment=15659]

Soterla, wieder am Rechner.  

Ich füge mal ein Beispiel als Anhang ein mit dem Ist- und dem Sollergebnis.

Hallo,

für das Beispiel:




mfg

Ich habe daheim leider nur Excel 2003 - ich weiß grade nicht, welche Version in in der Arbeit habe 

Wie erfasse ich das in 2003? 

Grade probiert - ich glaube, es klappt.... Muss noch weiter testen.

Im Vorfeld schon mal liebsten Dank - ich werde berichten!

In Excel 2003 hab ich´s nicht hinbekommen. Ich versuche das am Montag in der Arbeit mal.

Hallo,

das Makro von Fennek ist so ein schönes Beispiel, bei dem das Weglassen von .Value zum Nichfunktionieren des Makros führt.

Bianca, teste es mal so:

Sub Main()

  Dim ar As Range

  Dim i As Long

  For Each ar In Rows(3).SpecialCells(2).Areas

    Cells(12 + i, 1).Resize(, ar.Columns.Count) = ar.Value

    i = i + 1

  Next ar

End Sub

Gruß Uwe

Hallo Kuwer:

der Code war mit LO entwickelt und da gibt es kleine, aber störende Unterschiede.

mfg