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.
For m = 10 To 50
If Sheets("CAR").Cells(m, 1) = "" Then
Sheets("CAR").Rows(m).Hidden = True
End If
Next
Das ganze sieht also, so aus:
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
|