|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.09.2008 16:07:19 |
Sabine |
|
|
 Aw:Farben auslesen und bestimmte Kriterien zählen |
18.09.2008 16:03:20 |
Sabine |
|
|
|
20.09.2008 12:13:16 |
Holger |
|
|
|
21.09.2008 10:15:36 |
Holger |
|
|
Von:
Sabine |
Datum:
18.09.2008 16:03:20 |
Views:
2337 |
Rating:
|
Antwort:
|
Thema:
Aw:Farben auslesen und bestimmte Kriterien zählen |
Hallo zusammen,
Ich möchte das das Makro anfängt zu zählen, wenn in Spalte 16 können verschiedene Buchstaben und Zahlenkombinationen stehen, wenn in einer die ersten beiden Buchstaben TI sind.
Dann soll das Makro in einem Bereich, durchlaufen und schauen, ob die hintergrundfarbe,gelb,rot oder grün vorhanden ist. Diesen Bereich soll man über zwei Spalten (Startspalte/Endspalte) eingeben können.
Wenn diese Hintergrundfarbe vorhanden ist, dann sollen in der 3. letzten Spalte geprüft werden, ob nicht das Wort offen enthalten ist. Wenn etwas anderes als offen in dieser Spalte zählt, darf diese Zeile gezählt werden.
Dies für alle benutzten Zeilen wiederholen und dann die Summe in einer Zeile ausgegeben werden.
offen wird immer kleingeschrieben, TI immer groß.
Ausserdem Ich will, das der Button mit dem ich das ganze aktiviere im Blatt Namens Werte liegt, dann soll in MeineTabelle gesucht werden, dies habe ich vorher definiert und dann der Wert wieder in Werte in B67 ausgegeben werden.
Momentan sieht mein Makro so aus.
Bin um jede Hilfe dankbar.
Gruß Sabine
Sub VBMauslesen()
'Welche Tabelle soll verwendet werden?
MeineTabelle = Worksheets(1).Name
' Zeile
Von = 4 'Start Teil (Zeile)
Bis = Worksheets(MeineTabelle).UsedRange.Rows.Count
Bis2 = Worksheets(MeineTabelle).UsedRange.Columns.Count
Stat = Bis2 - 2
Sheets(MeineTabelle).Activate
Ber = InputBox("Anfangsspalte:Endspalte" + vbCrLf + vbCrLf + "Beispiel: D:AC", "Suchbereich")
a = "abcdefghijklmnopqrstuvwxyz:"
ZelleVBM = "B66"
VBM = 0 ' Startwert
For I = 1 To Cells(Rows.Count, 16).End(xlUp).Row
If Left(Worksheets(MeineTabelle).Range("P" & I), 2) = "TI" Then Exit For
Exit Sub
End If
For I = 1 To Len(A)
j = InStr(Ber, ":")
Set r = Range(Ber)
sc = r.Column 'erste Spalte
ec = r.Columns.Count + r.Column - 1 'letzte Spalte
oc = Stat 'Offenspalte
For I = 1 To Cells(Rows.Count, oc).End(xlUp).Row
If Cells(I, oc) = "offen" Then
For j = sc To ec
A = Cells(I, j).Interior.ColorIndex
If A = 3 Or A = 50 Or A = 6 Then 'tatsächliche Farbindizees einsetzen
B = B + 1
Exit For 'Wenn weggelassen, werden Zellen gezählt, so Zeilen
End If
Next j
End If
Next I
B = Worksheets("Werte").Range(ZelleVBM).Value
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.09.2008 16:07:19 |
Sabine |
|
|
Aw:Farben auslesen und bestimmte Kriterien zählen |
18.09.2008 16:03:20 |
Sabine |
|
|
|
20.09.2008 12:13:16 |
Holger |
|
|
|
21.09.2008 10:15:36 |
Holger |
|
|