VBA Variable als array in Select case abfragen?

Hallo,

ich habe mal wieder ein VBA Problem. Folgendes versuche ich zu realisieren:

Ich habe eine Variable mit Namen: Zeichen_Concern

Diese Variable hat je nach Fall folgenden Inhalt:

Fall A: Zeichen_Concern = Sign1 Fall B :Zeichen_Concern = Sign2

wobei

Sign1 = Array(23,225,0...........) 'Insgesamt 30 Werte Sign2 = Array(21,125,3...........) 'Insgesamt 30 Werte

Nun möchte ich Zeichen_Concern mit Select Case abfragen:

Select Case Zeichen_Concern Case Sign1: machwas Case Sign2: machwasanderes End Select

Leider kommt die Meldung "Typen unverträglich". Ist es nicht möglich mit Select Case diese abfrage zu starten? Die Variable Zeichen_Concern ist in diesem Falle ein Variant 0 to 29, ist somit der Name der Variable (also Sign1 oder Sign2) nicht mehr existent ?

Ich hoffe mein Anliegen ist verständlich.

1 Antwort

safur

03.10.2017, 12:05

Du vergleichst ein ganzes Array mit einem Einzelwert, wie soll das gehen? Du musst auf ein bestimmtes Element in Sign1 bzw. Sign2 verweisen.

Sign1 an der Stelle x
z. B. Sign1(3)

Ich finde es allgemein gruselig ein Array von Zahlen als "Zeichen" zu benennen :-) Ein Zeichen ist genau einstellig!

Kaluz

Beitragsersteller

03.10.2017, 21:27

Danke für die Antwort, dachte ich mir schon fast.

Habe es nun anders gemacht, dachte eventuell lässt sich der Array und Sign1 als Name Sign1 abfragen. Habe nun einen Wert im Array hinzugefügt den ich dann abfrage.

safur

03.10.2017, 21:33

@Kaluz

Kein Thema :) Sonst poste doch mal den ganzen Code!
Das wäre etwas einfacher .. dann kann man dir auch Ratschläge geben.

Es ist übrigens "das" Array.

Ähnliche Beiträge

VBA Programm Arrays? und einer Variablen mehrere Werte zuweisen?

Hallo es geht um das programmieren von VBA in Excel Ich hätte 2 Fragen erstens:

Ich versteh das mit den Arrays nicht erstelle ich damit eine Variable mit mehreren Werten oder erstelle ich damit mehrere Variablen mit ähnlichem Namen?

und zweitens mein eigentliches Problem:

Gibt es eine möglichkeit einer Variable mehrere verschiedene Werte zuzuschreiben und diesa aber einzeln abzufragen bzw. zu ändern? (Es würde auch mit vielen einzelnen Variablen gehen aber das wird mir dann doch sehr unübersichtlich bei ca. 3-4 hundert^^) Bsp. PunktA(X-wert,Y-Wert,Z-Wert) wenn wer code beispiele hätte wäre es auch klasse ;)

LG Marinus

...zum Beitrag

Wie kann MySQL Abfrage (SELECT) in EINE Variable speichern?

Ich würde gerne genau ein Feld von einer MySQL Tabelle auslesen und in eine Variable speichern. Der Befehl wäre:

SELECT name FROM tabelle WHERE email = :email

Da jede Email nur einmal vorkommen kann, würde ich das Ergebnis gerne in einer Variable $name Speichern, dass ich danach diese in IF-Abfragen einbauen kann.

Jedoch finde ich keine Möglichkeit, das zu tun, ohne dass ich danach alles in einem Array habe. Kann mir jemand helfen?

...zum Beitrag

VBA UserForm KeyDown Sonderzeichen werden nicht erkannt?

Hallo, ich habe eine Frage zu meinem VBA Code. Und zwar sollen verschiedene Tastatureingaben verschiedene Funktionen triggern. Bei Zahlen, Buchstaben, Plus, Minus, "&"-Zeichen, "!"-Zeichen und einige andere Tasten gehen. "*"-Zeichen, Prozent, "(" und ")" bspw. gehen jedoch NICHT (als KeyCode wird 0 zurückgegeben). Hat jemand eine Ahnung woran das liegt?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  handleKeyDown KeyCode, Shift
End Sub

