Ich brauch dringend Hilfe!!!

Bild

Betrifft: Ich brauch dringend Hilfe!!!
von: Torschti
Geschrieben am: 22.02.2005 10:34:43
Schön guten tag euch allen!!!
hab ein kleines großes Problem!gibt es irgend eine Möglichkeit alle produkte die rot gekennzeichnet sind UND im Lagerprogramm sind
https://www.herber.de/bbs/user/18499.xls
in ein extra Tabellenblatt einzufügen ohne das ich jedes einzelne kopieren muß???
für ein paar tipps wär ich sehr sehr dankbar

Bild

Betrifft: AW: Ich brauch dringend Hilfe!!!
von: u_
Geschrieben am: 22.02.2005 10:45:03
Hallo,
in ein Modul:

Sub rot_kopieren()
  Dim i As Long
  Dim sh1 As Worksheet, sh2 As Worksheet
  Set sh1 = Sheets(1)
  Set sh2 = Sheets(2)
  For i = 1 To sh1.Cells(65536, 1).End(xlUp).Row
    If Cells(i, 1).Interior.ColorIndex = 3 And Cells(i, 11) = "Lagerprogramm" Then
      Rows(i).Copy sh2.Cells(65536, 1).End(xlUp).Offset(1, 0)
    End If
  Next i
End Sub

Gruß
Bild

Betrifft: AW: Ich brauch dringend Hilfe!!!
von: torschti
Geschrieben am: 22.02.2005 10:54:08
danke aber tut mir leid da seh ich nicht durch hab davon so wirklich keinen schimmer!!!
gibts da nicht andere möglichkeiten???
Bild

Betrifft: AW: Ich brauch dringend Hilfe!!!
von: AndréL.
Geschrieben am: 22.02.2005 11:02:16
https://www.herber.de/bbs/user/18501.xls
Hallo,
einfach auf den Button klicken, und schon hast Du
in der Tabelle2 Deine gewuenschten Daten.
Gruß
AndréL.
Bild

Betrifft: AW: Ich brauch dringend Hilfe!!!
von: u_
Geschrieben am: 22.02.2005 11:04:33
Hallo,
eine andere Möglichkeit kenne ich nicht.
Alt+F11
Im linken Fenster Rechtsklick auf deine Mappe
Einfügen-Modul
Den Code da rein kopieren.
Alt+Q
Extras-Makro-Makros und ausführen.
Gruß
Bild

Betrifft: Hat geklappt!!! dankeschön!!!
von: Torschti
Geschrieben am: 22.02.2005 11:27:47
vielen lieben dank werd mich damit jetz wohl mal genauer beschäftigen!!!
danke und grüße!!!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Summe einer Liste mit WENN Bedingung"