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 Case Abweisung mit Variablen

Mitglied: Bischoff

Bischoff (Level 1) - Jetzt verbinden

10.12.2009 um 16:33 Uhr, 6108 Aufrufe, 4 Kommentare

Hallo zusammen


Ich habe folgendes Problem.
Ich Arbeite zur Zeit in einer Mühle im Getreidesilo.
Dort werden allen Warenein-ausgänge in einem Buch aufgeschrieben und um die Arbeit zu erleichtern,
habe ich in Excel Tabellenblätter für jedes Silo erstellt bzw. habe ich vor.

Momentan habe ich ca 10-15 Silos erfasst es sind aber ca. 60 an der Zahl und um die Arbeit in Excel zu erleichtern,
habe ich Formulare erstellt in denen ich Umläufe und Wareneingänge verbuche.

Die Silos werden über eine Combobox ausgewählt z.b. Silo 15.
Das Tabellenblatt wähle ich mit einer Case Anweisung aus und die Daten werden dort eingetragen.

Nun zu meiner Frage:

Die Caseanweisung sieht momentan so aus:



Select Case Silo1
Case 13
Sheets("13").Select
Range("A6").Select
Case 14
Sheets("14").Select
Range("A6").Select
Case 15
Sheets("15").Select
Range("A6").Select
End Select


Die Zahlen stehen für die Silonummern.
Ich habe schon erfolglos versucht die Nummern durch eine Variable zu ersetzen, um nicht 50 solcher Case Anweisungen schreiben zu müssen,
was auch ziemlich unübersichtlich wäre.

Ja meine Frage ist hier ob das überhautp mit Variablen funktioniert oder ob es evtl. andere oder bessere Lösung gibt.

Hoffe mir kann hier jemand helfen.
Danke schonmal im Vorraus

Mfg Bischoff
Mitglied: Xolger
10.12.2009 um 17:12 Uhr
Hallo,

hab mal ein Beispiel erzeugt mit dem es meiner Meinung nach einfacher geht:

Sub testsilo()
Dim silo1 As Integer
Dim Blatt As String

silo1 = 1 'Ändern zur Übergabe der Combobox
Blatt = "" & silo1 & ""
Sheets(Blatt).Select
Cells(1, 1) = "Treffer" 'Einfügen der Anweisungen

End Sub

Gruß
Xolger
Bitte warten ..
Mitglied: 76109
10.12.2009 um 17:46 Uhr
Hallo Bischoff!

In der Annahme, das die ComboBox den Silo im Format "Silo 1" zurückgibt und die Sheets nur die Nummer 1 - 60 haben, dann in etwa so:
01.
Private Sub ComboBox1_Change() 
02.
    Sheets(Split(ComboBox1.Text)(1)).Activate:  ActiveSheet.Range("A6").Select 
03.
End Sub
Gruß Dieter
Bitte warten ..
Mitglied: Bischoff
10.12.2009 um 20:35 Uhr
Also erstmal vielen Dank an euch beide!!!

Ich hab jetz die erste Version genommen, bei der zweiten hats net funktioniert kann evtl. an der Split funktion gelegen haben kenn mich damit allerdings net so gut aus trotzdem danke.

MfG
Bischoff
Bitte warten ..
Mitglied: 76109
11.12.2009 um 08:50 Uhr
Hallo Bischoff!

Sorry, war wohl ein Missverständnis.

Letztes Beispiel war:
Klicke in ComboBox z.B. den Eintrag "Silo 1", dann aktiviere Sheet("1")

In diesem Beispiel:
Klicke in ComboBox z.B. den Eintrag "15", dann aktiviere Sheet("15")
01.
Private Sub ComboBox1_Change() 
02.
    Sheets(ComboBox1.Text).Activate:  ActiveSheet.Range("A6").Select 
03.
End Sub
Hier zum besseren Verständnis noch ein Beispiel, dass beim anzeigen der UserForm die ComboBox mit den Nummern 1-60 im Format "01", "02", "60" initialisiert, den ersten Eintrag "01" als Vorauswahl in das Editierfeld schreibt und das dazugehörige Sheet("01") aktiviert.

Das würde dann im Ganzen z.B. so aussehen:
01.
Option Explicit 
02.
 
03.
Const SiloBeg = 1 
04.
Const SiloEnd = 60 
05.
 
06.
Private Sub UserForm_Initialize() 
07.
    Dim i As Integer 
08.
 
09.
    For i = SiloBeg To SiloEnd 
10.
        ComboBox1.AddItem Right("0" & i, 2) 
11.
    Next 
12.
     
13.
    ComboBox1.ListIndex = 0  
14.
   'Löst ein Change-Ereignis aus und aktiviert Sheets("01") 
15.
End Sub 
16.
 
17.
Private Sub ComboBox1_Change() 
18.
    Sheets(ComboBox1.Text).Activate 
19.
End Sub
Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VBA - Excel: Beschreibung einzelner Variablen

gelöst Frage von PridoxVB for Applications2 Kommentare

Guten Tag werte Community. Ich habe eine Frage bezüglich der Beschreibung für den Nutzer in Excel. Verwendet man beispielsweise ...

Basic

VBA Access Variable an Query Kriteria weitergeben

Frage von EverestBasic1 Kommentar

Hallo Access-Experten, kann jemand mir bitte erklären wie ich eine Variable aus einem Formular (über VBA) an Query Kriterien ...

Exchange Server

Umbenennen des CAS Array

Frage von infostudExchange Server4 Kommentare

Hallo, wir haben 2 Exchange Server mit Failovercluster. Ich habe ein CAS Array erstellt, allerdings möchte ich jetzt den ...

Monitoring

Bash Case für Nagios

gelöst Frage von DasPossumMonitoring8 Kommentare

Hallo zusammen, ich möchte mir ein Kleines Plugin für die Auswertung der Festplatten für ältere Linux- Server schreiben. Es ...

Neue Wissensbeiträge
Sicherheit

MikroTik-Router patchen, Schwachstelle wird ausgenutzt

Information von kgborn vor 9 StundenSicherheit

Am 23. April 2018 wurde von Mikrotik ein Security Advisory herausgegeben, welches auf eine Schwachstelle im RouterOS hinwies. Mikrotik ...

Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 15 StundenWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

iOS
Updates für Iphone und Co
Information von sabines vor 18 StundeniOS

Gestern abend ist iOS 11.3.1 erschienen, ein kleineres Update, dass einige Lücken schließt und "Lahmlegen" nach einem Display Tausch ...

Windows 7

Windows 7 - Server 2008 R2: Exploit für Total Meltdown verfügbar

Information von kgborn vor 2 TagenWindows 7

Kleine Information für Administratoren, die für die Updates von Windows 7 SP1 und Windows Server 2008 R2 SP1 verantwortlich ...

Heiß diskutierte Inhalte
Batch & Shell
Powershell: Im AD nach Rechnern mit bestimmten IP-Adressen suchen
gelöst Frage von Raven42Batch & Shell36 Kommentare

Hallo zusammen, ich suche nach einer Möglichkeit nach Computern im AD zu suchen , deren IP-Adresse mit 10.11.12. beginnt. ...

C und C++
Frage1 C Programmierung-Makefile Frage2 PHP-Programmierung HTTP-Fehler 404
Frage von KatalinaC und C++34 Kommentare

Hallo, ich habe 2 Fragen, die nichts miteinander zu tun haben aber mit denen ich mich gerade beschäftige: 1. ...

LAN, WAN, Wireless
Watchguard T15 VPN Einrichtung
gelöst Frage von thomasjayLAN, WAN, Wireless25 Kommentare

Hallo zusammen, wir möchten gerne über unsere Watchguard T15 einen VPN-Tunnel (Mobile VPN with IPSec) einrichten! Als Client nutzen ...

Windows Server
Alten DC entfernen
Frage von smartinoWindows Server24 Kommentare

Hallo zusammen, ich habe hier eine Umgebung übernommen und erstmal einen DCDIAG gemacht. Dabei fällt auf, daß eine ganze ...