Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

verschiedene Maxima in einer Spalte

Forumthread: verschiedene Maxima in einer Spalte

verschiedene Maxima in einer Spalte
17.07.2007 19:41:00
Peter
Hallo Forum,
ich habe folgendes Problem, dessen Lösung ich nicht wirklich hinbekomme:
In einer Spalte habe ich Werte in der Art stehen:
0 hier Bereichsanfang / Bereich 1 (z.B. Spalte A, hier A1)
1
2
10
5
3 hier Bereichsende / Bereich 1 ; A6
-1
-1
10 hier Bereichsanfang / Bereich 2 ; A9
14
4
6
8 hier Bereichsende / Bereich 2 ; A13
-1
-1
-1 u.s.w.
6
4
-1
u.s.w.
Wie man sieht sind die Bereiche durch die Zahl -1 getrennt. Ich möchte nun für jeden Bereich den Maximalwert bestimmen, was durch mühselige Handarbeit auch kein Problem wäre. Allerdings habe ich über 5000 Zeilen und das nimmt jedesmal Unmengen von Zeit in Anspruch.
Ein weiteres Problem für mich ist das die Bereiche variabel sein können, d.h. mal A1 -A6, es kann aber auch mit A5 - A8 beginnen, u.s.w..
Gibt es eine Möglichkeit, dass man die Bereichserkennung automatisiert und dann aus den erkannten Bereichen jeweils den Maximalwert ausliest ?
Schonmal vielen Dank für eure Hilfe, bin für jeden Lösungsansatz dankbar.
Gruß
Peter

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: verschiedene Maxima in einer Spalte
17.07.2007 20:30:37
Daniel
Hi
schau dir mal die Lösung an, ist zwar etwas aufwenig, dafür aber vielleich verständlich
https://www.herber.de/bbs/user/44181.xls
Gruß, Daniel

AW: verschiedene Maxima in einer Spalte
17.07.2007 20:52:00
Daniel
noch ein Hinweis:
ich bin jetzt immer von 2 aufeinander folgenen -1 ausgegangen.
solltei die Anzahl anders (aber immer gleich sein), muß man das in den Formeln entsprechend anpassen.
wenn die Anzahl der -1 als Trennzeichen variabel ist, wird natürlich für die Formellösung deutlich komplexer.
Gruß Daniel

Anzeige
AW: verschiedene Maxima in einer Spalte
17.07.2007 20:42:16
ingUR
Hallo, Peter,
neben der Lösung von Daniel, hier noch ein VBA-Lösungsansatz (Makro im Standardmodul-Ordner):

Option Explicit
Sub MaxInMultiBereich()
Dim rngC As Range, maxV As variant
For Each rngC In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If rngC  -1 Then
If rngC > maxV Then maxV = rngC
If rngC.Offset(1, 0) = -1 Then
rngC.Offset(0, 1) = maxV
maxV = -1
End If
End If
Next
End Sub


Hier wird davon ausgegangen, dass die Datenwerte nur positive Zahlen sind.
Nun weiß ich nicht, ob es lediglich ein Schreibfehler war, wo Du drei aufeinanderfolgende Werte "-1" auflistest oder es tatsächlich diese Freiheit in der Trennzeichenfolge gibt und darum berücksichtigt werden muß.
Gruß,
Uwe

Anzeige
AW: verschiedene Maxima in einer Spalte
17.07.2007 20:47:00
Peter
Hallo Peter,
davon ausgehend, dass deine Werte in Spalte A ab Zeile 1 stehen, werden dir die Maxima der Gruppen in Spalte B angezeigt:


Public Sub Maximum()
Dim lZeile   As Long
Dim lDazwi   As Long
Dim iAnfg    As Integer
Dim iEnde    As Integer
Dim iAnzahl  As Integer
   For lZeile = 1 To Range("A65536").End(xlUp).Row
      If Range("A" & lZeile).Value < 0 Then
         iEnde = lZeile
         iAnfg = iEnde - iAnzahl
         Range("B" & iAnfg).Value = Application.Max(Range("A" & iAnfg & ":A" & iEnde))
         iAnzahl = 0
         For lDazwi = (iEnde + 1) To Range("A65536").End(xlUp).Row
            If Range("A" & lDazwi).Value >= 0 Then
               lZeile = lDazwi - 1
               Exit For
            End If
         Next lDazwi
       Else
         iAnzahl = iAnzahl + 1
      End If
   Next lZeile
End Sub 


Gruß Peter

Anzeige
AW: verschiedene Maxima in einer Spalte
17.07.2007 22:13:25
Peter
Hallo Peter,
wenn der letzte Wert kein negativer Wert ist, dann so:


Public Sub Maximum()
Dim lZeile   As Long
Dim lDazwi   As Long
Dim iAnfg    As Integer
Dim iEnde    As Integer
Dim iAnzahl  As Integer
   Columns("B").ClearContents
   For lZeile = 1 To Range("A65536").End(xlUp).Row
      If Range("A" & lZeile).Value < 0 Or _
         lZeile = Range("A65536").End(xlUp).Row Then
         iEnde = lZeile
         iAnfg = iEnde - iAnzahl
         Range("B" & iAnfg).Value = Application.Max(Range("A" & iAnfg & ":A" & iEnde))
         iAnzahl = 0
         For lDazwi = (iEnde + 1) To Range("A65536").End(xlUp).Row
            If Range("A" & lDazwi).Value >= 0 Then
               lZeile = lDazwi - 1
               Exit For
            End If
         Next lDazwi
       Else
         iAnzahl = iAnzahl + 1
      End If
   Next lZeile
End Sub }


Gruß Peter
Anzeige
AW: verschiedene Maxima in einer Spalte
18.07.2007 11:25:00
Peter
erstmal danke an euch alle,
werde mir das alles mal anschauen. Kurze Info die -1 sind variabel, es können mal nur eine aber auch 20 sein, u.s.w.
Gebe dann entsprechend Rückmeldung
Gruß
Peter

AW: verschiedene Maxima in einer Spalte
18.07.2007 13:18:56
Peter
Servus Peter,
der Code funktioniert einwandfrei, hab noch ne kleine Änderung vorgenommen, da ich den Maximalwert neben der Bereichsendezelle haben wollte.
Range("Q" & iEnde - 1).Value = Application.Max(Range("R" & iAnfg & ":R" & iEnde))
Jetzt passt das einwandfrei.
Nochmal Dank an alle
Gruß
Peter
Anzeige
;

Forumthreads zu verwandten Themen

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
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Exceltabelle durch userform ersetzen
Peter

Hallo
ich habe im Internet einen Funktion zur Steuerberechnung gefunden und möchte diese in meine Datei ein binden.
In der Funktion sind die eingabe Felder mit den Zeilen und Spalten Bsp. B2 bezeichnet.
jetz habe ich meine Userform erweitert um Comboboxen und zur Eingabe und Label z...
28.09.2008 19:00:00
Thread-ID: 1012973
6 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Anzeige
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Anzeige
Spalte durchsuchen und Werte ausgeben
Sebi

Moin moin zusammen,
ich habe folgendes Problem: Ich habe in einer Spalte mehrere gleiche bzw. verschiedene Werte stehen (siehe Beispiel unten). Ich möchte nun diese Spalte durchsuchen und mir alle verschiedenen Werte in einer seperaten tabelle ausgeben lassen. Ich habe das ganze versucht mi...
05.11.2008 11:27:54
Thread-ID: 1021806
4 Beiträge
in Zeile oder Spalte Wert suchen
Lars

Hallo,
ich habe eine Zeile in der z.B. B1 B2 B3 usw. stehen.
Gibt es eine einfache Möglichkeit nach der Spalte zu suchen, in der z.B. B2 steht. Derzeit versuche ich es über eine komplizierte If-Abfrage.
Ich habe auch die Worksheetfunction "search" gefunden, weiß aber nicht, wie sie...
12.11.2008 11:12:43
Thread-ID: 1023752
7 Beiträge
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 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