Variablen voneinander abhängig machen

Forumthread: Variablen voneinander abhängig machen
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Variablen voneinander abhängig machen

14.04.2021 17:47:17

Seb

Hallo liebes Forum,
ich würde gerne mit dem Code

Dim SI(n) as String

For n = 1 To 3
If Einheitenabfrage.Controls("Groesse" & n) = "Strom" Then
SI(n) = "A"
ElseIf Einheitenabfrage.Controls("Groesse" & n) = "Spannung" Then
SI(n) = "V"
ElseIf Einheitenabfrage.Controls("Groesse" & n) = "Frequenz" Then
SI(n) = "Hz"
End If
Next n

Die Werte für SI(n) mit n = 1,2,3 je nach Eingaben in der UserForm "Einheitenabfrage" bestimmen lassen, das scheint so aber leider nicht zu funktionieren. Wie erreiche ich, dass ich zum Schluss SI(1), SI(2) und SI(3) klar definiert habe? Danke im Voraus.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Variablen voneinander abhängig machen

14.04.2021 18:15:06

ChrisL
AW: Variablen voneinander abhängig machen

14.04.2021 18:15:17

Daniel
AW: Variablen voneinander abhängig machen

14.04.2021 18:15:36

GerdL
AW: Variablen voneinander abhängig machen

14.04.2021 18:17:42

UweD
AW: Variablen voneinander abhängig machen

14.04.2021 18:21:54

Seb

AW: Variablen voneinander abhängig machen

14.04.2021 18:15:06

ChrisL

Hi
Sieht vielversprechend aus. Die Dimensionierung müsstest du noch leicht anpassen.

Dim SI(1 To 3) As String

cu
Chris

AW: Variablen voneinander abhängig machen

14.04.2021 18:15:17

Daniel

Hi
du musst bei der Dimensionierung angeben, welchen Indexbereich die Variable haben soll.
für 1-3

Dim SI(1 to 3) as String

Gruß Daniel

AW: Variablen voneinander abhängig machen

14.04.2021 18:15:36

GerdL

Moin Seb!
Die Dimensionierung n ergibt SI(0 to 0).
Probier mal mit:
Dim SI(1 To 3) As String
Gruß Gerd

AW: Variablen voneinander abhängig machen

14.04.2021 18:17:42

UweD

Hallo
so?

    Dim SI(1 To 3) As String, n As Integer
For n = 1 To 3
If Einheitenabfrage.Controls("Groesse" & n) = "Strom" Then
SI(n) = "A"
ElseIf Einheitenabfrage.Controls("Groesse" & n) = "Spannung" Then
SI(n) = "V"
ElseIf Einheitenabfrage.Controls("Groesse" & n) = "Frequenz" Then
SI(n) = "Hz"
End If
Next n

LG UweD