Frage wegen Programm
Hacki
Die meisten kennen mich hier bestimmt noch als Nervensäge :D , weil ich hier andauernt reinposte.
Meine Frage:
Hab ja im Programm diese Liste für die ComboBoxen benutzt, funnktioniert auch super!! nur ist mir heute aufgefallen das er beim übertragen von der ersten tabelle in die zweite, die Grauen-Flächen mit den Spaltenüberschriften nicht mit?! in welcher zeile kann ich das so programmieren damit er die grauenflächen auch mitbringt?
Mfg
Hacki
Private Sub Liste()
Application.ScreenUpdating = False
Sheets("Tabelle2").Cells.ClearContents 'loescht erstmal alles Tabelle2
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
Anzeige