Hilfe, Danke, und umsortieren von Tabellen
20.05.2004 18:37:32
Tabellen
vielen Dank für eure bisherige Hilfe zur Doktorarbeit, aber wir haben immer noch ein Problem. Aus unserer Musterdatei seht ihr, wie unsere Tabelle später aussehen soll. wir verstehen soweit die beiden nachfolgenden Makros, daß wir sicher auch in anderen Makros die Werteanzahl, usw. selbst ändern können.
Wir bräuchten also ein Makro, bei dem wir die Anzahl der zu sortierenden Werte selbst eingeben können. usw. Das Problem liegt darin, daß wir immer zwei Werte einem Bezug zuteilen müssen. und die Werte eben hintereinander stehen....
Wir haben etwa 5000 Zeilen mit solchen Werten.
Unten fügen wir mal an, was wir bereits an Makros von euch bekommen haben. IIhr könnt uns sicher nochmal helfen. BITTE!!!!!
Tausend DANK Marcie und Christian
https://www.herber.de/bbs/user/6567.xls
Makro 1:
Sub Struktur_aendern()
Application.ScreenUpdating = False
Set bas = Worksheets("basis")
x = 1
z = bas.Range("A65536").End(xlUp).Row
For i = 1 To z
For j = 0 To 3
Worksheets("code").Cells(x + j, 1) = bas.Cells(i, 1)
Worksheets("code").Cells(x + j, 2) = bas.Cells(i, j + 2)
Next j
x = x + 4
Next i
Application.ScreenUpdating = True
End Sub
Makro 2:
Sub ListeUmschreiben()
Dim ws1 As Worksheet, ws2 As Worksheet, z As Range, i%, efz%
Set ws1 = ThisWorkbook.Worksheets("basis")
Set ws2 = ThisWorkbook.Worksheets("code")
For Each z In ws1.Range("A2:A" & ws1.Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To 4
efz = ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1
If i = 1 Then efz = efz + 1
ws2.Cells(efz, 1).Value = z.Value
ws2.Cells(efz, 2).Value = z.Offset(0, i).Value
Next i
Next z
End Sub