Messagebox Liste

[Exceluser1]

Hallo liebe User,

brauche mal Eure Hilfe...Danke vorab!!!
Ich habe eine Schaltfläche worauf ich klicken möchte:
Dann soll das passieren...in Spalte L stehen jeweils entweder die Zahl 1 (für umgesetzt) und die Zahl 0 (für in Bearbeitung). Nun soll Excel, bei Klick auf die Schaltfläche prüfen, in welcher Zeile die 0 steht, dann den dazugehörigen Lieferant (in Spalte D) in Form einer Liste ausgeben. Gibt es einige cracks hier grad die mir helfen könnten? Danke nochmal.

Grüße

[Rabe]

Hi,

Gibt es einige cracks hier grad die mir helfen könnten? Danke nochmal.

mit Sicherheit gibt es da einige, die da helfen können.

Aber mit den informationen bist Du zu sparsam:
Also stelle bitte (D)eine (Beispiel-)Tabelle als Excel-Datei zur Verfügung oder stelle die relevanten Ausschnitte und die Makro-Codes hier dar, siehe die als Wichtige Themen: markierten Beiträge im Forum "Nutzungs- und Bedienungshinweise" bei "Forumstechnik".

• Eine Beispieldatei muss vom Aufbau her zwingend dem Original gleichen, sonst wird's mit gezielter Hilfe i. d. R. nichts oder erst nach zig Nachfragen
  
• Meistens reichen 10-15 Datensätze
  
• Sensible Daten sollen anonymisiert werden
  
• Bei einigen Datensätzen sollte unbedingt händisch das Wunschergebnis eingetragen sein
  
• Und last but not least ist es wichtig, im Post zugeschnitten auf die Beispieldatei eine ordentliche Problembeschreibung abzugeben.
  

Die farbigen Texte sind anklickbare Links.

Hier steht, wie es geht:
Beitrag 1 WICHTIG: Arbeitsmappen zur Verfügung stellen
Beitrag 2 WICHTIG: Tabellenausschnitte und VBA-Codes im Forum einstellen

Eine Bitte:
Anstatt Screenshots ist eine Datei oder ein Ausschnitt besser!
"Du gehst ja auch nicht in die Werkstatt und gibst zur Reparatur ein Foto Deines kaputten Autos ab!"

[Exceluser1]

Hallo,

also hier mal mein selbst zusammengeschnipselter Code, aber wie bekomme ich nun eine gesamte Liste angezeigt? DANKE!

Sub Status()
Dim Bereich As Range
 Dim Zelle As Range
 Set Bereich = Range("L1:L500")
 For Each Zelle In Bereich
     If Zelle = "1" Then
     'keine Aktion erforderlich
     ElseIf Zelle = "0" Then
         MsgBox "Achtung: Lieferant " & Zelle(1, -5).Value & " in " & Zelle(1, -4).Value & " in Bearbeitung "
     End If
 Next
End Sub

[RPP63]

Moin!
Mal doof nachgefragt:
Warum filterst Du nicht einfach Spalte L nach 0?

Gruß Ralf

[Exceluser1]

Soll laut Chef so gemacht werden xD

[RPP63]

Ohne Worte … :s

Mittels VBA

• Filtere bei ausgeschalteter Bildschirmaktualisierung.
  
• Den String der Lieferanten erhältst Du mit:
  Split(Columns("D").SpecialCells(xlCellTypeVisible), vbCrLf)
  
• Filter ausschalten
  

Wenn Du damit nicht klar kommst, solltest Du Deinen Chef davon überzeugen, dass VBA offensichtlich nicht das Richtige für euch ist.

Nix für ungut, aber wozu bietet Excel dass alles onboard?
Ich mag VBA!
Aber NUR DORT, wo es auch Sinn macht.

Gruß Ralf

[Exceluser1]

haha ist ein Projekt von uns. Danke schonmal. Wo muss ich jetzt diese Codeline einsetzen?

[Kuwer]

Hallo,

Sub Status()
  Dim strMsg As String
  Dim Zelle As Range
  For Each Zelle In Range("L1:L500")
    If Zelle = "0" Then
      strMsg = strMsg & vbNewLine & "Achtung: Lieferant " & Cells(Zelle.Row, 4).Value & " in Zeile " & Zelle.Row & " in Bearbeitung."
    End If
  Next
  MsgBox strMsg
End Sub

Gruß Uwe

[Exceluser1]

Danke Danke Kuwer!!!