Private Sub handleKeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim keyChar As String * 1
  keyChar = Chr(KeyCode)
  MsgBox (KeyCode)
  Select Case keyChar
  Case "0"
    numb0_Click
  Case "1"
    numb1_Click
  '.....
  Case Else
  End Select
  Select Case KeyCode
  Case "187"
    plus_Click
  '....
  Case Else 
  End Select
End Sub

Danke für alle Antworten,

Nicolas

...zum Beitrag

Testen, ob eine Variable einen beliebigen Wert aus einem Array enthält | JS?

Ich bin absoluter Anfänger, nur im Voraus. Ist es möglich, anstatt bei jedem einzelnen Wert zu testen, ob er in der Variable enthalten ist, einfach zu testen, ob in der Variable, ein beliebiger Wert, beispielsweise ein Buchstabe enthalten ist, der auch in einem Array enthalten ist?

Also wenn wir eine Variable mit einem Text haben...

let str = "Hello World!";

und ein Array mit gewissen Buchstaben...

let arr = ["a","b","h"];

dass wir dann nicht prüfen

ist da jetzt a enthalten, ist da jetzt b enthalten...

sondern einfach:

ist in str ein Wert enthalten, der auch in arr ist

in dem Fall ist h enthalten

mein Ziel ist es dass er dann zurück gibt: ja es ist ein wert enthalten (boolean), also true

danke

ps bitte nicht ZU kompliziert

...zum Beitrag

JavaScript bzw JQuery; Array auslesen und nach Variablen mit gleichem Wert suchen?

Hallo zusammen

Wie könnte ich in JavaScript bzw. Jquery ein Array auslesen und kontrollieren, ob ein Wert mehr als zwei mal vorkommt? (Ich mache dies für ein Kartenspiel, bei dem es nur jeweils zwei gleiche Karten geben kann). Gibt es für das irgendendeinen kokreten Befehl?

Vielen Dank im Voraus! (:

...zum Beitrag

C++ Array Größe richtig ermitteln?

Hey, Ich lerne grade C++ und habe ein Array (int array[5]...) erstellt. Wenn ich mit sizeof(array) nun die Länge des Arrays abfragen will kommt aber 20 (hab es bereits mit anderen Werten getestet, es sind immer 4er Schritt -> 4*5 also hier). Ist mein Befehl falsch ? Wird für ein Array Element immer ein 4 Byte Bereich reserviert ?

Danke schonmal! :)

...zum Beitrag

VBA Excel Array Zelle mit mehreren Werten?

Hallo,

ich frage mich, ob ich in VBA einer Array Zelle mehrere Werte zuordnen kann und falls ja, wie mache ich das?

Also bspw. Datenfeld (1, 1) = (und hier halt mehr als nur einen Wert)

Danke für eure Antworten

...zum Beitrag

Korrekte SQL-Abfrage mit PHP-Variable?

Hi,

wie lautet die korrekte Syntax für eine SQL-Abfrage via PHP mit einer Variblen?

Sieht z.Zt. so aus... leider nimmt er $wert nicht an...

$sql = 'SELECT * FROM tabelle WHERE ID = $wert';

...muss $wert in '$wert' oder in "$wert" mit '.$wert.' oder ohne?

Schreibe ich meine SQL-Abfrage besser direkt in " " ?

...zum Beitrag

Wie erstelle ich ein Array in Excel / VBA?

Guten Tag,

ich muss ein eindimensionales Array erstellen, welches 3 Namen aus dem ersten Tabellenblatt von A1-A3 speichert. Diese sollen dann auf dem zweiten Tabellenblatt von A1-C1 wieder ausgegeben werden. Dabei müssen die Namen in die Tabelle eingetragen werden und daraus entnommen werden. Ich soll dabei "ReDim Preserve" benutzen, doch ich habe keine Ahnung wie ich das machen soll.

...zum Beitrag

VBA mehrere Tabellen zur PDF zusammenfügen?

Hallo,

