Werte zufügen bei Bedingung

[ari-2001]

  Mappe für CEF.xlsx (Größe: 69,57 KB / Downloads: 11) Hallo zusammen,

ich versuche grade, mir ein Makro zu basteln,
dass in Spalte B (beginnend mit der zweiten Zeile) nachschaut, ob die letzten drei Zahlen zwischen 100 und 200 liegen.
Wenn das der Fall ist, soll der Wert in Spalte A mit einem "Schultag" ergänzt werden.

Ich kriege es nicht hin, kann mir jemand helfen?

Viele Grüße
Andreas

[Klaus-Dieter]

Hallo,

versuche es mit dieser Formel: =WENN(UND(WERT(RECHTS(B3;3))>100;WERT(RECHTS(B3;3))<200);"Schultag";"Mo") in Spalte A.

Upps, sollte ja ein Makro sein. Bekommst du das mit Hilfe der Formel hin?

[Elex]

Als Makro dann so in der Art.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Werte, Zahl As Long, j As Long

Werte = Cells(1).CurrentRegion
For j = 2 To UBound(Werte, 1)
  Zahl = Right(Werte(j, 2), 3)
  If Zahl > 99 And Zahl < 201 Then Werte(j, 1) = Werte(j, 1) & " Schultag"
Next j
Cells(1).CurrentRegion.Columns(1) = Application.Index(Werte, , 1)
End Sub

Gruß Elex

[ari-2001]

Hallo Elex,

wie kann ich das Makro denn dann aufrufen?

Viele Grüße
Andreas

[Elex]

Hallo Andreas,

dann wird es jetzt aber Zeit für die Lektüre.
Der Umgang mit Makros(im allgemeinem Modul) und EreignisMakro(so wie in meinem Code Doppelklick im Tabellenblatt) usw...
https://www.online-excel.de/excel/singsel_vba.php?f=100
Gruß Elex

[Niko]

Hier der VBA Code von Elex in Ihre Datei eingefügt.
Kopie von Mappe für CEF-2.xlsm

Hier die Formel von Klaus-Dieter in Ihre Datei eingefügt.
Kopie von Mappe für CEF-3_mit Formel.xlsx

 Wünsche ein angenehmen Tag und viel Freude mit den Lösungen :78: .

[ari-2001]

Vielen Dank, Elex, für die Lektüre.

Ich arbeite halt noch meinen vba-Kentnissen, aber es wird mit jedem Versuch ein wenig besser.

Mit dem Doppelklick, das habe ich verstanden, ich suche aber nach einer Lösung, dass ich das Makro aussuche und es
genau das, was es eigentlich tut, im Tabellenblatt "Testblatt" ausführt.

Wie müsste das Makro umgebaut werden?


Viele Grüße
Andreas

[Elex]

Ich arbeite halt noch meinen vba-Kentnissen, aber es wird mit jedem Versuch ein wenig besser.

Alles gut, bleib einfach dran.


Den Code jetzt in ein allgemeines Modul.

Code:

Public Sub Test()
Dim Werte, Zahl As Long, j As Long

  Werte = Sheets("Testblatt").Cells(1).CurrentRegion
  For j = 2 To UBound(Werte, 1)
    Zahl = Right(Werte(j, 2), 3)
    If Zahl > 99 And Zahl < 201 Then Werte(j, 1) = Werte(j, 1) & " Schultag"
  Next j
  Sheets("Testblatt").Cells(1).CurrentRegion.Columns(1) = Application.Index(Werte, , 1)

End Sub

Gruß Elex