VBA wenn bestimmter Text dann Wert schre

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub reinschreiben() Dim Z As Range For Each Z In Range("Q18:Q301") If Z.Value = "Rücklagen!" Then Cells(Z.Row, "I") = "vollständig erhalten im" End If Next Z End Sub

Entschuldige bitte, also jetzt habe ich doch noch eine Frage, weil es doch nicht ganz so klappt wie gewünscht :/
Ich muss die Abfrage offenbar immer im Code Fenster erst anstossen.
Ich würde es natürlich bei jeder Änderung in Q28:Q301 von "irgendeinem anderen Wert" zu "Rücklagen" automatisch ausgelöst haben wollen.
Sobald ich auf "Userform / Sub ausführen" klicke, macht er es, ansonsten aber nicht.
Und irgendwie rechnet er auch sehr lange dafür - hat das doch mit der Sortierung zu tun?
Hier nochmal mein kompletter Code, wie er jetzt drin steht.
Ich hoffe, es gelingt noch ohne Beispieldatei, das würde mich halb irre machen, die zum posten zusammenzustauchen oO

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 'Rows(Target.Row).Select
 ActiveCell.EntireRow.Select
 End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("I28:I301")) Is Nothing Then
        Range("B28:BB301").Sort _
            Key1:=Range("B28"), Order1:=xlAscending, _
            Key2:=Range("AS28"), Order2:=xlAscending, _
            Key3:=Range("F28"), Order2:=xlAscending, _
            Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlTopToBottom _
    End If
End Sub
'  Für jede Zelle Z in Q28:Q301
'    Wenn Wert von Z = ... Dann
'        in Zelle(Zeile von Z, Spalte "I"), Wert ... schreiben
'    Ende Wenn
'  Nächste Z
Sub Provision_vollständig()
Dim Z As Range
    For Each Z In Range("Q28:Q301")
        If Z.Value = "Rücklagen noch überweisen!" Then
            Cells(Z.Row, "I") = "Provision vollständig erhalten im"
        End If
    Next Z
End Sub

Die Formel die in Q28.Q301 steht (und weshalb ich dort keine weitere Formel unterbringen kann und es per VBA lösen muss) lautet:

=WENN(N28="eintragen!";"";WENN(P28="";"";WENN(UND(O28-P28=0;I28>"Abgaben / Rücklagen umbgebucht"); HYPERLINK("#AY"&ZEILE();"Rücklagen noch überweisen!");O28-P28)))

Am Hyperlink scheint es nicht zu liegen, ich habe "Rücklagen noch überweisen" bereits händisch eingegeben, wollte es aber nur ergänzend sagen.
Danke nochmal für Deine Zeit und Deine Geduld!
Thomas

Const cDatenBereich = "Q28:Q301" Sub Provision_vollständig() Dim Z As Range For Each Z In Range(cDatenBereich) If Z.Value = "Rücklagen noch überweisen!" Then Cells(Z.Row, "I") = "Provision vollständig erhalten im" Next Z End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveCell.EntireRow.Select End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim Z As Range If Not Intersect(Target, Range(cDatenBereich)) Is Nothing Then For Each Z In Intersect(Target, Range(cDatenBereich)) If Z.Value = "Rücklagen noch überweisen!" Then Cells(Z.Row, "I") = "Provision vollständig erhalten im" Next Range("B28:BB301").Sort _ Key1:=Range("B28"), Order1:=xlAscending, _ Key2:=Range("AS28"), Order2:=xlAscending, _ Key3:=Range("F28"), Order2:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom End If End Sub

Const cDatenBereich = "Q28:Q301" '----------------------------------------------- ' für den User sichtbare und abrufbare Prozeduren Public Sub Provision_vollständig() Bereich_sortieren End Sub '----------------------------------------------- ' Ereignis-Prozeduren Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveCell.EntireRow.Select End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(cDatenBereich)) Is Nothing Then SpalteI_behandeln Bereich_sortieren End Sub '----------------------------------------------- ' für den User nicht sichtbare Aktionen Private Sub SpalteI_behandeln() Dim Z As Range Application.EnableEvents = False For Each Z In Range(cDatenBereich) If Z.Value = "Rücklagen noch überweisen!" Then Cells(Z.Row, "I") = "Provision vollständig erhalten im" Next Z Application.EnableEvents = True End Sub Private Sub Bereich_sortieren() Application.EnableEvents = False Range("B28:BB301").Sort _ Key1:=Range("B28"), Order1:=xlAscending, _ Key2:=Range("AS28"), Order2:=xlAscending, _ Key3:=Range("F28"), Order2:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom Application.EnableEvents = True End Sub

Sub Provision_vollständig() Dim Z As Range Application.EnableEvents = False For Each Z In Range("Q28:Q301") If Z.Value > "" Then Debug.Print Z.Address, Z.Value = "Rücklagen noch überweisen!", Z.Value Next Z Application.EnableEvents = True End Sub

$Q$28 Wahr Rücklagen noch überweisen! $Q$29 Wahr Rücklagen noch überweisen! $Q$30 Wahr Rücklagen noch überweisen! $Q$31 Falsch 0,02 $Q$32 Falsch 0,02 $Q$33 Falsch 0,02

Ach Thomas *Ohren langziehen*,
Gerade schaue ich zum erste mal ein bischen mehr als nur die Frage, die Du gestellt hast und schaue, wie deine Datei sich verhält, wenn etwas geändert wird.
In der Zeile I gibt es eine Datenüberprüfung mit einer festgegebenen Liste an Einträge. Wenn man ein von diesen Einträge ändert, dann ändert sich die Spalte Q. Somit hat man ein Zirkelbezug (zumindest an einer Stelle). Es wird von Excel nicht beanstandet, weil ein Teil davon über Formel und Teil über VBA gesetzt wird.
Aus alle Fälle, wenn in Spalte I ein "Provision vollständig erhalten im" reinkommt, dann verschwindet den "Rücklagen noch überweisen!" in Spalte Q.
Die gesamte Anwendung ist eine zusammengebasteltes, wo nicht mal derjenige, der es gebaut hat (Du, nehme ich an), noch den Durchblick hat.
Ich glaube nicht, dass aus der Bruchbude eine neue Farbanstrich ein Luxuspalast machen wird. Du musst zuerst kräfig ausmisten, vielleicht sogar alles neu aufbauen. Googel nach Zustandsautomat und nach Bewegungsdaten (Model View Controller wäre auch gut: Datenerfassung und Datenauswertung auf alle Fälle voneinander trennen).
Es wird Zeit, deine Anwendung auf stabilere Basis zu bringen. Erst dann kann das Gebilde VBA vertragen.
Ich bin raus.
VG
Yal

Beliebteste Forumthreads (12 Monate)

VBA wenn bestimmter Text dann Wert schre

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

347 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA wenn bestimmter Text dann Wert schre

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

347 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread