Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Gehe zu (select) negative Zahl | Herbers Excel-Forum


Betrifft: Gehe zu (select) negative Zahl von: Dietmar aus Aachen
Geschrieben am: 02.02.2012 14:58:55

Hall zusammen.

mit

If .CountIf(Sheets("Abrechnung").Range("H4:H350"), "<0") Then
prüfe ich ob im benannten
Bereich eine negative Zahl vorhanden ist.
Bisher habe ich dann eine Msgbox mit dem entsprechenden Hinweis eingeblendet.

Die Funktionalität möchte ich nun wie folgt ergänzen:
(?) Wie muss der Code lauten, damit Excel die erste negative Zahl (sofern vorhanden) 'anspringt'?

Vielen Dank vorab!

Liebe Grüße
Dietmar aus Aachen

  

Betrifft: [SMALL(IF(H4:H350<0,ROW(4:350)),1)] von: NoNet
Geschrieben am: 02.02.2012 15:14:16

Hallo Dietmar,

hier ein kleines Beispiel (ohne Tabellenblattname "Abrechnung") :

Sub GehezuErsteNegativeZahl()
    If Application.CountIf(Range("H4:H350"), "<0") Then
        Range("H" & [SMALL(IF(H4:H350<0,ROW(4:350)),1)]).Select
    End If
End Sub
Der Teil [SMALL(IF(H4:H350<0,ROW(4:350)),1)] gibt als MATRIX-Funktion (analog der Tabellenblattfunktion {=KKLEINSTE(WENN(H4:H350<0;ZEILE(4:350));1)} die Zeilennr. der ersten negativen Zahl des Bereiches H4:H350 zurück !

Gruß, NoNet


  

Betrifft: Klasse ... von: Dietmar aus Aachen
Geschrieben am: 02.02.2012 19:12:06

Hallo NoNet,

so, habe Deine Ergänzung gerade in meinen Code eingebaut und ...
... es funktioniert 1A mit Sternchen :-)

Herzlichen Dank!

Viele Grüße
Dietmar


  

Betrifft: AW: Gehe zu (select) negative Zahl von: Mag
Geschrieben am: 02.02.2012 15:39:00

Hallo,

Sheets("Abrechnung").Range("H4:H350").Find(What:="-", LookIn:=xlValues).Select
Gruß


  

Betrifft: AW: Gehe zu (select) negative Zahl von: Mag
Geschrieben am: 02.02.2012 15:45:06

... falls keine negative Zahl vorhanden:

Sub Test()
  Dim c As Range
  With Sheets("Abrechnung").Range("H4:H350")
    Set c = .Find(What:="-", LookIn:=xlValues)
    If Not c Is Nothing Then c.Select: Exit Sub
  End With
  MsgBox "Nichts gefunden!"
End Sub
Gruß


  

Betrifft: tolle Ergänzung ... von: Dietmar aus Aachen
Geschrieben am: 02.02.2012 19:16:04

Hallo Mag,

super, werde ich mir auch in mein Archiv legen.
Wie gesagt, hat mir der Code von NoNet schon weitergeholfen.

Liebe Grüße
Dietmar


  

Betrifft: Danke ! von: Dietmar aus Aachen
Geschrieben am: 02.02.2012 19:14:27

Hallo Mag,

besten Dank für Deine Idee und die superschnell Hilfsbereitschaft!

Bin mit dem Code von NoNet schon zurecht gekommen.
Werde mir Deinen aber auch weglegen.

Viele Grüße
Dietmar


Beiträge aus den Excel-Beispielen zum Thema "Gehe zu (select) negative Zahl"