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

VisualBasic Fehlermeldung in Excel

Forumthread: VisualBasic Fehlermeldung in Excel

VisualBasic Fehlermeldung in Excel
15.04.2014 09:22:41
Kazo
Hallo, ich muss für einen Kollegen in einer Excelliste eine Fehlermeldung erstellen, von der Erstellung solcher Angelegenheiten haben hier leider keine meiner Kollegen eine Ahnung! Ich absolviere momentan ein Praktikum und mir wurde diese Arbeit erteilt. Leider habe ich VB erst im nächsten Studiensemester als Kurs und kenne mich daher null aus! Mein Vorgänger hat eine Redaktionsliste erstellt und in diese Liste ist ein Button "Neue Anforderung erstellen" integriert! Die Aufgabe lautet, wenn die Datei schreibgeschützt geöffnet wurde und der Button gedrückt wird, dass eine Fehlermeldung bzw. stinknormale Meldung kommt in der dann steht "Datei ist Schreibgeschützt es ist keine Anforderung durchführbar" oder so ähnlich, das deine eine Angabe im Datenformular gar nicht durchführbar ist, also das man gar nicht zum Tippen der Daten kommt! Vielen Dank im Voraus.Ich wäre um jeden Rat dankbar
Gruß

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VisualBasic Fehlermeldung in Excel
15.04.2014 09:25:11
Hajo_Zi
ActiveWorkbook.ReadOnly = TRUE, dann war sie vorher bereits geöffnet.

AW: VisualBasic Fehlermeldung in Excel
15.04.2014 09:29:44
Klaus
Hallo Kazo,
kopiere folgenden Code ganz zuerst in den Code des fraglichen Buttons: 
If ActiveWorkbook.ReadOnly Then
MsgBox ("Datei ist Schreibgeschützt es ist keine Anforderung durchführbar")
End
End If
Grüße,
Klaus M.vdT.

Anzeige
AW: VisualBasic Fehlermeldung in Excel
15.04.2014 09:50:27
Kazo
Danke für die Blitzschnelle antwort Leute!Folgender Text ist programmiert wo kann ich das jetzt einsetzen? 
Sub Userform_oeffnen()
Sheets("Anforderungen").Unprotect Password:="39wPqg2h"
ActiveSheet.Shapes("Button 21").Select
Selection.Characters.text = "Neue Anforderung erstellen"
With Selection.Characters(Start:=1, Length:=15).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
'.TintAndShade = 0
'.ThemeFont = xlThemeFontNone
End With
Range("D1").Select
Sheets("Anforderungen").Protect Password:="39wPqg2h"
Anforderung_erstellen.Show
End Sub

Gruss

Anzeige
AW: VisualBasic Fehlermeldung in Excel
15.04.2014 09:55:08
Klaus
Hi,
wie ich schrieb, ganz nach oben in den Code kopieren:
Sub Userform_oeffnen()
If ActiveWorkbook.ReadOnly Then
MsgBox ("Datei ist Schreibgeschützt es ist keine Anforderung durchführbar")
End
End If
Sheets("Anforderungen").Unprotect Password:="39wPqg2h"
ActiveSheet.Shapes("Button 21").Select
Selection.Characters.text = "Neue Anforderung erstellen"
With Selection.Characters(Start:=1, Length:=15).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
'.TintAndShade = 0
'.ThemeFont = xlThemeFontNone
End With
Range("D1").Select
Sheets("Anforderungen").Protect Password:="39wPqg2h"
Anforderung_erstellen.Show
End Sub
Möchtest du den restlichen Code kommentiert haben? Der ist nämlich ... verbesserungswürdig.
Übrigens, das nächste mal wenn du einen Code in die Freiheit des Internet hochlädst, ersetzt du bitte Stellen wie Password:="39wPqg2h" mit einem Platzhalter wie Password:="Test".
Grüße,
Klaus M.vdT.

Anzeige
AW: VisualBasic Fehlermeldung in Excel
15.04.2014 10:01:54
Kazo
Hallo Klaus, ja werde ich machen, hab ich nicht gewusst! wäre dir dankbar wenn du die Verbesserungsnotwendigen stellen mir korrigieren würdest! wie gesagt mit C habe ich schonmal zu tun gehabt jedoch leider mit VB hatte ich noch gar nichts zu tun. Danke für deine bzw. eure mühe!
Gruss Kazo

Anzeige
AW: VisualBasic Fehlermeldung in Excel
15.04.2014 10:24:10
Klaus
Hallo Kazo,
mit VB hatte ich auch noch nie zu tuen. Unter VBA kann man sagen: verzichte auf jegliches .select und .activate!
Der Rekordercode ist leider immer voll davon, da ist dann Nacharbeit nötig. Deinen Code habe ich so verkürzt:
Sub Userform_oeffnen()
If ActiveWorkbook.ReadOnly Then
MsgBox ("Datei ist Schreibgeschützt es ist keine Anforderung durchführbar")
Else
With Sheets("Anforderungen")
.Unprotect Password:="TEST1"
With .Shapes("Button 21").TextFrame.Characters
.Text = "Neue Anforderung erstellen"
With .Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
End With
End With
.Protect Password:="TEST1"
Anforderung_erstellen.Show
End If
End Sub
Du siehst, ich habe auf die relativ brutale "End" Anweisung verzichtet und stattdessen den gesamten Code innerhalb der IF-THEN-ELSE Abfrage nach dem Schreibschutz untergebracht. Die Referenzierungen auf die Tabelle habe ich in WIDTH-Rahmen ausgelagert (Es passiert doch alles auf dem Blatt "Anforderungen", oder?), ebenso alle weiteren Referenzierungen. Die Select und Selection des Rekorders habe ich rausgeworfen.
Grüße,
Klaus M.vdT.

Anzeige
AW: VisualBasic Fehlermeldung in Excel
15.04.2014 10:26:19
Klaus
Ich habe zu schnell abgeschickt, es fehlt noch ein "End With" !
Sub Userform_oeffnen()
If ActiveWorkbook.ReadOnly Then
MsgBox ("Datei ist Schreibgeschützt es ist keine Anforderung durchführbar")
Else
With Sheets("Anforderungen")
.Unprotect Password:="TEST1"
With .Shapes("Button 21").TextFrame.Characters
.Text = "Neue Anforderung erstellen"
With .Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
End With
End With
.Protect Password:="TEST1"
    End With
Anforderung_erstellen.Show
End If
End Sub
Klaus

Anzeige
AW: VisualBasic Fehlermeldung in Excel
15.04.2014 10:32:27
Kazo
Danke für deine Mühe! Klappt einwandfrei! Ist halt einfacher wenn man sich in diesem Gebiet auskennt, als sogenannter neuling findet man sich nicht so schnell recht!
Mfg Kazo ;-)

Danke für die Rückmeldung! owT.
15.04.2014 10:35:49
Klaus
.
;

Forumthreads zu verwandten Themen

Error 400 : Anwendungs- oder objektdef. Fehler
Henry

Moin,
ich benutze diesen Code wenn icheine Formel in eine Spalte bis zur letzten Zeile füllen möchte : ( der funktioniert ) Sub Tag() Dim iRow As Integer iRow = Cells(Rows.Count, 1).End(xlUp).Row Range("F2").Formula = "=TEXT(RC[-2],""TTTT"")" Range("F2:F" & iRow).FillDown End Sub
...
27.08.2014 15:58:15
Thread-ID: 1378507
6 Beiträge
VBA: find und instr oder iserror kombinieren
tomcatoggo

Hallo!
da ich jetzt etliche Stunden an diesem Problem hänge und einfach gar nicht verstehe, warum so eine (so dachte ich das zumindest) super simple Sache sich nicht lösen lässt, frage ich jetzt mal hier nach:
Ich denke ich brauche hier nix extra hochladen... hier die Beschreibung:
...
13.11.2014 15:26:30
Thread-ID: 1392217
6 Beiträge
Anzeige
VBA: find und instr oder iserror kombinieren
tomcatoggo

Hallo!
da ich jetzt etliche Stunden an diesem Problem hänge und einfach gar nicht verstehe, warum so eine (so dachte ich das zumindest) super simple Sache sich nicht lösen lässt, frage ich jetzt mal hier nach:
Ich denke ich brauche hier nix extra hochladen... hier die Beschreibung:
...
13.11.2014 15:49:45
Thread-ID: 1392225
2 Beiträge
Anzeige
VBA CODE KÜRZEN / INTELLIGENT & RUNTIME ERROR
Mark.

