Thema Datum  Von Nutzer Rating
Antwort
01.10.2021 10:32:30 Jimmy
NotSolved
01.10.2021 10:38:14 Gast8477
NotSolved
01.10.2021 10:53:54 Gast9607
NotSolved
03.10.2021 23:12:35 Nobody
NotSolved
01.11.2021 10:45:03 Jimmy
NotSolved
01.11.2021 14:04:36 Jimmy
NotSolved
05.11.2021 11:05:43 Nobody
NotSolved
Blau Auswertungsmöglichkeit VBA mehrere Listen
05.11.2021 17:58:09 Nobody
NotSolved
05.11.2021 18:31:29 Nobody
NotSolved
05.11.2021 18:36:24 Nobody
NotSolved
04.10.2021 07:14:11 Mase
NotSolved

Ansicht des Beitrags:
Von:
Nobody
Datum:
05.11.2021 17:58:09
Views:
561
Rating: Antwort:
  Ja
Thema:
Auswertungsmöglichkeit VBA mehrere Listen

Hallo Jimmy

wenn es Leerzeilen zwischen den Lieferanten gibt dann ändere bitte den Code ab:    If Not rFind Is Nothing Then    damit sollte es klappen.

mfg  Nobody

         'bei Leerzeilen zw. den Lieferanten diesen Teil ändern
         If Not rFind Is Nothing Then
            Adr1 = rFind.Address   'Lieferant in Liste notieren
            List.Cells(zList, LstLfSpa) = .Cells(AC.Row, BasLfSpa)
            For j = 0 To 100
                'Aussprung wenn nächster Lieferant kommt
                Txt = .Cells(rFind.Row + j, BasLfSpa)
                If Txt <> Empty And Txt <> AC Then Exit For
                List.Cells(zList, LstBgSpa) = .Cells(rFind.Row + j, BasBgSpa)
                zList = zList + 1: n = n + 1
            Next j
         End If

 

 


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
01.10.2021 10:32:30 Jimmy
NotSolved
01.10.2021 10:38:14 Gast8477
NotSolved
01.10.2021 10:53:54 Gast9607
NotSolved
03.10.2021 23:12:35 Nobody
NotSolved
01.11.2021 10:45:03 Jimmy
NotSolved
01.11.2021 14:04:36 Jimmy
NotSolved
05.11.2021 11:05:43 Nobody
NotSolved
Blau Auswertungsmöglichkeit VBA mehrere Listen
05.11.2021 17:58:09 Nobody
NotSolved
05.11.2021 18:31:29 Nobody
NotSolved
05.11.2021 18:36:24 Nobody
NotSolved
04.10.2021 07:14:11 Mase
NotSolved