Thema Datum  Von Nutzer Rating
Antwort
10.12.2022 12:11:12 Marc.L
NotSolved
Blau Msgbox in For Schleife
 10.12.2022 13:15:02 Flotter Feger
NotSolved
11.12.2022 17:37:15 Marc.L
NotSolved
11.12.2022 17:51:59 Marc.L
NotSolved
11.12.2022 18:26:46 Flotter Feger
NotSolved
11.12.2022 19:51:12 Marc.L
NotSolved
11.12.2022 20:19:31 Gast61337
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
10.12.2022 13:15:02		 Views:
328		 Rating:
     
Antwort:
  Ja
Thema:
Msgbox in For Schleife

Hallo,

nur ein Vorschlag, um dir die Logik der Prüfung zu zeigen ...

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'Farbe in Zelle in Tabelle suchen
Dim bool1 As Boolean
bool1 = False
If Material = Worksheets("Material").Cells(1 + j, 2) Then
        'Farbe setzen in ING_Eplan_Export
    wks.Cells(1 + i, 2) = Worksheets("Material").Cells(1 + j, 1)
    bool1 = True
End If
 
'...
'Querschnitt in Zelle in Tabelle suchen
Dim bool2 As Boolean
bool2 = False
If Farbe = Worksheets("Material").Cells(1 + k, 5) Then
       'Querschnitt setzen in ING_Eplan_Export
    wks.Cells(1 + i, 1) = Worksheets("Material").Cells(1 + k, 4)
    bool2 = True
End If
 
If bool1 = False Or bool2 = False Then MsgBox "Querschnitt oder Farbe fehlen!" & " " & Material

Sabina

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
10.12.2022 12:11:12 Marc.L
NotSolved
Blau Msgbox in For Schleife
 10.12.2022 13:15:02 Flotter Feger
NotSolved
11.12.2022 17:37:15 Marc.L
NotSolved
11.12.2022 17:51:59 Marc.L
NotSolved
11.12.2022 18:26:46 Flotter Feger
NotSolved
11.12.2022 19:51:12 Marc.L
NotSolved
11.12.2022 20:19:31 Gast61337
NotSolved