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

 


 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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 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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 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