Hallo liebe Experten,
bitte um eure wertvolle Hilfe...
Habe jetzt schon einige Tage probiert und versucht, aber meine Kenntnisse sind leider zu bescheiden.
in aller Kürze geht es in dem Teil meines Makros, wo ich nicht weiterkomme, um Folgendes:
Ist für unseren Sportverein.
Ich habe in Spalte A die "Anzahl freie Kursplätze", in Spalte B die "Kursbezeichnung" und in Spalte Q (=17) die "Anzahl der Personen auf der Warteliste" (in Spalte Q steht Null oder eine negative ganze Zahl).
Jetzt möchte ich die Spalte A durchsuchen von A5 bis A44, dafür habe ich die FOR-Schleife gewählt, das habe ich mir hier im Forum zusammengestoppelt...
Der Wert von Spalte A ist entweder größer als Null oder gleich Null oder kleiner als Null (kleiner als Null =zuviele Personen im Kurs).
Wenn der Wert von Spalte A Dieser Wert soll dann als positive Zahl in der ActiveCell ausgegeben werden (die ActiveCell ist ganz woanders, weil ich meine Suchergebnisse im Bereich ab AR120 abbilde... wobei der Ausgabebereich nicht immer fix in AR120 beginnt, sondern hängt das von den Ergebnissen der Suchroutine ab, die auch Bestandteil meines Makros ist und unmittelbar davor abläuft... daher kann ich leider ActiveCell.Offset nicht verwenden, um die Spalte Q anzusprechen... die ActiveCell ist bei mit eben etwa im Bereich AR120...
Bitte wie kann ich in der gefundenen Zeile in meiner Range A5:A44, den Wert in Spalte Q addieren und dann über AcitveCell.Offset ausgeben?
hier der relevante Code-Ausschnitt bitte:
Dim c2 As Range
Dim c3 As Integer
Dim count2 As Integer
count2 = 2
For Each c2 In Range("a5:a44")
If c2.Value c3 = c2.Value * (-1) 'Wert von Spalte A mit -1 multiplizieren
ActiveCell.Offset(count2 + 1, -1).Value = c3 'in Spalte A den Wert von Spalte A schreiben wenn kleiner als 1
ActiveCell.Offset(count2 + 1, 0).Value = c2.Offset(0, 44).Value 'in Spalte B die genaue Kursbezeichnung schreiben
count2 = count2 + 1
End If
Next c2
Ich danke euch vielmals im Voraus!!
Herzliche Grüße!
Wolfgang