ich habe ein kleines Problem mit dem Erstellen von mehreren PFD-Seiten aus unterschiedlichen Tabellenblätter. Je nach Erfüllung der Bedingung (If-Abfrage) wird eine PDF erstellt.

Sofern nur ein eine Tabelle angesprochen wird, gibt es keine Probleme mit der Erstellung. Dabei ist es egal, ob die Tabelle oder zwei Seiten hat. Die Formatierung/Range ist korrekt und das Makro läuft durch.


Sheets("DUZ").Select
Range("A1:Y52").Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Aber soweit ich auf zwei oder mehr Tabellenblätter zugreife, gibt es Probleme:

Sheets(Array("Deckblatt", "Übersicht", "Tagebuch", "Ges", "Reisekosten", "DUZ")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Tagebuch_RZ_DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Wie kann ich entsprechend die Range unterbringen, sodass es evtl. problemlos klappt?

'Sheets("Deckblatt").Select --> Hochformat (1 Seite)
'Range("A1:H43").Select
                    
'Sheets("Übersicht").Select --> Querformat (1 Seite)
'Range("A1:R35").Select
                    
'Sheets("Tagebuch").Select --> Hochformat (6 Seiten)
'Range("A1:V146").Select
                    
'Sheets("Ges").Select --> Hochformat (1 Seite)
'Range("A1:G43").Select
                    
'Sheets("DUZ").Select --> Querformat (2 Seiten)
'Range("A1:Y52").Select
                    
'Sheets("Reisekosten").Select --> Hochformat (1 Seite)
'Range("A1:N57").Select

Aktueller Fehlerhinweis: Anwendungs- oder objektdefinierter Fehler.

Ich hatte es auch mal wie folgt versucht, aber dann stimmt die Formatierung nicht (wenn es einzeln gespeichert wird, ist sie aber richtig). Außerdem wird dann beim Schreibschutz rumgemeckert (am Ende werden die Blätter wieder mit Schreibschutz versehen). Jedenfalls gibt es diese Probleme beim einzelnen nicht.

Sheets("DUZ").Select
Range("A1:Y52").Select
                    
Sheets("Reisekosten").Select
Range("A1:N57").Select

Sheets(Array("Reisekosten", "DUZ")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Reisekosten_DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Hat jemand eine Idee?
Gruß

...zum Beitrag

Variable in MySQL Abfrage?

Hey ich habe ein kleines Login-System in Python-Flask und MySQL gebaut.

Nun möchte ich abfragen ob der eingegebe Username bereits existiert, was ich mit

Variable = Input()

"SELECT * FROM db WHERE Username = (Variable )

Aber wie kann ich die Variable nun in den Befehl einbinden?

...zum Beitrag

Plugin programmieren List als Text senden?

Hey, ich programmiere gerade ein Plugin in Minecraft mit Java.

Ich habe eine Config, diese sieht wie folgend aus:

areas:
  world:
    mines:
      Mine1:
        variable: text
      Mine2:
        variable: text
      Mine3:
        variable: text

Ich will alle 'mines' im chat mit Komma getrennt auflisten. (Also "Mine1,Mine2,Mine3")
Ich will abfragen um die user eingabe den gleichen namen hat wie eine der Minen, um dann eine Nachricht zu senden.

Dabei brauche ich hilfe alle 'mines' in einer List,Array oder ähnlichem aus einer config zu speichern und als Text dann schicken zu können

Ich hoffe ihr könnt mir helfen. Danke im vorraus <3

...zum Beitrag

Beim ändern einer bestimmten Zelle Makro erneut ausführen?

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

...zum Beitrag

Excel 2013: Wert aus Variable (VBA) in Zelle schreiben?

Hi!

Ich sag jetzt schon mal danke für eure Antworten :)

Wie kann man den Wert der durch ein VBA-Makro in einer Variable steht in einer Zelle einfügen, so dass er da dauerhaft steht und auch aktualisiert wird, falls sich dieser Wert bzw. Variable ändert?

Sub Kommentarezaehlen()
 Dim Kom As Comment

 For Each Kom In ActiveSheet.Comments
     i = i + 1
  
 Next
 
 msg = MsgBox("Das blatt enthält " & i & " Kommentare")
End Sub

Vielen Dank Leute!

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen