Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Markierung automatisch in Zelle mit höchstem Wert

Markierung automatisch in Zelle mit höchstem Wert
20.07.2005 19:04:01
Ralf-Eckhard
Hallo zusammen.
In einem Tabellenblatt stehen in mehreren Zellbereichen (B4:B28, I4:I28, O4:O28) ganze Zahlen.
Ich möchte nun, daß beim Auswählen des Blattes zuerst überprüft wird ob in einer bestimmten Zelle (A1) ein Text steht. Falls nicht soll der Cursor dorthin springen. Falls in Zelle A1 ein Text steht, soll der Cursor in die Zelle des obigen Zellbereiches springen, in dem der höchste Wert steht. Hoffe daß es verständlich ist und mir jemand eine Lösung präsentieren kann :-)
Danke im voraus,
lg
Ralf-Eckhard

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markierung automatisch in Zelle mit höchstem Wert
20.07.2005 19:57:55
Thomas
Hallo Ralf-Eckhard,
versuch's mal in etwa so. Den Code in's Klassenmodul des Tabellenblattes ...


      
Option Explicit
Private Sub Worksheet_Activate()
    If[a1] = "" Then
       [a1].Select
    Else
        SelectMaximum.Select
    End If
End Sub
Private Function SelectMaximum() As Range
    
    On Error Resume Next
    
    Dim rng As Range
    Dim i As Range
    
    For Each i In Union(Range("B4:B28"), Range("I4:I28"), Range("O4:O28"))
        If i.Value > rng.Value Then _
            Set rng = i
    Next
    
    Set SelectMaximum = rng
    
End Function 


Gruß
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer
Anzeige
AW: Markierung automatisch in Zelle mit höchstem Wert
20.07.2005 20:00:52
Herbert
hallo Ralf,
probier das einmal:


Option Explicit
'in das Tabellenmodul
Private Sub Worksheet_Activate()
Dim m As Single, rng As Range, c As Range
Set rng = [b4:b28,i4:i28,o4:o28]
If [a1] = "" Then
   [a1].Activate
Else
   m = WorksheetFunction.Max(rng)
  For Each c In rng
    If c = m Then
      c.Activate
      Exit For
    End If
  Next
End If
End Sub

     gruß Herbert
Anzeige
AW: Markierung automatisch in Zelle mit höchstem Wert
20.07.2005 20:08:16
Leo
Hi,
in das Modul der Tabelle:
Option Explicit

Private Sub Worksheet_Activate()
Dim s As Double, c As Range
Set c = [b4:b28,i4:i28,o4:o28]
If [a1] = "" Then
[a1].Activate
Else
On Error Resume Next
s = Application.Max(c)
c.Find(s).Activate
End If
End Sub

mfg Leo

305 Forumthreads zu ähnlichen Themen

Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Letzte Zelle & Mittelwert
Frank

Hallo,
ich möchte den Mittelwert von z.B. A2 bis A(XYZ) ermitteln.
Die Letzte Zelle kann ich aus der Variable Letzte_Vlinie auslesen.
Wie muß die Befehlszeile in einem Makro aussehen damit xyz durch den Inhalt der Variable ersetzt wird.
Gruß und danke
Frank
05.11.2008 09:22:11
Thread-ID: 1021766
5 Beiträge
Anzeige
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
Zellen mit bestimmtem Wert leeren
P.Mackes

ich möchte innerhalb einer gewählten range alle Zellen, die einen bestimmten Wert enthalten einfach leeren, also nicht löschen, sondern quasi den effekt, wenn man in die zelle geht und entfernen drückt
hat da jemand ein handliches makro parat?
mfg, Peter
03.12.2008 08:52:34
Thread-ID: 1029679
8 Beiträge
Abstände zwischen Zellen mit gleichem Wert
Arn

Hallo, muß einen Fahrplan erstellen und den Abstand zwischen Logistikzügen berechnen
In der ersten Zeile ist die Uhrzeit in 5min Schritten abgetragen, darunter in der Zeile 2 bzw. 4 welcher Zug gerade in der Halle ist. Ich möchte jetzt für den Ankunft eines Zuges die Dauer bis zur Ankunft d...
02.02.2009 16:33:00
Thread-ID: 1046316
5 Beiträge
Wieviele Zellen im Range sind NICHT leer
Mandy

Hi.
wie kann ich denn ein Range C3:C13 auf meinem Sheet "Daten" so abfragen, damit ich in einem Label stehen habe, wieviel von diesen Zellen noch leer sind, sprich noch keinen Inhalt haben ?
Danke Mandy
12.02.2009 14:48:00
Thread-ID: 1050080
6 Beiträge
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
Anzeige

Links zu Excel-Dialogen

ScrollBar

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
3
3
5
4
4
9
7
4
5
1
17
4
7
3
3
4
1
10
3
3
2
9
5
2
2