Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MaximalerWert wenn andere Spalten = True

MaximalerWert wenn andere Spalten = True
05.06.2004 12:08:45
Peter
Hallo Ihr Lieben,
Der nachstehende Code ist nicht so ganz ernst zu nehmen....er dient eher als Beschreibung meiner Problematik.....in Worten kurz so:
wenn WertSpalte13 = M und WertSpalte15 = E dann färbe die Zeile mit dem höchsten Wert in Spalte13 von Spalte2 bis 5 gelb ein......

Sub Farbe2()
Dim iZeile As Long
For iZeile = 1 To 100
With Sheets("WKHindernislauf")
A = Sheets("WKHindernislauf").Cells(iZeile, 13).Value = "M"
B = Sheets("WKHindernislauf").Cells(iZeile, 15).Value = "E"
If A = True And B = True Then
Cells(iZeile, 13).Find(What:=MaximumValue).Row
.Range(Cells(n, 2), Cells(n, 4)).Interior.ColorIndex = 6
End If
End With
Next iZeile
End Sub

Ich erbitte Eure fachliche Hilfe
Danke
Peter S.

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Fehlerteufel hatte sich eingeschlichen....
05.06.2004 12:29:18
Peter
es soll natürlich dann die Zeile eingefärbt werden, wo in Spalte12 der höchste Wert ist...sonst wäre es sinnlos..
Danke
Peter S.
AW: Fehlerteufel hatte sich eingeschlichen....
05.06.2004 12:30:45
Nepumuk
Hallo Peter,
ich hoffe, ich hab's richtig verstanden:


Sub Farbe2()
    Dim iZeile As Long
    With Sheets("WKHindernislauf")
        For iZeile = 1 To 100
            If .Cells(iZeile, 13).Value = "M" And .Cells(iZeile, 15).Value = "E" Then
                iZeile = .Columns(13).Find(What:=WorksheetFunction.Max(.Columns(12))).Row
                .Range(Cells(iZeile, 2), Cells(iZeile, 4)).Interior.ColorIndex = 6
                Exit For
            End If
        Next iZeile
    End With
End Sub


Gruß
Nepumuk
Anzeige
Nicht ganz..........
05.06.2004 12:41:29
Peter
Hallo Nepumuk,
lasse ich in dieser Zeile die 13 stehen bringt er mir Fehlermeldung...
iZeile = .Columns(13).Find(What:=WorksheetFunction.Max(.Columns(12))).Row
ersetze ich die 13 durch 12 dann färbt er zwar, jedoch ohne Berücksichtigung der Bedingung, dass der Wert in Spalte 13 = M sein muss und such sich lediglich den absolut höchsten Wert aus Spalte 12
Gruß
Peter S.
AW: Nicht ganz..........
05.06.2004 12:44:18
Nepumuk
Hallo Peter,
also müssen diese drei Bedingungen erfüllt sein?
Spalte 13 = M
Spalte 15 = E
Höchster Wert in Spalte 12
dann färbe.
Gruß
Nepumuk
Ja ganz genau so soll es sein...:) o.T.
05.06.2004 12:48:32
Peter
.
AW: Ja ganz genau so soll es sein...:) o.T.
05.06.2004 12:52:13
Nepumuk
Hallo Peter,
dann so:


Sub Farbe2()
    Dim iZeile As Long
    With Sheets("WKHindernislauf")
        For iZeile = 1 To 100
            If .Cells(iZeile, 13).Value = "M" And .Cells(iZeile, 15).Value = "E" And .Cells(iZeile, 12) = WorksheetFunction.Max(.Columns(12)) Then
                .Range(.Cells(iZeile, 2), .Cells(iZeile, 4)).Interior.ColorIndex = 6
                Exit For
            End If
        Next iZeile
    End With
End Sub


