Thema Datum  Von Nutzer Rating
Antwort
06.12.2018 12:44:41 AdiDeol
NotSolved
Blau Benötige dringend Hilfe - Lagerbestandsliste
 06.12.2018 14:18:19 Gast3578
NotSolved
06.12.2018 15:52:50 Gast3072
NotSolved
06.12.2018 16:59:39 Gast3578
NotSolved
07.12.2018 08:40:34 Gast30418
NotSolved
07.12.2018 08:42:41 Gast21441
NotSolved
07.12.2018 09:02:29 AdiDeol
NotSolved
07.12.2018 09:20:52 AdiDeol
NotSolved
06.12.2018 17:30:24 Gast3578
NotSolved
07.12.2018 08:41:38 Gast7828
NotSolved

Ansicht des Beitrags:
Von:
Gast3578		 Datum:
06.12.2018 14:18:19		 Views:
520		 Rating:
     
Antwort:
  Ja
Thema:
Benötige dringend Hilfe - Lagerbestandsliste		 
If .Range("B" & b).Value = "0" Then    'Wenn in Spalte B ein 0 steht, dann
                                       ' ist ein 0 - Wert eben keine Text - Null


Sub LeerStellen()
Dim rngS As Range, rngC As Range, RngR As Range
Dim strL As String

   With Sheets("Daten")
      Set rngS = Range(.Range("L2"), .Range("L2").End(xlDown))
      Set RngR = Range(.Range("D8"), .Range("D8").End(xlDown))
      For Each rngC In rngS.Cells
         If RngR.Find(rngC.Value) Is Nothing Then strL = strL & rngC.Value & Chr(10)
      Next rngC
     MsgBox strL
   End With

End Sub

... und

... was für ein versiffter File-Hoster ist das denn ?

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.12.2018 12:44:41 AdiDeol
NotSolved
Blau Benötige dringend Hilfe - Lagerbestandsliste
 06.12.2018 14:18:19 Gast3578
NotSolved
06.12.2018 15:52:50 Gast3072
NotSolved
06.12.2018 16:59:39 Gast3578
NotSolved
07.12.2018 08:40:34 Gast30418
NotSolved
07.12.2018 08:42:41 Gast21441
NotSolved
07.12.2018 09:02:29 AdiDeol
NotSolved
07.12.2018 09:20:52 AdiDeol
NotSolved
06.12.2018 17:30:24 Gast3578
NotSolved
07.12.2018 08:41:38 Gast7828
NotSolved