Thema Datum  Von Nutzer Rating
Antwort
06.08.2019 15:26:42 Marta
NotSolved
06.08.2019 15:39:27 Werner
NotSolved
Rot Übertragen wenn kleiner 2
 06.08.2019 15:44:16 Werner
Solved
15.08.2019 13:46:00 Gast62738
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
06.08.2019 15:44:16		 Views:
414		 Rating:
     
Antwort:
 Nein
Thema:
Übertragen wenn kleiner 2

Hallo Marta,

sehe gerade, dass du 0 Werte und Werte kleiner 0 auch übertragen willst und es dir nur um die leeren Zellen geht. Dann so:

Sub CheckBox1_Click_Show()
Dim k As Long, i As Long, n As Long
 
k = 10

With Worksheets("Questionnaire")
    For i = 12 To 19
        If .Cells(i, 6) <> "" Then
            If IsNumeric(.Cells(i, 6)) Then
                If .Cells(i, 6) < 2 Then
                    Sheets("CAP").Cells(k, 1) = .Cells(i, 1)
                    Sheets("CAP").Cells(k, 2) = .Cells(i, 6)
                    Sheets("CAP").Cells(k, 3) = .Cells(i, 7)
                    k = k + 1
                End If
            End If
        End If
    Next i
End With
        
End Sub

 

Gruß Werner

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
06.08.2019 15:26:42 Marta
NotSolved
06.08.2019 15:39:27 Werner
NotSolved
Rot Übertragen wenn kleiner 2
 06.08.2019 15:44:16 Werner
Solved
15.08.2019 13:46:00 Gast62738
NotSolved