|
In der Spalte A sind beispielsweise die Zellen 1,3,4 Gelb.
In der Spalte B sind beispielsweise die Zellen 1,3 Gelb.
In der Spalte C sind beispielsweise die Zelle 3 Gelb.
Die Spalte A hat das Wort "Hallo" hinterlegt
Die Spalte B hat das Wort "Moin" hinterleg,
Die Spalte C hat das Wort "Grüße" hinterlegt
In der Saplte D Sollen dann die Wörter ausgegeben werden.
Bsp:
mir würde schon im Forum von Mase geholfen nur konnte ich noch nicht herrrausfiden, wie ich mehrer Texte in eine Spalte schreibe
Bsp MASE:
Option Explicit
Sub Schengb()
Dim wks As Worksheet: Set wks = ActiveSheet
With wks
If .AutoFilterMode Then .AutoFilterMode = False
.Range("A1:A100").AutoFilter _
Field:=1, _
Criteria1:=vbYellow, _
Operator:=xlFilterCellColor
If Not Intersect(.Range("A1:A100"), .Range("A1:A100").Offset(1, 0), .Range("A1:A100").SpecialCells(xlCellTypeVisible)) Is Nothing Then
Intersect(.Range("A1:A100"), .Range("A1:A100").Offset(1, 0), .Range("A1:A100").SpecialCells(xlCellTypeVisible)).Offset(0, 22).Value = "Irgendein Text"
End If
.AutoFilterMode = False
End With
End Sub
|