Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1300to1304
1300to1304
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Fehler abfangen

Forumthread: VBA Fehler abfangen

VBA Fehler abfangen
03.03.2013 14:33:27
Peter
Guten Tag an alle Forumsteilnehmer,
ich habe ein kleines Problem mit folgendem Code.
ActiveSheet.Shapes("AutoShape 1").Rotation = Range("A1").Value
Wie schalte ich die Fehlermeldung aus, wenn Zelle A1 leer ist.
Würde mich freuen, wenn Ihr mir weiterhelfen könntet.
Vielen Dank im voraus.
Gruß Peter

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Fehler abfangen
03.03.2013 14:40:03
Hajo_Zi
Hallo Peter,
warum nicht ein If davor?

AW: VBA Fehler abfangen
03.03.2013 15:02:25
Peter
Hallo Hajo,
Danke für Deinen Tipp.
Ich wünsche Euch allen noch einen schönen Sontag.
Gruß Peter

kann ich nicht nachvollziehen !
03.03.2013 17:33:54
Matthias
Hallo
Wenn A1 "leer" ist, gibt 
MsgBox ActiveSheet.Shapes("AutoShape 1").Rotation
den Wert 0 "Null" zurück.
Es entsteht so also keine Fehlermeldung, sondern das Objekt wird bei leerer Zelle
eben nur einfach nicht gedreht.
Welche Fehlermeldung bekommst Du denn ?
Gruß Matthias

Anzeige
AW: kann ich nicht nachvollziehen !
03.03.2013 17:52:09
Peter
Hallo Matthias,
ich habe den Fehler gefunden.
Mit SVerweis wird die Zelle A1 gefüllt.
#NV wurde mit bedingter Formatierung auf Schrift weiß formatiert,
deshalb die Fehlermeldung.
Danke Dir für Deine Mühe.
Gruß Peter
;

Forumthreads zu verwandten Themen

VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Fehlermeldung bei Zeilenumbruch im VBA-Editor
reiner

Hallo Leute,
ein Makrocode veranlasst den Eintrag des nachfolgenden Kommentars (auf 7 Zeilen aufgeteilt im Kommentarfenster) in eine bestimmte Zelle sobald eine entsprechende Bedingung erfüllt ist.
ActiveCell.Comment.Text Text:= _ "Beginn und Ende des Gesprächs lagen in der gleichen Mi...
15.04.2010 11:47:38
Thread-ID: 1151946
5 Beiträge
wenn(isfehler=wahr;dann;sonst in vba
Joachim

Hallo,
ich wollte folgende Formel in vba schreiben:
=WENN(ISTFEHLER(VERGLEICH(B1;Wasserdaten!A:A;0))=WAHR;VERGLEICH(B1;Wasserdaten!A:A;1);VERGLEICH(B1; Wasserdaten!A:A;0))
Mein Code dazu geht auf Fehler:
zeile_ws = WorksheetFunction.if(IsError _
(Match(fdh_nr, Worksheets(...
30.04.2010 13:31:27
Thread-ID: 1154723
4 Beiträge
VBA WennDann + Variable
Pascal

Guten Abend zusammen,
die letzte Stunde habe ich mir am folgendem Problem die Zähne ausgebissen :(
Ich versuche in einen relativen Zellbereich eine Wenn-Dann Abfrage reinzubauen.
Folgende Formel funktioniert auch:
Range(Cells(38, 12 + j), Cells(964, 12 + j)).FormulaR1C1 = "=IF(R...
13.07.2010 20:59:05
Thread-ID: 1166947
7 Beiträge
VBA Formel wenn Uhrzeit dann
Gonzer

Hallo zusammen,
habe folgendes Problem - ich will per VBA eine Formel in eine Zelle schreiben die überprüft ob ein Zellwert im Datumsformat vorliegt. Liegt dieses vor soll der Zellwert übernommen werden, wenn nicht soll die Zahl als Uhrzeit umgewandelt werden.
Hier meine Code Zeile:
...
16.09.2010 17:07:58
Thread-ID: 1178158
5 Beiträge
wie war das... VBA wenn dann ?
amintire

Hallo alle zusammen,
würde gerne in einem Label eine Auskunft geben wenn die UserForm geöffnet wird.
Also Daten stehen in A:B
'Wenn in der Spalte B größer als 1 vorhanden ist, dann soll die Zelle vor der Zahl mit angegeben werden.
=If B > 1 then
=?
oder so ähnlich ? <...
25.02.2011 11:37:33
Thread-ID: 1202920
16 Beiträge
Fehler bei VBA .Find() ... wenn nicht gefunden???
KLE

Hallo,
...ich suche nach einem "," in einer Textbox, wenn vorhanden um dannach die Elemente zu trennen (vor und nach dem Komme).
Dazu nutze ich folgende Zeilen, die funktionieren, solange ich ein Komma in der Textbox habe...was aber, wenn nicht ?
Dann erhalte ich stets eine Fehlerm...
17.08.2011 09:51:04
Thread-ID: 1226421
3 Beiträge
Anzeige
VBA Wenn dann
WalterK

Hallo,
ich komme nicht drauf, was ich bei der Definition von ErsteZei angeben muss! ErsteZei soll, wenn E3 Leer ist die Zahl 4 sein, ansonsten die Zahl 3!
So jedenfalls funktionert es nicht:
Sub Test() Dim ErsteZei As Integer ErsteZei = If Range("$E$3") = "" Then 4 Else 3 End If Msg...
11.07.2012 14:21:31
Thread-ID: 1270637
3 Beiträge
VBA Wenn Zelle Leer dann
Philipp

Hallo,
ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
Die Tabelle sieht in etwa so aus
A B C
1 XYZ ABC
2 Bla 23%
3 Blub 2% 7%
4 ...
Das Makro soll nun schauen ob in der Spalte A...
12.07.2012 16:29:13
Thread-ID: 1270809
3 Beiträge
Anzeige
Laufzeitfehler91 bei vba steuert IE
Tom

Hallo,
ich öffne aus excel heraus, per vba eine website mit dem IE
ich schreibe per vba in vier felder der website werte hinein,
die ich aus meiner excel-datei und
aus vba-eingaben, die ich beim vba-start vom user abfrage beziehe.
dann betätige ich per vba den senden-button...
14.09.2012 14:56:24
Thread-ID: 1278671
3 Beiträge
VBA2010 wenn dateiname dann makro
Rene

Hallo Leute,
ich habe einen Pfad, wo nur jene Dateien geöffnet werden sollen, die mit "BK" beginnen. Dann soll für all diese geöffneten "BK"-Dateien ein Makro durchlaufen, die BK-Dateien sind alle gleich aufgebaut. Nachdem das Makro durchgelaufen ist, soll die Datei unter dem Format .csv ge...
17.01.2013 09:46:25
Thread-ID: 1294735
3 Beiträge
VBA: Wenn Zellfarbe Dann Zellinhalt übertragen
Sascha

Hallo liebe Experten,
Im Tabellenblatt "Quelle" werden alle Daten erfasst. Diese Daten sind Datumsabhängig. Das Datum wird in Zelle Z1 eingegeben und wird automatisch in die Zeile 5 übernommen.
Das Tabellenblatt "Ziel" ist pro Woche unterteilt.
Sobald ich im Blatt "Quelle" in den Ze...
13.03.2013 19:06:08
Thread-ID: 1303799
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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