Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisierung mittels Schleife möglich?

Forumthread: Automatisierung mittels Schleife möglich?

Automatisierung mittels Schleife möglich?
Nadine
Hallo liebe Excel Profis,
ich habe ein riesen Problem und hoffe hier hilfe zu finden. Bin leider noch recht unerfahren in excel programmierung und muß für eine Arbeit große Datenmengen sortieren und berechnen. Am einfachsten wäre es, wenn ich es automatisieren könnte. Ich beschreibe mal mein problem:
- in der Spalte A ab Zeile 3 befindet sich die Datenmenge (jetzt z.B. 8760 Zahlenwerte, später vlt auch mehr)
- diese Menge soll gleichmäßig in Blöcke mit je 24 Werten eingeteilt werden.
- in jedem Datenblock (mit jetzt 24 Werten) sollen die x niedrigsten, und die y höchsten werte seperat angezeigt werden (vielleicht in Spalte C=niedrigste und E=höchste)
...x und y sind variable Werte die aus vorherigen Berechnungen resultieren und im Tabellenblatt in der obersten Zeile hinterlegt sind
ich kenne die funktion 'kkleinste' und 'kgrößte', habe es aber nicht hinbekommen das es variabel mit den für x und y eingegebenen werten funktioniert.
habe mal meine testdatei hochgeladen, sie ist nur ein ausschnitt aus einer großen arbeitsmappe:
https://www.herber.de/bbs/user/78276.xlsx
für hilfe wäre ich sehr dankbar!
beste grüße
Nadine
Anzeige
AW: Automatisierung mittels Schleife möglich?
07.01.2012 13:04:07
ransi
Hallo Nadine
Schau mal ob das so passt:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit


Public Sub machs()
    Dim L As Long
    For L = 3 To 10000 Step 25 'Bis A10000. Anpassen.
        With Sheets("Tabelle1").Cells(L, 1)
            .Offset(0, 2).Resize(5).Formula = "=SMALL(" & .Resize(25).Address & ",Row(A1))"
            .Offset(0, 4).Resize(3).Formula = "=LARGE(" & .Resize(25).Address & ",Row(A1))"
        End With
    Next
End Sub


ransi
Anzeige
AW: Automatisierung mittels Schleife möglich?
07.01.2012 13:47:15
Nadine
super ransi! das läuft schonmal!
aber leider muß es flexibeler sein.
- ist es möglich für x kleinste werte (y größte werte) eine verbindung mit der zelle in der die ziffer steht (hier: C1, bzw.E1 )zu schaffen? das excel also dieses feld ausliest und mir dementsprechend kleinste, bzw. größte werte ausgiebt?
-kann die schleife so lange durchlaufen werden bis keine daten mehr in spalte a stehen? ziel ist es beliebig viele daten (z.B. 26280 oder mehr) dort einzuladen
Anzeige
AW: Automatisierung mittels Schleife möglich?
07.01.2012 13:58:40
Andre´
Hallo Nadine,
probier mal dies:
Public Sub machss()
Dim L As Long
For L = 3 To 1000000 Step 25
With Sheets("Tabelle1").Cells(L, 1)
If .Offset(0, 0) = "" Then GoTo Ende
.Offset(0, 2).Resize([c1]).Formula = "=SMALL(" & .Resize(25).Address & ",Row(A1))"
.Offset(0, 4).Resize([e1]).Formula = "=LARGE(" & .Resize(25).Address & ",Row(A1))"
End With
Next
Ende:
End Sub
MFG Andre
Anzeige
AW: Automatisierung mittels Schleife möglich?
07.01.2012 14:14:57
Andre´
Hallo Nadine,
falls das Tabellenblatt 1 nicht aktiv ist geht es mit nachfolgenden Code besser:
Public Sub machsss()
Dim L As Long
For L = 3 To 1000000 Step 25 'Bis A10000. Anpassen.
With Sheets("Tabelle1").Cells(L, 1)
If .Offset(0, 0) = "" Then GoTo Ende
.Offset(0, 2).Resize(Sheets("Tabelle1").Range("C1")).Formula = "=SMALL(" & .Resize( _
25).Address & ",Row(A1))"
.Offset(0, 4).Resize(Sheets("Tabelle1").Range("E1")).Formula = "=LARGE(" & .Resize( _
25).Address & ",Row(A1))"
End With
Next
Ende:
End Sub
MFG Andre
Anzeige
AW: Automatisierung mittels Schleife möglich?
07.01.2012 14:42:57
Nadine
Danke! es funktioniert!!!
AW: Automatisierung mittels Schleife möglich?
07.01.2012 15:10:25
Nadine
super! vielen herzlichen dank für die schnelle hilfe!
;

Forumthreads zu verwandten Themen

Wie müsste die Schleife aussehen?
Captain

Hi,
habe folgenden Code:
Private Sub lst_Gruppe_Detail_AfterUpdate() With Me .lst_Monate.AddItem "Januar" .lst_Monate.AddItem "Februar" .lst_Monate.AddItem "März" .lst_Monate.AddItem "April" .lst_Monate.AddItem "Mai" .lst_Monate.AddItem "Juni" .lst_Monate.AddItem "Juli" .lst_Monate.Ad...
12.08.2008 09:59:00
Thread-ID: 1001083
11 Beiträge
If Then mit mehreren Schritten
Pfannen-Meister

Guten Morgen,
leider ist mein Betreff etwas unglücklich formuliert, aber ich weiß nicht, wie ich mein Problem in wenigen Worten zusammen fassen soll:
In VBA nutze ich eine If Then Anweisung. Ist die Bedingungen erfüllt, so soll er mehrer Schritte abarbeiten. Aber wie sage ich ihm, daß...
13.08.2008 10:34:00
Thread-ID: 1001416
5 Beiträge
Anzeige
If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
FIFO mit VBA (Endlosschleife?)
Bernhard

Hallo liebe Experten,
da ich in VBA noch ziemlich unbeleckt bin, habe ich zur Lösung einer FIFO Aufgabenstellung u.a. VBA Lösung ergoogelt, die eigentlich funktioniert, lediglich der 2. Teil Starting_Inventory läuft scheinbar in eine Endlosschleife. Was ist falsch? Habe auch ein Beispielda...
21.08.2008 21:06:36
Thread-ID: 1003636
24 Beiträge
welcher User im Netz greift auf Datei
Urmila

Hallo alle,
ich würde gerne wissen wie man prüfen kann, von welchem User eine bestimmte Datei (z.B. S:\test.xls) geöffnet ist und wenn es geht wie lange schon?
Den Code für Prüfen ob eine Datei offen ist, habe ich schon gefunden....
Spielt es dabei eine Rolle ob sich die Datei auf e...
02.09.2008 10:09:00
Thread-ID: 1006663
6 Beiträge
Schleife oder if abfrage bermst sehr stark
chris

Hallo VBA Experten,
ich hätte mal eine frage zu einer Schleife.
habe ein VBA Programm geschrieben das ist auch gut im Einsatz.Nur jetzt möchte ich es gerne beschleunigen aber komme nicht weiter.
habe schon alles versucht mit screenupdating usw...
jETZT habe ich die Bremse gefun...
10.09.2008 14:40:00
Thread-ID: 1008815
8 Beiträge
kniffliges Diagramm
mtremer

Hallo Excel-Freunde,
ich habe mal wieder ein interessantes Problem: Ein Säule-Säule-Diagramm auf zwei Achsen.
Grundsätzlich nicht schwer, wenn da nicht folgendes Problem auftreten würde:
Nachdem ich die zweite Säule auf die Sekundärachse verschoben habe, verschwindet sie hinter der...
10.09.2008 15:54:34
Thread-ID: 1008836
4 Beiträge
VBA - If Anweisung mehrerer Abfragen
Jana

Hallo liebes Forum!!
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Va...
11.09.2008 12:06:28
Thread-ID: 1009072
3 Beiträge
Datei für Multifunktionsleiste?
HAW

Hallo Excelfreunde,
gibt es auch in xl2007 eine Datei, in der - wie in den Excelversionen vorher in ener *.xlb-Datei - die Einstellungen und Symbole der Multifunktionsleiste gespeichert sind?
Gruß und vielen Dank
Heinz
15.09.2008 21:17:18
Thread-ID: 1009903
3 Beiträge
VB-Skript - Modifizierung
Philip

Hallo zusammen,
habe vor einiger Zeit mal in einer Arbeitsmappe ein Blatt erstellt, bei dem in Zeile 1 Datumsangaben stehen, und zwar eine für jeweils zwei Spalten (Jeweils zwei Zellen in Zeile 1 sind dafür verbunden worden.). In diesem Forum half man mir dann, mit einem Visual-Basic-Script...
18.09.2008 13:50:19
Thread-ID: 1010726
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige