Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1932to1936
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
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA: max Wert mit Schleife

Excel VBA: max Wert mit Schleife
11.07.2023 08:46:17
MaximiDo

Hallo zusammen ich hoffe euch geht es allen gut!
Leider habe ich so gut wie keine VBA Kentnisse. Ich habe folgendes Problem:

Ich habe eine Arbeitsmappe mit verschiedenen Tabellen. Nun habe ich meinem Arbeitsblatt einen Button hinzugefügt. Beim Klicken des Buttons soll im Hintergrund ein Programm bzw. Makro ablaufen, dass den größten Wert in Zeile "BJ" ausliest und daraufhin "nur den Inhalt" der gleichen Zeile aber in Spalte "AC" löscht. Dieser Vorgang soll solange wiederholt werden, bis alle Werte in der Spalte "BJ" =0 sind. Ist so etwas überhaupt möglich? Über hilfreiche Tipps oder einen Beispielcode würde ich mich sehr freuen!

Liebe Grüße!

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA: max Wert mit Schleife
11.07.2023 09:03:53
migre
Hallo!

mit verschiedenen Tabellen
n größten Wert in Zeile "BJ" ausliest und daraufhin "nur den Inhalt" der gleichen Zeile aber in Spalte "AC" löscht
bis alle Werte in der Spalte "BJ" =0

Hier stellen sich (noch) mehrere Fragen:

- Soll die Aktion grds. nur auf dem Tabellenblatt mit dem Button ausgeführt werden, oder betrifft das alle/bestimmte Tabellenblätter, von denen ja mehrere existieren?
- Warum ist der Umweg über die Suche nach dem höchsten Wert erforderlich; könnten nicht die Werte in "AC" (auf welchen Blättern?) grds. en bloc gelöscht werden, analog alle Werte in "BC" auf 0 gesetzt werden?
- Wie entstehen Werte in "BC" aktuell? Durch Formeln, die sich auf (u.a.?) "AC" beziehen?

Evtl. ist ein kleiner Musteraufbau inkl. Zielvorstellung Deinerseits hier hilfreich, damit sich Helfer dem annehmen können.

LG Michael


Anzeige
AW: Excel VBA: max Wert mit Schleife
11.07.2023 09:11:30
MaximiDo
Hallo Michael,

Zu deinen Fragen:

Frage 1: Ja, nur auf diesem Tabellenblatt
Frage 2: Die Zeile des höchsten Wert kann sich verändern, je nachdem welchen Wert der Nutzer vorher eingibt.
Frage 3: Nein, die Werte werden gebeildet nach einer Formel, welche sich allerdings nicht auf AC bezieht..

Liebe Grüße


AW: Excel VBA: max Wert mit Schleife
11.07.2023 09:55:36
migre
Hallo!

Sorry, ist mir noch immer nicht ganz klar: Beim Klick auf den Button wird der höchste Wert in "BC" gesucht, und der korrespondierende (Zeilen-) Wert in "AC" gelöscht. Wofür dann aber noch eine Schleife? Wenn der höchste Wert sich verändern kann, je nachdem welchen Wert der Nutzer vorher eingibt

LG Michael


Anzeige
AW: Excel VBA: max Wert mit Schleife
11.07.2023 10:02:34
GerdL
Hallo Max,

schau mal, ob du es so gemeint hast.
Damit du etwas siehst, ist eine Verzögerung eingebaut.
Im Echtbetrieb musst du in der Schleife "Select" durch "ClearContents" ersetzten.
Sub Unit()

    Dim x as Long    

    Range("AC1").Select
    
    For x = 1 To WorksheetFunction.Count(Range("BC:BC"))
    
        Application.Wait (Now() + TimeSerial(0, 0, 5))
        Cells(Application.Match(WorksheetFunction.Large(Range("BC:BC"), x), Range("BC:BC"), 0), "AC").Select
    
    Next

End Sub
Gruß Gerd


AW: Excel VBA: max Wert mit Schleife
11.07.2023 10:07:21
MaximiDo
Hallo liebe Community,

habe eine Lösung gefunden, trotzdem danke für eure Hilfe!!!!


Anzeige
AW: Excel VBA: max Wert mit Schleife
11.07.2023 10:24:06
GerdL
Kannst du deine Lösung zeigen?
Gruß Gerd


AW: Excel VBA: max Wert mit Schleife
11.07.2023 10:33:47
MaximiDo
Klar, meine Lösung sieht wie folgt aus:
Sub Optimieren1_Klicken()
    Dim größterWert As Double
    Dim zelle As Range
    Dim summe As Double
Do
        
    ' Den größten Wert in Spalte BJ ermitteln
    größterWert = WorksheetFunction.Max(Range("BJ4:BJ52"))
    
    ' Schleife durch die Zellen in Spalte BJ
    For Each zelle In Range("BJ4:BJ52")
        ' Wenn der Wert der Zelle dem größten Wert entspricht, markiere die Zelle
        If zelle.Value = größterWert Then
            zelle.Offset(0, -33).Value = "" ' Lösche den Wert in der Spalte AC links davon (24 Spalten nach links)
                 ' Summe der Werte in Spalte BJ berechnen
     summe = WorksheetFunction.Sum(Range("AY4:AY52"))
     
        End If
    Next zelle
Loop While summe > 0
End Sub


Anzeige
AW: Excel VBA: max Wert mit Schleife
11.07.2023 11:11:14
GerdL
Danke,
Gerd

196 Forumthreads zu ähnlichen Themen

Unterschiedliche Werte mit Bedingung
kerberus

Hallo liebes Forum
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _ As D...
22.08.2008 10:34:00
Thread-ID: 1003771
3 Beiträge
Anzeige
maximum finden in VBA
Lars

Hallo zusammen,
ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte. Über eine Abfrage suche ich mir nun bestimmte Überschriften (z.B. B1,B3,B4,B7) heraus und lasse mir deren Spalte jeweils in eine...
13.11.2008 07:22:00
Thread-ID: 1024016
6 Beiträge
Max Min in VBA
Lars

Hallo zusammen,
da meine Frage auf Grund einer falschen Problembeschreibung noch nicht beantwortet ist, hier nochmal:
Ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte in mehreren Zeilen. Übe...
13.11.2008 14:59:44
Thread-ID: 1024240
19 Beiträge
Anzeige
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Mittels SVERWEIS Max-Wert ermitteln
Kunibert

Hallo zusammen!
Ich bräuchte nochmal eure Hilfe bei folgender Anforderung:
Ich habe eine Tabelle export, in der ich Daten aus einer Zapfanlage einfüge und eine Tabelle zur Bearbeitung. Jedes KFZ hat eine feste Nr., welche in der Export-Tabelle zu finden ist. Jetzt will ich in der Bearbe...
20.11.2008 11:31:00
Thread-ID: 1026353
4 Beiträge
min und max wert in listbox per vba
kirsche

hallo leute,
dank beverly und tino bin ich ein ganzes stück schlauer und weiter gekommen, ich finde dieses forum einfach klasse und möchte ein großes lob euch allen aussprechen.
nun hab ich aber doch noch eine frage: in zwei weiteren textboxen möchte ich die kleinste und die größte span...
20.11.2008 12:47:01
Thread-ID: 1026383
8 Beiträge
Maximalen Wert ermitteln
derwich

Hallo Leute,
wie kann ich aus einer Spalte den maximalen Wert und deren Zelle ausgeben?
Danke
18.12.2008 11:15:58
Thread-ID: 1033808
3 Beiträge
Auswertung mit mehr Bedingungen
dieter

Hallo,
ich möchte eine summierte Auswertung erhalten die 2 Bedingungen berücksichtig. Wenn möglich als Formel. Weiß nicht ob das möglich ist. Ich habe 8 unterschiedliche Kategorien.
Tabelle sieht folgend aus:
A / B / C
Jän / a / 10
Jän / b / 10
Jän / a / 15
Feb / b /...
04.01.2009 16:48:00
Thread-ID: 1036762
5 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
2
3
5
18
3
5
3
7
2
4
3
6
4
17
7
2
4
4
1
4
3
8
6
5
8