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

Es ist zum Verzweifeln..

Frage Microsoft Microsoft Office

Mitglied: Exzel

Exzel (Level 2) - Jetzt verbinden

06.07.2008, aktualisiert 19:35 Uhr, 3764 Aufrufe, 2 Kommentare

Hallo zusammen,

eigentlich wollte ich nur ein einfaches Reservierungsprogramm schreiben, mit dem ich anhand einer vorgegebenen Sitzordnung, Plätze als belegt oder nicht belegt anzeigen lassen kann. Diese Daten werden mit den zugehörigen Namen dann hinterlegt.


Aber es gibt immer irgend einen Haken.

Im Tabellenblatt1 Modul habe ich folgenden Code hinterlegt.

Private Sub Platz_1_Click()
Call Modul1.auswertung("Platz_1")
End Sub

Das eben für jeden CommandButton, der einen Platz darstellt. Soweit so gut. Jetzt kommt das Modul1



*

Public platzname As String
Public plaetze(50) As String

Sub auswertung(platzname)
Static z As Integer


If ActiveSheet.OLEObjects(platzname).Object.BackColor = RGB(0, 255, 0) Then
ActiveSheet.OLEObjects(platzname).Object.BackColor = &HE0E0E0
Else
ActiveSheet.OLEObjects(platzname).Object.BackColor = RGB(0, 255, 0)
End If

plaetze(z) = platzname
z = z + 1

End Sub

*


Das wäre auch noch so weit in Ordnung. Aber leider muss durch einen zusätzlichen Button, den ich noch nicht programmiert habe, die Reservierung der Plätze mit Namen auf dem Tabellenblatt2 hinterlegt werden. Die Plätze (Buttons) werden erst angeklickt, weshalb sich diese grünlich färben, dann wird der Button Reservierung gedrückt und danach erscheint eine Inputbox für die Namen. Die Plätze und Namen, werden auf dem Tabellenblatt2 hinterlegt. Die nächsten Plätze werden nach dem gleichen Schema reserviert. Was ich einfach nicht hinbekomme ist die Feldvariable. Wenn ich eine statische Zählvariable verwende, kann ich diese nach einer Reservierung nicht zurücksetzen. Sie zählt dann einfach weiter. Wenn nach der ersten Reservierung 5 Plätze gebucht sind und die nächste nur zwei Plätze beinhaltet, wäre die Variable schon bei 7, was die Sache unnötig aufbläht.

Mit Redim Preserve bin ich auch gescheitert, da ich mit Redim plaetze(5), die ersten fünf Einträge wieder überschrieben werden, auch wenn die Reservierung noch nicht abgeschlossen ist.


Ich brauche irgendeine Lösung, bei der die Feldvariable die Platznamen der Reihe nach speichert und erst nach dem Klick auf Reservierung zurückgesetzt wird.


Bitte helft mir.

Gruß
Mitglied: bastla
06.07.2008 um 15:09 Uhr
Hallo Exczel!

Versuch es so: Anstatt die Variable "z" innerhalb der Prozedur "auswertung" zu deklarieren, könntest Du sie (wie zB "platzname") im allgemeinen Deklarationsteil (nach Bedarf mit "Dim" oder "Public") festlegen und nach Abschluss der Reservierung einfach mit "z = 0" rücksetzen.

Grüße
bastla
Bitte warten ..
Mitglied: Exzel
06.07.2008 um 19:35 Uhr
Hallo und danke für die Antwort,

anscheinend muss eine Variable als statisch deklariert werden, wenn diese innerhalb eines Moduls den Wert nach erneutem Aufruf des Moduls beibehalten soll.


Ich bin mit der Programmierung aber schon weitergekommen. Da ich aber leider unter Zeitdruck stehe, möchte ich diesen Thread als erledigt betrachten und einen neuen, sehr wichtigen eröffnen.
Bitte warten ..
Neue Wissensbeiträge
Perl

Perl hat heute Geburtstag: 30 Jahre Perl: Lange Gesichter zum Geburtstag

Information von Penny.Cilin vor 1 StundePerl1 Kommentar

Hallo, auch wenn es wenige wissen und noch weniger Leute es nutzen. Perl hat heute Geburtstag. 30 Jahre Perl ...

Sicherheit

Blackberry stirbt - Keine Updates für Priv mehr

Tipp von certifiedit.net vor 2 StundenSicherheit

Blackberry wird zu einer 08/15 Firma und geht wohl mehr und mehr den Weg, den HTC schon ging. Von ...

Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 2 TagenWindows 108 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 2 TagenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
gelöst Frage von HelloWorldBatch & Shell20 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless11 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Router & Routing
Wieso kann ich den UPD 7000-9000 nicht freigeben?
Frage von Jayk0bRouter & Routing8 Kommentare

Router: Telekom W 723V Ports: UDP 7000-9000 Können nicht frei gegeben werden. Benutzgrund: Rocket League 7000 – 9000 UDP ...

Router & Routing
Fritzbox Gastnetz - exposed Host - zur Sophos IPTV
Frage von medikopterRouter & Routing8 Kommentare

Hallo zusammen, ich habe eine Frage bezüglich des Fritz box Gastzugangs an einer Sophos UTM Home. An liebsten wäre ...