[
attachment=33309]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
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?
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
Hallo Elex,
wie kann ich das Makro denn dann aufrufen?
Viele Grüße
Andreas
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: .
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
Zitat: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