AW: Brauche mal Rat
23.06.2010 11:40:20
fcs
Hallo hacki,
wenn die Spaltentitel in der 1. Zeile stehen, dann geht es etwa wie folgt.
Gruß
Franz
'Liste erstellen
Private Sub Liste()
Application.ScreenUpdating = False
Sheets("Tabelle2").Cells.ClearContents 'loescht erstmal alles Tabelle2
'Spaltentitel übertragen
Select Case a
Case "in develop SW"
'ganze Zeile kopieren
Sheets("Tabelle1").Rows(1).Copy
Sheets("Tabelle2").Cells(1, 1).PasteSpecial Paste:=xlValues
Case Else
'nur Kunde übertragen
Sheets("Tabelle2").Cells(1, 1) = Sheets("Tabelle1").Cells(1, 2)
End Select
For i = 1 To Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row 'schrittweise schleife _
von 1 bis letzter Eintrag in SpalteB
If Sheets("Tabelle1").Cells(i, 4).Value = a Then 'sucht in SpalteD nach ComboBox Inhalt
Select Case a
Case "in develop SW"
'ganze Zeile kopieren
Sheets("Tabelle1").Rows(i).Copy 'wenn bezahlt in Zelle dann uebertragen nach Tabelle2
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:= _
xlValues
Case Else
'nur Kunde übertragen
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) _
= Sheets("Tabelle1").Cells(i, 2) 'wenn bezahlt in Zelle dann uebertragen nach _
Tabelle2
End Select
End If
Next ' naechster Schritt bis letzter Eintrag erreicht
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub