Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VBA - Programmabsturz nach CASE Abfrage

Mitglied: xaumichi

xaumichi (Level 1) - Jetzt verbinden

21.07.2010 um 18:19 Uhr, 4447 Aufrufe, 12 Kommentare

Hallo!

Hab in einem Programm nach ein paar anderen Zeilen folgenden Code:

Select Case Range("C5")
Case Is = "JÄNNER"
Range("D7").Value = "Überstd. Dez."
Case Is = "FEBRUAR"
Range("D7").Value = "Überstd. Jän."
End Select


Hintergrund:
In einer Rolldown-Menü kann man die Monate auswählen (JÄNNER, FEBRUAR,....) geht in der Zelle C5.
Nun wollte ich in der Zelle D7 folgenden Text stehen haben:

"Überstd. *MONAT*" , wobei *MONAT* immer das ausgewählte Monat aus dem Rolldownmenü sein soll, nur in einer gekürzten Form (Jän., Feb.,....)

Problem:

Irgendwie stürzt jedoch mein Programm immer ab, sobald ich den oben genannten Code anwende.

Woran könnte das liegen??

LG Mike
Mitglied: Bolle97
22.07.2010 um 10:12 Uhr
Hallo,

statt
01.
Case Is = "JÄNNER" 
02.
einfach 
03.
Case "JÄNNER"
Gruß René
Bitte warten ..
Mitglied: xaumichi
22.07.2010 um 15:31 Uhr
Hm...danke für den Versuch!

Aber jetzt kommt eine Fehlermeldung:
"Die Methode 'Value' für das Objekt 'Range' ist fehlgeschlagen."

Habe das ".Value" auch schon auf ".text" umgeschrieben. Dann stürzt jedoch das programm wieder ab!

Hättest du noch eine andere idee?
Bitte warten ..
Mitglied: Biber
22.07.2010 um 15:43 Uhr
Moin xaumichi,

ich war gestern auch erst auf der Fährte, dass es an deiner etwas ungewöhnlichen "CASE Is = "- Syntax liegen könnte.

Aber die sieht zwar krank aus, ist nichtsdestotrotz sogar in der VBA-Hilfe angegeben und tut, was sie soll.

Hat denn das Zielfeld "D7" irgendwelche erwähnenswerten Eigenschaften?
  • Ist es mit einem/mehreren Feldern "verbunden" zu einem großen Feld
  • ist es geschützt/gesperrt?
  • kannst du in Excel direkt dort "Test" oder "Hallo" oder "JÄNNER" reintippseln?

Grüße
Biber
Bitte warten ..
Mitglied: TsukiSan
22.07.2010 um 15:47 Uhr
Kann es sein, dass unter OPTIONEN--->ALLGEMEIN die "Bezugsart" auf "Z1S1" eingestellt ist?

Gruss
Tsuki
Bitte warten ..
Mitglied: xaumichi
22.07.2010 um 15:54 Uhr
Zuerst war sie verbunden mit 2 weitern Zellen.
Da ich jedoch zu keinem Ergebnis gekommen bin, habe ich die Verbindung gelöscht. Allerdings hat dies nichts bewirkt!

Ja, die Zelle ist gesperrt. Hätte ich erwähnen sollen. Sry.

LG Mike
Bitte warten ..
Mitglied: xaumichi
22.07.2010 um 15:55 Uhr
Ja, es war einmal "Z1S1" eingestellt. habe es aber auch schon wieder zurückgestellt. hat jedoch ebenfall keine Änderung hervorgerufen!

LG Mike
Bitte warten ..
Mitglied: TsukiSan
22.07.2010 um 16:13 Uhr
Mh,

versuch doch trotzdem mal (testenshalber)
die "RANGE" in "CELLS" zu ändern.
Also:
Range("D7").Value entspräche dann Cells(7,4).Value (oder so ähnlich!)

