Wert soll = > sein

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaaTest() Dim ez As Variant Dim zz Dim ze As Long Dim z As Long Dim cc As Range ez = ActiveSheet.Range("N5").Value MsgBox ez 'Testzeile 'Inhalt in Zellen mit Wert >= 30 im Bereich löschen For Each cc In Range(Cells(6, 1), Cells(Rows.Count, 1).End(xlUp)) If Day(cc) >= ez Then cc.ClearContents 'Bei Datum im Bereich ' If cc >= ez Then cc.ClearContents 'Bei Zahl im Bereich ' If Val(Left(cc, 2)) >= ez Then cc.ClearContents 'Bei Text im Bereich, der mit Zahl beginnt Next cc ActiveSheet.Range("A5").Select zz = ActiveCell.Address() For Each cc In Range(Cells(6, 1), Cells(Rows.Count, 1).End(xlUp)) If Day(cc) = ez Then Application.Goto cc, True: Exit For Next cc End Sub

Hallo Franz,
habe mal weiter versucht, habe weitere Abfragen eingebaut, dies müßte irgendwie in eine
Schleife oder ?
'----------------------------------------
Dim ez As Variant
ez = Val(Left(ActiveSheet.Range("M2").Value, 2))
If ez >= ez Then
'----------------------------------------
Dim zz
Dim ze As Long
Dim z As Long
ActiveSheet.Range("I6").Select
zz = ActiveCell.Address()
Dim cc As Range
For Each cc In Range(Cells(6, 9), Cells(Rows.Count, 9).End(xlUp))
'If Day(cc) = ez Then Application.Goto cc, True: Exit For
If Day(cc) >= ez And Month(cc) = Month(Date) Then cc.Select
Next cc
z = Range(zz).End(xlDown).Row
Range(Cells(ActiveCell.Row, 1), Cells(z, 13)).Select
Selection.Delete Shift:=xlUp ' zeile löschen nach oben setzen
'Dim Mz As String
' Mz = Format(ActiveSheet.Range("M2").Value, "DD")
'Dim Mz As String
' Mz = 19
'MsgBox Mz
Dim c As Range
For Each c In Range(Cells(6, 9), Cells(Rows.Count, 9).End(xlUp))
If Day(c) = ez Then Application.GoTo c, True: Exit For
Next c
' ActiveCell.Offset(1, -8).Select
'-----------------------------------------------
<i>Dim nz As Variant
If ez <> "" Then
MsgBox "Datum kann nicht gefunden werden "
ActiveSheet.Range("I6").Select
nz = ez + 1
MsgBox nz
If nz <> "" Then
nz = ez + 2
MsgBox ez & "auch nicht da"
For Each c In Range(Cells(6, 9), Cells(Rows.Count, 9).End(xlUp))
If Day(c) = nz Then Application.GoTo c, True: Exit For
Next c
End If
End If</i>'---------------<b></b>--------------------------------
Dim az 'Orginal hier
az = ActiveCell.Address() '
ActiveWindow.ScrollRow = 5 '5 Zeile
ActiveWindow.ScrollColumn = 1 '1 Spalte
Range(az).Select
'-------- ab jetzt den Rest löschen --------------
Dim za As Long
Dim Antwort As String
za = Range(az).End(xlDown).Row
Range(Cells(ActiveCell.Row, 1), Cells(za, 13)).Select
End If
Exit Sub
gruß kurt

Hallo Kurt,
hier ein Beispiel.
Die Prozedur sucht zunächst im Bereich nach dem eingelesenen Wert. Wird dieser nicht gefunden, dann wir der Wert in der Schleife immer um 1 erhöht bis zum vorgegebenen Max-Wert.


Sub aaatest()
Dim varGesucht As Variant, varGefunden As Variant
Dim Zelle As Range
'Gesuchten wert einlesen
varGesucht = Val(Left(ActiveSheet.Range("M2").Value, 2))
varGefunden = varGesucht 'Hilfswert setzen
Do
'Prüfen, ob der Hilfswert die Bedingungen für eine Zelle im Bereich erfüllt
For Each Zelle In Range(Cells(6, 9), Cells(Rows.Count, 9).End(xlUp))
'If Day(Zelle) = varGefunden Then Application.Goto Zelle, True: Exit For
If Day(Zelle) = varGefunden And Month(Zelle) = Month(Date) Then
Zelle.Select
'Testzeilen --------------------- Anfang
If varGefunden = varGesucht Then
MsgBox varGesucht & " wurde gefunden"
Else
MsgBox varGesucht & " wurde nicht gefunden, aber nächst höherer Wert " & varGefunden
End If
'Testzeilen --------------------- Ende
Exit Do
End If
Next Zelle
varGefunden = varGefunden + 1
If varGefunden = 32 Then
MsgBox varGesucht & " nicht gefunden und auch kein anderer Wert bis 31"
Exit Sub
End If
Loop
End Sub

Noch ein paar Tipps:
Alle Dim-Anweisungen sollten zu Beginn einer Prozedur stehen und nicht verstreut im Code.
Du musst auch nicht unbedingt für jede Schleife neue Variablen deklarieren. Nur wenn du die Inhalte von Variablen später in der Prozedur nochmals benötigst dann sind unterschiedliche Variablen erforderlich. Ansonsten ist die wiederholte Verwendung der gleichen Variablen sinnvoll.
Ansonsten könnte man den Code noch um einige
....Select
Selection ....
Konstrukte bereinigen


ActiveSheet.Range("I6").Select
zz = ActiveCell.Address()
wir z.B. zu
zz=ActiveSheet.Range("I6").Address
oder
zz = "$I$6"

Gruß
Franz

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread