Thema Datum  Von Nutzer Rating
Antwort
Rot Verbundene Zellen
10.04.2019 11:55:10 Martra
NotSolved
11.04.2019 00:19:51 Gast32472
NotSolved
11.04.2019 09:45:07 Flotter Feger
NotSolved
17.04.2019 10:17:46 Gast18438
NotSolved
17.04.2019 13:07:31 Marta
NotSolved

Ansicht des Beitrags:
Von:
Martra
Datum:
10.04.2019 11:55:10
Views:
104
Rating: Antwort:
  Ja
Thema:
Verbundene Zellen

Hallo Ihr Lieben,

Ich erstelle gerade ein Template in dem aus Tabellenblatt "Questionnaire" bestimmte Spalten auf den Tabellenblatt "CAR" übertragen werden sollen.

Es werden 3 Spalten A, G und H. Die Übertragung in "CAR" erfolgt dann, wenn in Spalte G die Zahlen kleiner 2 sind. Bis jetzt hat alles funktioniert und die Inhalte wurden nacheinander übertragen. Siehe Code:

 


 

Private Sub CheckBox1_Click()

'kopieren Makro
'Show Makro

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

Sheets("CAR").CheckBox1.BackColor = RGB(0, 59, 89)

k = 9
n = 1

For i = 10 To 50
    
    If Sheets("Questionnaire").Cells(i, 7) < 2 Then
   
        Sheets("CAR").Cells(k, 1) = Sheets("Questionnaire").Cells(i, 1)
        Sheets("CAR").Cells(k, 2) = Sheets("Questionnaire").Cells(i, 7)
        Sheets("CAR").Cells(k, 3) = Sheets("Questionnaire").Cells(i, 8)
        k = k + 1
           
        ElseIf Sheets("CAR").CheckBox1 = False Then
    
            Sheets("CAR").Range("A9:A40", "R9:R40") = ""

    Exit For
End If
Next

End Sub

 Nachdem ich aber einige Zeilen verbunden habe, werden bei Übertragung ´der Inhalte in Tabellenblatt CAR leere Zellen dazwischen erzeugt und zwar immer nach den Zellen wo die Verbindung stattfindet. Ich weiß, dass das irgendwie an zählen n=1 wahrscheinlich liegt. Ich weiß aber nicht wie ich das anders schreiben könnte sodass alles nacheinander übertragen wird, ohne leere Zellen dazwischen. Kann mir bitte jemand dabei helfen.

Ich kann gerne mein Exceldatei schicken, weiß aber nicht wie :)

Vielen Dank :)

 


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 Verbundene Zellen
10.04.2019 11:55:10 Martra
NotSolved
11.04.2019 00:19:51 Gast32472
NotSolved
11.04.2019 09:45:07 Flotter Feger
NotSolved
17.04.2019 10:17:46 Gast18438
NotSolved
17.04.2019 13:07:31 Marta
NotSolved