Habe folgenden Makrocode-Abschnitt, der eigentlich auch funktioniert. Steht in einem Tabellenblatt in R1 etwas drin, nur dann soll untenstehender Abschnitt durchgeführt werden, wobei ganz bestimmte Daten ins Tabellenblatt "Q-Meldungen" kopiert werden. Trotzdem bekomme ich beim Durchlauf leere Zeilen ins Tabellenblatt "Q-Meldungen". In R1 steht nirgends ein Leerzeichen und langsam weiß ich nicht mehr weiter. Daher folgende Fragen:
a) Woran liegt es, dass ich Leerezeilen bekomme?
b) Wie kann ich dieses Problem beheben bzw. umgehen (evtl. mit ner Sequenz, welche die unliebsamen Leerzeilen löscht?)?
Danke, schon mal im Vorraus. Eleni
If ThisWorkbook.Sheets("Q-Meldungen").Protect Then ThisWorkbook.Sheets("Q-Meldungen").Unprotect Password:="zeit"
With ThisWorkbook.Sheets("Q-Meldungen").Activate
If ThisWorkbook.Sheets("Q-Meldungen").Cells(3, 3).Value "" Then
ThisWorkbook.Sheets("Q-Meldungen").Range("A3", Cells(Rows.Count, 3).End(xlUp).Offset(0, 14)).Clear
End If
End With
If Trim$(myWs.Range("R1").Value) "" Then
myWs.Range("R1").Copy
wsh.Range("A" & zei).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
wsh.Cells(zei, 3) = myWs.Cells(n, 6)
myWs.Range("Q" & n & ":Q" & n + 9).Copy
wsh.Range("D" & zei & ":M" & zei).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
myWs.Range("R" & n & ":R" & n).Copy
wsh.Range("N" & zei).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End If
If Trim$(myWs.Range("R1").Value) "" And myWs.Cells(Rows.Count, 11).End(xlUp).Value = "SUMME" Then
wsh.Range("P" & zei).Font.ColorIndex = 1
wsh.Range("P" & zei).Interior.ColorIndex = 4
wsh.Range("P" & zei) = "JA"
End If
ThisWorkbook.Sheets("Q-Meldungen").Activate
ThisWorkbook.Sheets("Q-Meldungen").Range("A1").Select