Thema Datum  Von Nutzer Rating
Antwort
14.12.2016 23:24:28 Gast69602
*****
Solved
15.12.2016 16:09:25 Mackie
NotSolved
16.12.2016 01:35:10 Gast12419
NotSolved
16.12.2016 16:46:20 Mackie
NotSolved
16.12.2016 17:16:32 Gast10303
NotSolved
16.12.2016 17:30:54 Mackie
NotSolved
16.12.2016 17:39:53 Mackie
NotSolved
16.12.2016 18:49:03 Mackie
NotSolved
16.12.2016 20:53:43 Mackie
NotSolved
18.12.2016 05:30:23 Gast48043
NotSolved
18.12.2016 05:33:49 Gast66654
NotSolved
Blau Vergleich funktioniert nicht vollständig
 18.12.2016 12:17:02 Mackie
NotSolved
20.12.2016 00:30:44 Gast11060
NotSolved
20.12.2016 05:39:03 Mackie
NotSolved
20.12.2016 20:06:00 Gast21698
NotSolved

Ansicht des Beitrags:
Von:
Mackie		 Datum:
18.12.2016 12:17:02		 Views:
620		 Rating:
     
Antwort:
  Ja
Thema:
Vergleich funktioniert nicht vollständig

Sub Makro4()
Dim Wertung As Double
Dim m(3) As String
Dim mm(3) As String
Dim ast(3)
i = 2
ast(1) = "*": ast(2) = "**": ast(3) = "***": ff = 0
For n = 1 To 3
    mf = Tabelle2.Cells(2, 2 + n)
    ff = ff + 1
    m(ff) = mf: If mf = "" Then fs = fs + 1: m(ff) = ast(fs):
Next n
Do While IsEmpty(Tabelle1.Cells(i, 1)) = False
    found = True: fs = 0
    For n = 1 To 3
        mm(n) = Tabelle1.Cells(i, n + 2):
        If mm(n) = "" Then
            fs = fs + 1
            mm(n) = ast(fs)
        End If
    Next n
    For f = 1 To ff
        If m(f) <> mm(1) And m(f) <> mm(2) And m(f) <> mm(3) Then found = False
    Next f
    If found Then
        Tabelle2.Cells(i + 3, 1).Value = Tabelle1.Cells(i, 1).Value
        'Wertung...
    Else
        Tabelle2.Cells(i + 3, 1).Value = 0
    End If
    i = i + 1
Loop
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
14.12.2016 23:24:28 Gast69602
*****
Solved
15.12.2016 16:09:25 Mackie
NotSolved
16.12.2016 01:35:10 Gast12419
NotSolved
16.12.2016 16:46:20 Mackie
NotSolved
16.12.2016 17:16:32 Gast10303
NotSolved
16.12.2016 17:30:54 Mackie
NotSolved
16.12.2016 17:39:53 Mackie
NotSolved
16.12.2016 18:49:03 Mackie
NotSolved
16.12.2016 20:53:43 Mackie
NotSolved
18.12.2016 05:30:23 Gast48043
NotSolved
18.12.2016 05:33:49 Gast66654
NotSolved
Blau Vergleich funktioniert nicht vollständig
 18.12.2016 12:17:02 Mackie
NotSolved
20.12.2016 00:30:44 Gast11060
NotSolved
20.12.2016 05:39:03 Mackie
NotSolved
20.12.2016 20:06:00 Gast21698
NotSolved