Gruß
Nepumuk
Anzeige
Hmm....Sorry habe was vergessen..:(
05.06.2004 13:05:14
Peter
Hallo Nepumuk,
ja so funktioniert es wenn tatsächlich der höchste Wert in Spalte12 bei 13=M und 15=E ist.....
habe aber leider vergessen zu erwähnen, dass Spalte13 = W sein kann und Spalte15=J....das bedeutet, daß praktisch 4 Zeilen gefärbt werden sollen also so:
ME + maximalerWert12 = Farbe
WE + maximalerWert12 = Farbe
MJ + maximalerWert12 = Farbe
WJ + maximalerWert12 = Farbe
verzeih mein Vergessen.....ich dachte ich kann das dann selber erweitern, aber ich denke ich brauche da doch deine Hilfe
Danke
Peter S.
AW: Hmm....Sorry habe was vergessen..:(
05.06.2004 13:19:37
Nepumuk
Hallo Peter,
so langsam nähern wir uns der Zielgerade:


Sub Farbe2()
    Dim iZeile As Long
    With Sheets("WKHindernislauf")
        For iZeile = 1 To 100
            If .Cells(iZeile, 12) = WorksheetFunction.Max(.Columns(12)) Then
                If .Cells(iZeile, 13) = "M" Or .Cells(iZeile, 13) = "W" Then
                    If .Cells(iZeile, 15) = "E" Or .Cells(iZeile, 15) = "J" Then
                        .Range(.Cells(iZeile, 2), .Cells(iZeile, 4)).Interior.ColorIndex = 6
                    End If
                End If
            End If
        Next iZeile
    End With
End Sub


Aber, so wie ich es verstanden habe, können vier Zeilen nur dann gefärbt werden, wenn der Maximalwert viermal vorkommt und die Buchstabenkombinationen stimmen.
Gruß
Nepumuk
Anzeige
Tut mir leid für deine Mühe Nepumuk
Reinhard
Mensch Peter *Riesenseufz*, hättest du das Folgende gleich mitgeteilt hätte Nepumuk das sofort lösen können :-((
Hallo Nepumuk,
Peter bezieht sich auf diese Datei: https://www.herber.de/bbs/user/7117.xls
sie ist entstanden im Threat: https://www.herber.de/forum/messages/436013.html
Ich habe es soweit entwickelt, dass immer der erste eines Blocks eingefärbt wird.
Es können bis zu 16 Blöcke entstehen. Ich mutmaße 4 Altersklassen in ME , vier in MJ usw.
Nun ist die neueste Vorgabe dass nur die Punktbesten von ME,MJ,WE, und WJ eingefärbt werden sollen.
Man muss also alle Blöcke die zu ME gehören prüfen, wer da die meisten Punkte hat, ihn färben, dann von MJ usw.
Lieben Gruß
Reinhard
Anzeige
Bin vom Hundegang zurück........
05.06.2004 15:12:14
Peter
Hallo Nepumuk und Reinhard,
hallo Ihr Beiden, ja stimmt war leider etwas ungeschickt von mir nicht auf den anderen Thread zu verweisen.......bin halt manchmal etwas trottelig......
Reinhard ich hoffe du hast den Abschluß des anderen Threads gelesen.....was ich da geschrieben habe...
Also nochmal....ja es sind diese 4 Klassen die eingefärbt werden sollen:
ME = Punkte Spalte12 = realtiverHöchstwert innerhalb ME = Farbe
WE = Punkte Spalte12 = realtiverHöchstwert innerhalb WE = Farbe
MJ = Punkte Spalte12 = realtiverHöchstwert innerhalb MJ = Farbe
WJ = Punkte Spalte12 = realtiverHöchstwert innerhalb WJ = Farbe
Sorry, dass ich durch ungenaue Angaben Verwirrung und Arbeit gestiftet habe....verspreche Besserung
Danke
Peter S.
Anzeige
Absolut Perfekt: Vielen Dank
05.06.2004 15:53:39
Peter
Hallo Reinhard und Nepomuk,
vielen vielen Dank für Eure Unterstützung........das ist die perfekte Lösung jetzt.
Viele Grüße aus Lauf bei Nürnberg
Peter S.
AW: Absolut Perfekt: Vielen Dank
05.06.2004 22:03:08
Peter
Hallo Reinhard, Nepumuk und alle,
habe ein Phänomen das mir Rätsel aufgibt....Reihard hat mir einen Code geschickt, der auch prima funzt.....ich hab die Datei um 2 Spalten erweitert und die Information die bisher in Spalte15 war ist jetzt in Spalte17....hat in der Datei von Reihard auch funktioniert.....jetzt hab ich das Modul in meine persönliche Anwendung integriert und dann kommt die Fehlermeldung

Function oder Variable erwartet.....bei Zeile "Ende = anf".....außerdem wird in meiner Anwendung automatisch aus "ende" "Ende"...in der Datei von Reinhard aber nicht?
<a href="https://www.herber.de/bbs/user/7137.xls">https://www.herber.de/bbs/user/7137.xls</a>


Sub Farbe()
Application.ScreenUpdating = False
Sheets("WKHindernislauf").Visible = True
With Sheets("WKHindernislauf")
.Range("A16:Q100").Interior.ColorIndex = xlNone
Werte = Array("ME", "MJ", "WE", "WJ")
anf = 16
For n = 0 To 3
Ende = anf
While .Cells(Ende, 13) & .Cells(Ende, 17) = Werte(n) _
Or .Cells(Ende, 13) & .Cells(Ende, 17) = "" _
And Ende <= .Range("a65536").End(xlUp).Row
Ende = Ende + 1
Wend
Ende = Ende - 1
If .Cells(anf, 13) & .Cells(anf, 17) = Werte(n) Then
For m = anf To Ende
If .Cells(m, 12) <> "" Then
pos = WorksheetFunction.Rank(.Cells(m, 12), Range(.Cells(anf, 12), _
.Cells(Ende, 12)))
If pos = 1 Then .Range(Cells(m, 2), Cells(m, 3)).Interior.ColorIndex = 6
End If
Next m
End If
anf = Ende + 1
Next n
End With
Sheets("WKHindernislauf").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub



Ich bitte nochmals um Hilfe

Danke sehr

Peter S.
Anzeige
Immer noch Hilfe
06.06.2004 00:21:40
Peter
Hallo Reinhard,
ich begreif gar nix mehr.....in deiner Beispieldatei funzt alles bestens... und in meine Anwendung kopiert spinnt alles
z.B. Fehlermeldung bei
Set wsZiel = Worksheets.Add
bitte auch den Thread vorher ansehen
Danke Sehr
Peter S.
AW: Immer noch Hilfe
06.06.2004 12:38:49
Björn
Hallo Peter,
vermutlich hast Du in Deinem Programmcode bereits eine Prozedur namens "Ende". Deshalb ändert sich die Groß-/Kleinschreibung und deshalb kommt auch die Fehlermeldung. VBA "denkt" nämlich, dass Du mit Ende = anf die Prozedur Ende meinst und einer Prozedurbezeichnung kann man ja keinen Wert zuweisen.
Ändere also in dem Sub Farbe einfach die Variable Ende in z. B. "Ende_Daten" und es müsste funktionieren.
Gruß
Björn
Anzeige
Gefunden...hallo Reinhard, Nepumuk+Björn
07.06.2004 08:56:12
Peter
Hallo Ihr 3 und alle anderen,
manchmal tut es einfach not mal nen Tag VBA einfach VBA sein lassen und was anderes zu unternehmen....klärt die Gedanken.....zunächst mal ja Björn....genau das hatte ich...bereits ne Prozedur Sub Ende() irgendwo anders im Projekt......(hängt mit ner Uhrzeit-Prozedur zusammen)und dann hab ich nen weiteren Fehler gefunden....
Da in Reinhards Beispiel-Code die Prozedur Sub ErgebnisHindernislauf von einem Buttom aus dem Tabellenblatt heraus gestartet wird war sein Code in Zeile 7....Set wsQuelle = ActiveSheet natürlich richtig
In meiner Anwendung jedoch wird der Start von einem Button veranlasst, der auf einer anderen UF sitzt.....deshalb wurde das natürlich nichts......Ihr seht im Code....hab ActiveSheet einfach ersetzt durch Sheets("WKHindernislauf")....und schon funzt es
Sub ErgebnisHindernislauf()
Application.ScreenUpdating = False
Dim strTabellenname As String
Dim bFound As Boolean
Dim ws As Worksheet
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Set wsQuelle = Sheets("WKHindernislauf")
strTabellenname = "KopieWKHindernislauf"
For Each ws In Worksheets
If ws.Name = strTabellenname Then
bFound = True
Set wsZiel = ws
End If
Next
If Not bFound Then
Set wsZiel = Worksheets.Add
wsZiel.Name = strTabellenname
End If
wsQuelle.Range("A16:Q100").Copy
wsZiel.Range("A16:Q100").PasteSpecial Paste:=xlPasteFormats
wsZiel.Range("A16:Q100").PasteSpecial Paste:=xlPasteValues
wsZiel.Range("A16:Q100").PasteSpecial Paste:=xlPasteFormulas
Hoffe Ihr lest die Rückmeldung.....manchmal sind es halt kleine Unterschiede zwischen Simulation und Anwendung, die sich aber irre auswirken......Ein großes Danke nochmals an Euch
Peter S.
Anzeige
Erledigt oT
Udo
hh
Danke für die Rückmeldung - o. T.
07.06.2004 21:39:08
Björn

306 Forumthreads zu ähnlichen Themen

Anzahl Zellen - zwischen 80 und 200 - Filter
dwettig

Hallo,
ich möchte die Anzahl von Zellen zählen deren INhalt zwischen a und b liegt. Erschwerend kommt hinzu, das es nur für gefilterte Zeilen gelten soll.
Ich habe es bisher versucht mit:
=ZÄHLENWENN(AD12:AD1500;">80")-ZÄHLENWENN(AD12:AD1500;">200")
Da werden aber auch d...
13.08.2008 09:27:02
Thread-ID: 1001391
8 Beiträge
Anzeige
Pivottab: Werte als % anzeigen
André

Moin zusammen,
ich habe hier ein kleines Verständnisproblem bei einer Pivot-Tabelle. Muß dazu sagen, daß ich Pivottabellen bisher nur selten verwendet habe.
Die Pivottabelle hat mehrere Spalten, darunter z.B. Verkaufspreis und Rohertrag. Diese beiden Spalten sind jeweils in Euro die Sum...
10.06.2009 15:35:59
Thread-ID: 1080522
7 Beiträge
Anzahl nur zählen wenn >0
sanktflorian

Hallo,
wie ich einen Wert durch Anzahl teile ist mir bekannt.
Nun steht in jeder Zelle aber ein Wert ab 0 , ich möchte die Zelle wo eine 0 steht nicht mit zählen bei der Anzahl.
Wie stelle ich das am besten an.
Mit freundlichem Gruß
Sankt
20.08.2009 10:06:57
Thread-ID: 1097291
10 Beiträge
Anzeige
wenn kein wert dann "Wert"
Ralf

Hallo habe da mal wieder ein problem mit Einer formel
und zwar habe ich in H20 =WENN((E19-D19-F19)*24=H19;"";((E19-D19-F19)*24)-H19)
nun ist es so wenn in D19 kein eintrag ist dann kommt die Fehlermeldung "wert"
also ich weiß das das man =WENN(D19"" das dann keine fehlermeldung komm...
02.01.2010 14:57:09
Thread-ID: 1126736
10 Beiträge
Nur Rechnen wenn Betrag grösser als | Herbers Excel-Forum
Roger
Hallo zusammen
Irgendwie steh ich heute auf dem Schlauch. Mit untenstehender Formel muss ich was ausrechnen aber er soll mir nur Rechnen wenn in M6 der Betrag grösser als 100 ist sonst soll im Feld 0.00 stehen(ist so formatiert)
=RUNDEN((GANZZAHL(M6))*7.6/100/0.05;0)*0.05
Danke für eure...
07.01.2010 13:13:18
Thread-ID: 1127853
7 Beiträge
Schleife - Spalte kopieren wenn Wert in Zeile
Jonathan

Hallo zusammen,
ich bekomms einfach nicht hin...
Ich möchte in einer Tabelle die Zeile 4 nach dem Wert "Anzahl" durchsuchen lassen. Der Wert kommt in der Zeile 4 häufiger vor.
Ist der Wert "Anzahl" gefunden soll die dazugehörige Spalte (ab Zeile 5 - zum letzten Wert in der Spalte) k...
02.02.2010 16:08:02
Thread-ID: 1135159
3 Beiträge
Werte löschen wenn Nebenspalte leer
Elias

Hallo Forum,
ich möchte in einer Tabelle per Code den Bereich B175:E194 dann von den Inhalten (nicht den Formaten) her leeren,
wenn in der jeweiligen Zeile kein Wert in Spalte D steht.
Wie stelle ich das an?
Gruß
Elias
18.02.2010 00:38:05
Thread-ID: 1139380
7 Beiträge
Wenn nur ein Wert vorhanden, dann auto. Vorbelegen
Torsten

Hallo liebe Forumsgemeinde,
ich habe mehere Dropdownlisten.
Und ich blende bei der Auswahl verschiedene Möglichkeiten aus bereits aus, wenn diese nicht eintreffen können. Also wenn nur noch eine Auswahlmöglichkeit besteht, soll Excel automatisch diese Zelle mit dem einzig verfügbaren We...
22.06.2010 08:52:04
Thread-ID: 1163324
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
6
9
9
9
6
2
6
3
4
2
4
13
2
5
2
5
2
2
3
4
6
5
3