z.B.:
If Cells(I, 2) = "222001#" Then
wie kann ich den Wert "222001# " so verändern, dass alle Werte in der Spalte, die mit 222 beginnen und mit # enden auslesen. Der Versuch mit 222*# schlug fehl.
Danke für die Hilfe
wie kann ich den Wert "222001# " so verändern, dass alle Werte in der Spalte, die mit 222 beginnen und mit # enden auslesen. Der Versuch mit 222*# schlug fehl.
Danke für die Hilfe
If Left(Cells(I,2),3)="222" And Right(Cells(I,2),1)="#"
Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite
Sub Test_Zahl()
Dim I, X As Integer
X = 0
For I = 2 To 1049
'hier sollte alle Datensätze die mit 3 beginnen und # enden einbezogen werden
If Cells(I, 2) = "3000000#" Then
If Cells(I, 5) > TimeSerial(10, 0, 0) And Cells(I, 5) < TimeSerial(13, 0, 0) Then
If Cells(I, 21) = 23111000 Then X = X + 1
End If
End If
Next
MsgBox ("Es ist " & X & " mal vorhanden")
Cells(1510, 4) = X
End Sub
so geht es:
Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite
gehe ich recht in der Annahme, dass ich Deine Lösung zwischen die Zeilen
For I = 2 To 1049 und
If Cells(I, 5) > TimeSerial(10, 0, 0) And Cells(I, 5) < TimeSerial(13, 0, 0) Then
einfügen muss?
Ich prüfe hierbei über drei Spalten ab.
Gruß Sammy
ehrlich gesagt, hatte ich Deinen Quelltext nicht näher angesehen, da der Zusammenhang zu Deiner ersten Anfrage nicht so recht deutlich geworden ist.
Mein Quelltext prüft die Spalte A entsprechend Deiner ersten Anfrage, wobei die Länge der Tabelle dabei gleich mit festgestellt wird.
Du könntest zum Beispiel Deine If-Bedingungen in meinen Quelltext hinter der Do While Zeile einfügen. Die Variable in den Cellsanweisungen muss dann natürlich die gleiche sein. (Also entweder I oder z).
Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite