Thema Datum  Von Nutzer Rating
Antwort
Rot Wenn 0 kreutz setzen von
06.08.2019 15:38:20 Marta
NotSolved
06.08.2019 17:04:17 Gast33052
NotSolved
06.08.2019 17:05:19 Gast52229
NotSolved

Ansicht des Beitrags:
Von:
Marta		 Datum:
06.08.2019 15:38:20		 Views:
905		 Rating:
     
Antwort:
  Ja
Thema:
Wenn 0 kreutz setzen von
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Sub SofortMaßnahme()
 
'X setzen sobald ein Erfüllungsgrad =0
 
 
 
    
    If Sheets("CAP").Cells(10, 2) = "0" Then
    
        Sheets("CAP").Cells(10, 6) = "X"
         
    Else: Sheets("CAP").Cells(10, 6) = ""
    End If
             
        If Sheets("CAP").Cells(11, 2) = "0" Then
            Sheets("CAP").Cells(11, 6) = "X"
        Else: Sheets("CAP").Cells(11, 6) = ""
        End If
             
        If Sheets("CAP").Cells(12, 2) = "0" Then
            Sheets("CAP").Cells(12, 6) = "X"
              Else: Sheets("CAP").Cells(12, 6) = ""
        End If
         
            If Sheets("CAP").Cells(13, 2) = "0" Then
                Sheets("CAP").Cells(13, 6) = "X"
            End If
             
                If Sheets("CAP").Cells(14, 2) = "0" Then
                    Sheets("CAP").Cells(14, 6) = "X"
                End If
 
                    If Sheets("CAP").Cells(15, 2) = "0" Then
                        Sheets("CAP").Cells(15, 6) = "X"
                    End If
                     
                        If Sheets("CAP").Cells(16, 2) = "0" Then
                            Sheets("CAP").Cells(16, 6) = "X"
                        End If
                         
                            If Sheets("CAP").Cells(17, 2) = "0" Then
                                Sheets("CAP").Cells(17, 6) = "X"
                            End If
                             
                                If Sheets("CAP").Cells(18, 2) = "0" Then
                                    Sheets("CAP").Cells(18, 6) = "X"
                                End If
                                 
                                    If Sheets("CAP").Cells(19, 2) = "0" Then
                                        Sheets("CAP").Cells(19, 6) = "X"
                                    End If
                                     
                                        If Sheets("CAP").Cells(20, 2) = "0" Then
                                            Sheets("CAP").Cells(20, 6) = "X"
                                        End If
                                            If Sheets("CAP").Cells(22, 2) = "0" Then
                                                Sheets("CAP").Cells(22, 6) = "X"
                                            End If
                                                If Sheets("CAP").Cells(23, 2) = "0" Then
                                                    Sheets("CAP").Cells(23, 6) = "X"
                                                End If
                                                    If Sheets("CAP").Cells(24, 2) = "0" Then
                                                        Sheets("CAP").Cells(24, 6) = "X"
                                                    End If
                                                        If Sheets("CAP").Cells(25, 2) = "0" Then
                                                            Sheets("CAP").Cells(25, 6) = "X"
                                                        End If
                                                            If Sheets("CAP").Cells(26, 2) = "0" Then
                                                                Sheets("CAP").Cells(26, 6) = "X"
                                                            End If
     
 
End Sub

Hallo
2. Frage ist:

Wenn von TAbellenblatt1 alles was <2 übertragen wird z.B. Null, dann möchte ich das in Tabellenblatt2 in der Spalte z.B. C ein Kreuz erscheint sobald in Spalte z.B. A) Null steht. und zwar genau die Gleiche Zeile. Ich habe einiges schon rumprobiert, leider wird mir nur erste Zeile immer übertragen. irgendwie klappt das nicht mit zwei Variablen z.B. i=i+1 und k=k+1. Zum Schluss habe ich jeder Spalte Manuel in VBA angegeben s. Code aber das ist auch nicht die optimale Lösung sobald mehr Zeilen dazu kommen.

Danki und Liebe Grüße :)

MArta

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
Rot Wenn 0 kreutz setzen von
06.08.2019 15:38:20 Marta
NotSolved
06.08.2019 17:04:17 Gast33052
NotSolved
06.08.2019 17:05:19 Gast52229
NotSolved