Excel Makro (2003)

[Nils89]

Hallo zusammen,

ich habe eine Excel Tabelle mit 28 Tabellenblättern, jetzt soll auf dem 1. Blatt alle Daten eingegeben werden und wenn man nach der Eingabe auf den Button "Sortieren" klickt ab D2 bis D50 für jede Zeile der Wert überprüft werden stehen immer Flughafen-kürzel drin(zb. DUS, MUC...), die weitern Tabellenblätter haben jeweils die gleichen Namen aller Flughafen-kürzel. Nun soll das Makro nach dem klick gucken welches "Kürzel" in der jewaligen Zeile steht und die komplatte Zeile vortlaufen ab A2 in die entsprechenden Tabellenblätter verschieben.(Die Zeile gehen immer von A bis K)

Hoffe das ist machbar und bedanke mich jetzt schon einmal

Gruß Nils

[Tilo2300]

Kannst du mal die Rohform der Excel-Datei mit ein paar Einträgen, wie es aussehen soll, online zur Verfügung stellen?
Dann kann man das besser nachvollziehen.

[AMI]

Hallo Nils89,

ich gehe von folgenden Prämissen aus:
1) Die Werte aus dem ersten Tabellenblatt werden IMMER in den andern (MUC, DUS ...) angehängt, das heisst, die "Zielblätter" werden nicht geleert
2) Die Zielblätter haben in der jeweils ersten Zeile die Spaltenüberschriften stehen

dann siegt der Code so aus:

option explicit
Sub sortieren()

Dim liLinecount As Integer
Dim liColumncount As Integer
Dim lsSheetname As String

Dim lwquelle As Worksheet

Set lwquelle = ActiveSheet

For liLinecount = 2 To 50
    
    lsSheetname = lwquelle.Range("D" & liLinecount).Value
    Worksheets(lsSheetname).Range("A" & Worksheets(lsSheetname).UsedRange.Rows.Count + 1).Value = lwquelle.Range("A" & liLinecount).Value
    
    For liColumncount = 2 To 11
        
        Worksheets(lsSheetname).Cells(Worksheets(lsSheetname).UsedRange.Rows.Count, liColumncount).Value = lwquelle.Cells(liLinecount, liColumncount).Value
    
    Next liColumncount

Next liLinecount

lwquelle.Range("A2:K50").Delete

End Sub

Bei Fragen ... fragen!

Grüßle

AMI