Zellen verbinden und Text eintragen ?
09.11.2007 16:18:28
Selma
1. wenn ich z.B. Zellenbereich T25:T45 markiere und das Makro ausführe, dann funktioniert der Code.
2. wenn ich z.B. Zellenbereich T25:T45 + T50 markiere und das Makro ausführe, dann funktioniert der Code, nur bei T25:T45.
3. wenn ich z.B. Zeilen 25:45 markiere und das Makro ausführe, dann funktioniert der Code.
4. wenn ich z.B. Zeilen 25:45 + 50 markiere und das Makro ausführe, dann funktioniert der Code, nur bei Zeilen 25:45.
Was muss ich verändern, damit die Punkte 2 und 4 auch funktioniert?
Sub MergeCells_Select()
' Auswahl über Zeile als auch über Zellen möglich
' wenn in Zelle der Spalte T "nein" steht, dann soll der Zellenbereich T:Z verbunden werden
' und anstatt "nein" soll dies "rechnung nicht geprüft" eingetragen werden und mit der Fü _
llfarbe 43 eingefärbt.
On Error GoTo DispFehler
Dim lrZelle As Range
Dim startZeile As Long
Dim endeZeile As Long
startZeile = Selection.Row
endeZeile = Selection.Row + Selection.Rows.Count - 1
Application.DisplayAlerts = False
For Each lrZelle In Range(Cells(startZeile, 20), Cells(endeZeile, 20))
If lrZelle.Value = "nein" Then
Range(lrZelle, lrZelle.Offset(0, 6)).Merge
lrZelle.Value = "rechnung nicht geprüft"
lrZelle.Interior.ColorIndex = 43
End If
Next
DispFehler:
Application.DisplayAlerts = True
End Sub
Vielen Dank im Voraus.
Liebe Grüße
Selma
Anzeige