Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn der Inhalt #NV ist

Wenn der Inhalt #NV ist
06.10.2014 16:51:31
Barbara
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn der Inhalt #NV ist
06.10.2014 16:59:10
fcs
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

AW: Wenn der Inhalt #NV ist
06.10.2014 17:27:34
Barbara
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.

Anzeige
AW: Wenn der Inhalt #NV ist
06.10.2014 17:41:34
Martin
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

AW: Wenn der Inhalt #NV ist
06.10.2014 17:42:44
Barbara
Danke
nicht mehr notwendig.
Problem gelöst.
Danke Franz.
Bye
Barbara

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige