AW: For each c in Bereich
24.10.2008 18:00:40
Erich
Hallo Gregor,
c.Row ergibt einen Fehler vermutlich, weil c bzw. Bereich nicht als Range deklariert sind.
Du hast leider nicht das komplette Makro (insbesondere die Deklarationen) gepostet,
deshalb ist das jetzt nur eine Vermutung.
Eine Antwort auf Davids Frage wäre sicher nützlich gewesen.
Wenn ich den Code richtig verstanden habe, wird jedesmal, wenn in Spalte 7 eine Zahl kleiner als 250 steht,
die Zelle Cells(Beginn, 10) mit der Differenz beschrieben - immer wieder die selbe Zelle.
Das ist kaum sinnvoll.
Die folgenden drei Prozeduren tun alle das Gleiche:
Option Explicit ' IMMER ZU EMPFEHLEN!
Sub Gregor1()
Dim lngBeg As Long ' Beginn
Dim lngZae As Long ' Zähler
Dim rngBer As Range ' Bereich
Dim rngC As Range ' c
Dim strW As String ' Wert
Dim dblDif As Double ' Differenz
lngZae = 5
lngBeg = 8
Set rngBer = Range(Cells(lngBeg, 5), Cells(lngBeg + lngZae, 5))
For Each rngC In rngBer
strW = Cells(rngC.Row, 7).Value
If strW "kein" Then
dblDif = rngC - 250
If dblDif
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort