|
Hey,
Filter sind gut und schön, allerdings wäre es deutlich komfortabler, das direkt schön aufgereiht zu bekommen.
Mit der neuen Tabelle und den Daten sollen dann Briefe in Word erstellt werden.
Ich hab jetzt auch schon mal angefangen, etwas zu schreiben. Allerdings dauert das wirklich lange, weil ich zwar weiß, was ich will, aber den Ausdruck dafür nicht kenne.
Sub Neues_Blatt()
Dim c As Range
Sheets("Terminübersicht").Columns("A:K").Copy
Sheets("Neu").Columns("A:K").PasteSpecial Paste:=xlPasteAll
For Each c In Intersect(ActiveSheet.UsedRange.Cells, Columns("C:K"))
If InStr(LCase(c.Value), "nicht erforderlich") <> 0 Then
Range(c, c.Offset(0, 0)).ClearContents
End If
Next c
End Sub
Das hab ich bisher. Löst aber nur mein erstes Problem.
|