Microsoft Excel

Herbers Excel/VBA-Archiv

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

Wenn der Inhalt #NV ist

Betrifft: Wenn der Inhalt #NV ist von: Barbara
Geschrieben am: 06.10.2014 16:51:31

Inhalt einer Zelle auslesen:

Mein Makro bleibt bei
.Value=(Format(Range("Ergebnis").Cells(1, 1), "#.00")
wenn der Inhalt #NV ist, was schon mal vorkommen kann.

Doch das Makto soll dabei nicht anhalten, sondern was anderes ausführen.
Gibt es dazu eine geeignete Wenn-Abfrage?

LG,
Barbara

  

Betrifft: AW: Wenn der Inhalt #NV ist von: fcs
Geschrieben am: 06.10.2014 16:59:10

Hallo Barbara,

    If IsError(Range("Ergebnis").Cells(1, 1)) Then
      .Value = "Fehler"
    Else
      .Value = Format(Range("Ergebnis").Cells(1, 1), "#.00")
    End If
Gruß
Franz


  

Betrifft: AW: Wenn der Inhalt #NV ist von: Barbara
Geschrieben am: 06.10.2014 17:27:34

Oh, so einfach.

Danke, Franz.

Geht folgendes Makro vielleicht auch einfacher zu schreiben?

If IsError(Range("Ergebnis").Cells(1, 1)) Then
ActiveSheet.Shapes("Abgerundetes Rechteck 131").TextFrame.Characters.Text = ""
Else
ActiveSheet.Shapes("Abgerundetes Rechteck 131").TextFrame.Characters.Text _
= "T-Rate: " & Format(Range("Ergebnis").Cells(1, 1), "#.00")
End If

Diese Zeilen 7 Mal, was sich ändert ist nur:
"Abgerundetes Rechteck 131" ...132" ...133" ...134" ...135" ...136" ...137"


Sicher, es geht auch durch 7 Mal untereinander schreiben. Aber vielleicht gibt es eine Technik mit with oder so was.

Hab nicht so viel Routine.

LG,
Barbara.


  

Betrifft: AW: Wenn der Inhalt #NV ist von: Martin
Geschrieben am: 06.10.2014 17:41:34

Hallo Barbara,

vielleicht so:

    Dim i As Integer
    
    For i = 131 To 137
        ActiveSheet.Shapes("Abgerundetes Rechteck " & i).TextFrame.Characters.Text = IIf( _
IsError(Range("Ergebnis").Cells(1, 1)), "", "T-Rate: " & Format(Range("Ergebnis").Cells(1, 1), "#.00"))
    Next i
Viele Grüße

Martin


  

Betrifft: AW: Wenn der Inhalt #NV ist von: Barbara
Geschrieben am: 06.10.2014 17:42:44

Danke

nicht mehr notwendig.

Problem gelöst.

Danke Franz.

Bye
Barbara


 

Beiträge aus den Excel-Beispielen zum Thema "Wenn der Inhalt #NV ist"