Zeilenumbrüche nach jeweils X Spalten einfügen

[Kuwer]

Hallo Kuwer:

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

mfg

mir ging es eher um solche "Tipps" wie z.B. hier.

Gruß Uwe

[Bia74]

Mein Problem ist: ich weiß nicht wie ich ein Makro erfasse . 

Ich bin morgen in der Arbeit und schaue welche Excelversion wir haben - werde mich auch gleich mal ans versuchen machen. 

Wünscht mir Glück  :05:

Gute Nacht und vielen Dank für eure Hilfe! Melde mich wahrscheinlich erst übermorgen weil Montag Abend bei mir immer stressig ist...

[Bia74]

Bin grad im 2010 am probieren. Tatsächlich sind 10 Zellen (von A bis J) gefüllt. Zelle K und L ist leer dann sind wieder 10 Zellen gefüllt.

Makro hab ich probiert (wahrscheinlich auf die falsche Zellenanzahl geschrieben?) - Laufzeitfehler 1004  :s

[Wastl]

Also,

ich hab das Makro auch probiert und in meiner selbstgestrickten Beispieldatei nach deinen letzten Angaben hat es einwandfrei funktioniert.

Den von dir genannten Laufzeitfehler bekommst du nur, wenn die Datenreihe nicht in Reihe 3 beginnt und diese leer ist .

Entweder du verschiebst deine Datenreihe so, dass sie in 3 liegt oder du passt das Makro an, dass es auf die richtige reihe zielt
.Rows(3)
ist die Stelle

[Wastl]

Hallo Fennek,

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

Was ist LO?

[Kuwer]

Hallo Wastl,

Was ist LO?

vermutlich LibreOffice.

Gruß Uwe

[Bia74]

:50: Der erste entscheidende Etappenziel ist erreicht, funktioniert wie eine Bombe!!!

Jetzt habe ich Blut geleckt und würde gerne noch weiter in die Tiefe stoßen...

ich würde gerne weitere makros einfügen. habe eine weitere auswertung die mir 21 zellen (in spalten) nebeneinander auswirft, dann zwei leerzellen. dürfte ja vom prinzip her gleich funktionieren, oder?

Sub Datenverteilen()
Dim i,j,k As Integer
Dim y AS String

i = 4
j = 1
k =1
y ="Start"

While y<> "eof"
While y <>""
Cells(i, k) = Cells(1,j)
j = j + 1
k = 1
y = Cells(1,j)
Wend
j = j + 1
k = 1
y = Cells(1,j)
i = i + 1
Wend

Cells(i + 1,k) = "ready"

End Sub

da ich narrisch viele daten habe muss ich das bei der auswertung mit (ich glaube vier warens) vier spalten auf 10 mal machen/speichern weil mir sonst die spalten nicht reichen. Excel hat ja nur eine gewisse Spaltenzahl... dementsprechend muss ich bei einer auswertung mit 21 zellen pro datensatz ja auf 50 mal machen 

ich gehe davon aus, es muss auch eine kombi-auswertungsmöglichkeit geben. eine auswertung wirft klientenNUMMERN (ohne Namen) mit einigen weiteren ergebnissen aus und eine andere auswertung die klientenNUMMERN mit klientennamen.

da müsste doch bestimmt auch die möglichkeit sein, zwei excels zu kombinieren mit dem befehl, wenn in spalte A wert 1345 und in anderer exceltabelle ebenfalls in spalte C wert 1345 dann ergänze in der 1. Excel in Spalte B den Namen aus der 2. Excel-Liste.

Geht das dann auch über Makro, der Abgleich?

[schauan]

Hallöchen,

wenn Du weißt, wo die steht, z.B. jeweils in Zeile 123, dann z.B. so. Ich gehe jetzt mal davon aus, das der Name in der zweiten in Spalte D steht.

If Sheets("Tabelle1").Cells(123,1)=1234 and Sheets("Tabelle2").Cells(123,3)=1234 Then
Sheets("Tabelle1").Cells(123,2)=Sheets("Tabelle2").Cells(123,4)
End If

[Bia74]

Danke, das werde ich morgen gleich mal probieren  :19: