Thema Datum  Von Nutzer Rating
Antwort
28.07.2022 11:06:42 Denni
NotSolved
28.07.2022 11:24:14 Mase
NotSolved
28.07.2022 11:30:24 Denni
NotSolved
28.07.2022 11:48:04 Mase
NotSolved
28.07.2022 12:01:05 Denni
NotSolved
28.07.2022 21:23:42 Mase
NotSolved
29.07.2022 07:56:56 Denni
NotSolved
Blau Automatisieren von Check auf 0 je nach Eingabe
 29.07.2022 09:53:59 Mase
*****
Solved
29.07.2022 11:53:25 Denni
NotSolved
29.07.2022 12:06:27 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
29.07.2022 09:53:59		 Views:
815		 Rating:
     
Antwort:
 Nein
Thema:
Automatisieren von Check auf 0 je nach Eingabe

 

Option Explicit
Option Compare Text

Type typPair
    key1  As String * 2
    key2  As String * 2
    flag  As Boolean
End Type

Sub Test01()

    Dim setOf(1 To 2)   As typPair
    Dim i               As Long
    Dim bolMsgbox       As Boolean
    
    bolMsgbox = True
    
    '*** set pair
    setOf(1).key1 = "B1":    setOf(1).key2 = "D4"
    setOf(2).key1 = "C1":    setOf(2).key2 = "C4"
    
    '*** set flag
    For i = LBound(setOf, 1) To UBound(setOf, 1)
        With ThisWorkbook
            setOf(i).flag = .Worksheets("Tabelle1").Range(setOf(i).key1).Text & .Worksheets("Tabelle2").Range(setOf(i).key2).Text = "x0"
        End With
    Next i
    
    '*** eval
    For i = LBound(setOf, 1) To UBound(setOf, 1)
        If setOf(i).flag = False Then
            bolMsgbox = False: Exit For
        End If
    Next i
   
    '*** Messagebox erscheint, wenn alle x auch auf 0 sind
    If bolMsgbox = True Then MsgBox ""
    
End Sub

 

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
28.07.2022 11:06:42 Denni
NotSolved
28.07.2022 11:24:14 Mase
NotSolved
28.07.2022 11:30:24 Denni
NotSolved
28.07.2022 11:48:04 Mase
NotSolved
28.07.2022 12:01:05 Denni
NotSolved
28.07.2022 21:23:42 Mase
NotSolved
29.07.2022 07:56:56 Denni
NotSolved
Blau Automatisieren von Check auf 0 je nach Eingabe
 29.07.2022 09:53:59 Mase
*****
Solved
29.07.2022 11:53:25 Denni
NotSolved
29.07.2022 12:06:27 Mase
NotSolved