VBA wenn bestimmter Text dann Wert schre
14.02.2023 13:15:10
Thomas
ich habe bereits einen VBA Code im Tabellenblatt und benötige jetzt noch Folgendes:
Wenn in Q28:Q301 "Rücklagen!" steht, soll in die gleiche Zeile in Spalte I28:I301 "vollständig erhalten im" geschrieben werden, ansonsten soll nichts geschehen.
Kann mir damit bitte jemand helfen?
Meine ganzen Versuche sind wirr zusammenkopiert aus dem Netz und leider völlig ergebnislos.
Bisher ist dort bereits vorhanden, hat aber nichts damit zu tun:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I28:I301")) Is Nothing Then
Range("B28:BA301").Sort _
Key1:=Range("B28"), Order1:=xlAscending, _
Key2:=Range("AR28"), Order2:=xlAscending, _
Key3:=Range("F28"), Order2:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom _
End If
End Sub
Vielen Dank!
Thomas