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:
58
Rating: Antwort:
  Ja
Thema:
Wenn 0 kreutz setzen von
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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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