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

Ansicht des Beitrags:
Von:
Marta
Datum:
06.08.2019 15:26:42
Views:
73
Rating: Antwort:
  Ja
Thema:
Übertragen wenn kleiner 2

Sub CheckBox1_Click_Show()

'kopieren Makro
'Show Makro

Dim k As Integer
Dim i As Integer
Dim n As Integer


k = 10

For i = 12 To 19
     
    If Sheets("Questionnaire").Cells(i, 6) < 2 Then
    
        Sheets("CAP").Cells(k, 1) = Sheets("Questionnaire").Cells(i, 1)
        Sheets("CAP").Cells(k, 2) = Sheets("Questionnaire").Cells(i, 6)
        Sheets("CAP").Cells(k, 3) = Sheets("Questionnaire").Cells(i, 7)
        k = k + 1
         
      


End If
Next

End Sub

Hallo ihr Lieben,

ich habe nächste Thema wo ich nachfragen muss.

1.

Ich Übertrage von einen Tabellen Blatt1 auf TabellenBlatt2 Informationen aus 3 Zeilen sobald in Tabellenblatt1 in der bestimmten Spalte (i,6) wert kleiner 2. Soweit so gut. Leider werden auch leere Zeilen mitübertragen da diese als 0 gesehen sind. Hat da jemand Idee wie ich das machen kann, dass die Zeilen soweit übertragen werden und die leere Zellen ausgeschlossen werden? Siehe erste Code

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