Gruss
Tsuki
Bitte warten ..
Mitglied: Biber
22.07.2010 um 16:15 Uhr
Moin xaumichi,
Zitat von xaumichi:
Ja, die Zelle ist gesperrt. Hätte ich erwähnen sollen. Sry.
Melde mich nachher nochmal.
Muss erstmal ganz kurz in dem Keller ....
da muss noch irgendwo ein Rest von diesem selbstgebrannten Lakritzschnaps liegen.
Den brauch ich jetzt...


Grüße
Biber
Bitte warten ..
Mitglied: TsukiSan
22.07.2010 um 16:17 Uhr
@Biber

Muss erstmal ganz kurz in dem Keller ....
da muss noch irgendwo ein Rest von diesem selbstgebrannten Lakritzschnaps liegen.
Den brauch ich jetzt...
bringst du mir 'nen Bier auf'm Rückweg mit?

Danke und Prost
Tsuki
Bitte warten ..
Mitglied: xaumichi
23.07.2010 um 11:04 Uhr
Hallo!

Hab das mit "Cells(....)" probiert. Leider hat es auch nichts gebracht.

Da ich leider doch noch ein ziemlicher Neuling mit VBA bin habe ich nicht gleich daran gedacht:

Ich habe zu beginn eine Code-Passage:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 then Exit sub
If Intersect (Target, Range ("A1", "N50")) Is Nothing Then Exit Sub

...damit eben die Formatierungen sofort übernommen werden, wenn sich in Zellen etwas ändert.

Ich habe jetzt den starken verdacht, dass es daran liegt, dass mein Excel dann immer abstürzt. Oder??
Wenn ja, was könnte ich ändern? Würde sich was ändern, wenn die Zellen, die die den Text erhalten sollen nicht in dem Range("A1", "N50") stehen würden?

Lg Mike
Bitte warten ..
Mitglied: xaumichi
26.07.2010 um 13:34 Uhr
So, jetzt hab ich noch eine Sache!
Ich hoffe, dass mir hierbei wer helfen kann!

Also, wie zuvor beschrieben, habe ich ja eine "Änderungsprüfung" (sub worksheet_change()).
Ich habe nun versucht, dass ich diese Textänderung mit den Monaten alleine in dieser Änderungsprüfung stehen habe und siehe da, es funktioniert.
Wenn ich jedoch wieder den anderen Code (mit den Formtierungen) hinzu füge, stürzt die Datei wieder ab.

Gibt es eine Möglichkeit ZWEI Sub Worksheet_Change() zu machen? (laut anderen Foren, geht es ja nicht, aber es soll möglichkeiten geben, 2 oder mehrere zu verknüpfen)
ABER wie könnte ich die beiden verknüpfen?

LG Mike
Bitte warten ..
Mitglied: xaumichi
05.08.2010 um 22:46 Uhr
Ursache:
Das Change()-Ereignis kommt in eine Unendlichschleife --> irgendwann ist es zu viel und schmiert ab!
Lösung: Zähler einbauen!

LG
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Programmabsturz
gelöst Frage von seppmairhubrBatch & Shell5 Kommentare

Hallo! Ich hab einen Programmabsturz an einem Server. und hoffe, dass das die richtige Rubrik dazu ist. Hier werden ...

VB for Applications
SNMP Abfrage in EXCEL über VBA
Frage von SebastianLVB for Applications7 Kommentare

Hallo Zusammen, Erstmal zum Sachverhalt: Ich habe mehrere Drucker (ca. 50) die über SNMP ansprechbar sind. Mein Ziel ist ...

Microsoft Office

Abfrage durch vba von Oracle-DB, Fehlermeldung

Frage von famsprengeMicrosoft Office

Hallo zusammen, ich versuche mit Excel-vba eine Abfrage von einer Oracle-Datenbank durchzuführen. Der Code läuft durch bis zum Öffnen ...

Windows Userverwaltung

Programmabsturz bei Anmeldung als Administrator

Frage von waldfeuerWindows Userverwaltung2 Kommentare

Hallo zusammen, ich betreibe einen WinServer 2008r2 als Terminalserver. Mein Problem: Wenn ich als Administrator angemeldet und rufe eine ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 5 StundenWindows 102 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 8 StundenAdministrator.de Feedback10 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 TagGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...