Hallo liebe Community,
es geht um den Beitrag:
Archiv IDX:1474392
Datum: 2016-02-09 17:54:31
Titel: VBA Code Kürzen / INTELLIGENTER schreiben
anhängend könnt Ihr die Beispieldatei finden.
https://www.herber.de/bbs/user/103521.xlsm
diese Datei muss in dem s...
13.02.2016 12:23:55
Thread-ID: 1475231
5 Beiträge
VBA Fehler 400
torro100

Hallo
mit dem aufgeführten Code soll die nächste leere Zeile gefunden werden, beginnend ab Zeile 5, die Zeile 4 (dient als Vorlage; Zeile 3 und 4 sind versteckt)) soll dort hin kopiert werden, nur Formate und Formeln sollen beibehalten werden, die aktive Zelle soll in der neu eingefügten Z...
06.12.2016 14:09:13
Thread-ID: 1528843
4 Beiträge
Anzeige
VBA - 400 (kein Error)
Steven

Hallo liebe Community,
ich stehe wirklich ganz ganz ganz am Anfang von Makros. Ich möchte durch klick auf einen Button, _ dass folgendes in einem anderen Tabellenblatt ausgeführt wird. Diesen Code nutze ich dafür. Sub HFB() ' alle Spalten (Spaltenbereich) ausblenden Columns("E:OV").Selec...
17.01.2019 11:10:37
Thread-ID: 1668781
14 Beiträge
VBA: if date endet in runtime error 13 mismatch
Tom

Hallo Experten
Werde nicht schlau, vielleicht einer der es direkt sieht. Ich nutze einen Datumsabgleich in einem Makro, um darüber eine Trial für das Excel zu machen. Also, ich gebe ein Datum im Makro vor und prüfe es im Vergleich zum heutigen Datum. An sich funktioniert es, wird das Excel...
17.06.2019 12:30:58
Thread-ID: 1698111
3 Beiträge
VBA Modul wirft in Asien Error ? hier nicht
Nati93

Hallo zusammen,
ich habe ein VBA Modul, welches mir eine von dem User ausgewählte Datei öffnet.
Gleichzeitig wird eine neue Excel geöffnet mit dem Namen "Bufferfile".
Leider bricht der Code bei Auswahl einer Datei des Users ab und zwar bisher nur in China ?... Bei uns funktioniert...
30.07.2019 10:10:33
Thread-ID: 1704911
5 Beiträge
VBA Fehler X und die Zahl 400
lay

Hallo zusammen, ich brauch Hilfe!
Folgendes Problem, nach Eingabe der Daten und 2 kleinen Makros, die lediglich die Daten sortieren, habe ich die Datei gespeichert und geschlossen.
Beim öffnen dieser Datei wird mir ein weißes Kreuz (X) in einem roten Kreis und der Zahl 400 angezeigt.
03.09.2019 10:59:32
Thread-ID: 1710877
13 Beiträge
Microsoft Visual Basic Class not registered
stephan

Hallo und guten Tag,

ich habe einer Bekannten von mir eine Excel97 Datei gemailt. Diese erhält nun beim Öffnen die Fehlermeldung :

"Microsoft Visual Basic" Class not registered. Looking for object with CLSid:
{AC9F2F90-E877-11CE-9F68-00AA00574A4F}

Kann mir jemand sage...
07.08.2003 11:46:47
Thread-ID: 291000
5 Beiträge
Visual Basic Fehlermeldung!
Silvi
Hallo!

kann mir jemand helfen? Bekomme eine merkwürdige Fehlermeldung beim Speichern einer Datei in der Makros enthalten sind.

Systemfehler: &H8000FFFF (-2147418113). Schwerer Fehler

Was kann ich denn da bloß falsch gemacht haben?

Hilfe!!!

Gruß
Sylvia
05.09.2003 11:20:53
Thread-ID: 305325
7 Beiträge
VBA kompakte Find-Row-Funktion mit Error-Abfrage
Ralf

Hallo Forum,
ich habe folgendes VBA-Problem:
Ich möchte eine möglichst kompakte FIND/ROW Funktion/Positionsbestimmung nutzen die aber auch dann funktioniert, wenn es keinen Suchtreffer gibt - bisher hat dies mit folgender Anweisung immer recht gut geklappt - aber eben nur wenn ein Suchtr...
23.07.2004 20:50:52
Thread-ID: 459793
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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