automatische Tabellenanpassung III
05.11.2019 13:50:13
Tobias
aus einer bereits hier im Forum beantworteten Makro-Funktion versuche ich gerade eine Variante zu basteln:
Sub Pruefung()
Dim lRow As Long
Dim myRng As Range
With ActiveSheet
lRow = .Cells(.Rows.Count, 5).End(xlUp).Row
For Each myRng In .Range("E2:E" & lRow)
If myRng.Font.ColorIndex = 1 Then
If .Range("H" & myRng.Row).Value "" Then
.Range("E" & myRng.Row).Copy .Range("F" & myRng.Row)
End If
End If
Next myRng
End With
End Sub
Es werden hier alle Zeilen erfasst, bei denen in der Spalte H die Zelle nicht leer ist. In diesen Zeilen wird dann der Inhalt der Zelle E in die Zelle F kopiert. Soweit so gut. Nun soll aber anschließend noch jeweils in der Zelle E der betroffenen Zeilen der bestehende Eintrag mit dem Vermerk in roter Schrift (und ohne die Anführungs- und Leerzeichen) überschrieben werden.
Vielen Dank!
Tobias