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:
1028		 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 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
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