Thema Datum  Von Nutzer Rating
Antwort
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
Rot Verbundene Zellen
 17.04.2019 13:07:31 Marta
NotSolved

Ansicht des Beitrags:
Von:
Marta		 Datum:
17.04.2019 13:07:31		 Views:
597		 Rating:
     
Antwort:
  Ja
Thema:
Verbundene Zellen

Also ich habe es versucht eine zusätzliche Funktion mit < 0 einzufügen aber dann werden auch andere Zellen z.B. mit dem Wort NA angezeigt. Aber das hat mich auf die Idee gebracht und zwar :

in CAR (also da wo die Zellen kopiert werden sollen wenn > 2 und wo die ungewunschte leere Zellen dazwischen erscheinen bei verbundenen Zellen), habe ich zusätzliche Funktion hinzugefügt. Diese sagt, dass die leere Zellen in CAR ausgeblendet wrden sollen, sobald eine Zeile leer ist. 

?
1
2
3
4
5
6
7
<strong>For m = 10 To 50
         
    If Sheets("CAR").Cells(m, 1) = "" Then
        Sheets("CAR").Rows(m).Hidden = True
         
End If
Next</strong>

 

Das ganze sieht also, so aus:

 

?
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
33
34
35
36
37
38
39
40
41
42
43
44
45
<strong>Sub kopieren()
 
' kopieren Makro
 
 
Dim k As Integer
Dim i As Integer
Dim n As Integer
Dim m As Integer
 
 
k = 10
n = 1
 
For i = 15 To 64
      
    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
 
End If
Next
 
For m = 10 To 50
         
    If Sheets("CAR").Cells(m, 1) = "" Then
        Sheets("CAR").Rows(m).Hidden = True
         
End If
Next
         
    
 
End Sub
 
 
 
 
 
Danke und Grüß,
Marta</strong>

 

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
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
Rot Verbundene Zellen
 17.04.2019 13:07:31 Marta
NotSolved