If und Then

Forumthread: If und Then

If und Then

02.04.2003 22:52:42

Wolfgang

Hallo,
versuche gerade mal ohne Goto eine Anweisung hinzubekommen. Ich bekomme es aber nicht hin.
Mit den folgenden Anweisungen klappt es nicht. Habe es auch schon mit If And usw. versucht.
Konkret soll bei negativer If-Anweisung zur nächsten gesprungen werden.

X = ActiveSheet.Name
v = Mid(X, 3, 1)
If v = "5" Then _
sName = "Umsatz2001"
rng1 = "A1:M71"
rng2 = "B7:B71"
rng3 = "H7:H33"
rng4 = "D36:D54"

If v = "7" Then _
sName = "Umsatz2002"
rng1 = "A1:M95"
rng2 = "B7:B95"
rng3 = "H7:H49"
rng4 = "D36:D80"

If v = "1" Then _
sName = "Umsatz2003"
rng1 = "A1:M106"
rng2 = "B7:B106"
rng3 = "H7:H96"

Danke für jeden Tip
Gruß
Wolfgang

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: If und Then

02.04.2003 23:12:42

Robert B.
Re: If und Then

02.04.2003 23:13:40

Klaus-Dieter
Re: If und Then

02.04.2003 23:15:30

Ramses
Da hatten wohl alle die gleiche Idee :-) o.T.

02.04.2003 23:16:36

Ramses
Da hatten wohl alle die gleiche Idee :-) o.T.

02.04.2003 23:16:37

Ramses
Danke Robert & Klaus-Dieter

02.04.2003 23:19:53

Wolfgang
Und Danke Rainer

02.04.2003 23:21:36

Wolfgang

Re: If und Then

02.04.2003 23:12:42

Robert B.

Hallo Wolfgang,

irgendwie fehlt da noch was an Deinem Code.

Aber die IF THEN Anweisung könnte wie folgt aussehen.

Gruß Robert

Re: If und Then

02.04.2003 23:13:40

Klaus-Dieter

Hallo Wolfgang,

meiner Ansicht nach läßt sich das besser mit Select Case lösen.
Beispiel:


Option Explicit

Sub test()

Dim v As Integer

Dim sName As String

Dim rng1 As Range, rng2 As Range, rng3 As Range, rng4 As Range

Dim X As String

X = ActiveSheet.Name

v = Mid(X, 3, 1)

Select Case v

Case 5

    sName = "Umsatz2001"

    rng1 = "A1:M71"

    rng2 = "B7:B71"

    rng3 = "H7:H33"

    rng4 = "D36:D54"

Case 7

    sName = "Umsatz2002"

    rng1 = "A1:M95"

    rng2 = "B7:B95"

    rng3 = "H7:H49"

    rng4 = "D36:D80"

Case 1

    sName = "Umsatz2003"

    rng1 = "A1:M106"

    rng2 = "B7:B106"

    rng3 = "H7:H96"

End Select

End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Klaus-Dieter

hier ein Ansatz:

Dim x As String, v As String, sName As String
Dim rng1 As Excel.Range, rng2  As Excel.Range, rng3  As Excel.Range, rng4  As Excel.Range
x = ActiveSheet.Name
v = Mid(x, 3, 1)
If v = "5" Then
    sName = "Umsatz2001"
    rng1 = "A1:M71"
    rng2 = "B7:B71"
    rng3 = "H7:H33"
    rng4 = "D36:D54"
ElseIf v = "7" Then
    sName = "Umsatz2002"
    rng1 = "A1:M95"
    rng2 = "B7:B95"
    rng3 = "H7:H49"
    rng4 = "D36:D80"
ElseIf v = "1" Then
    sName = "Umsatz2003"
    rng1 = "A1:M106"
    rng2 = "B7:B106"
    rng3 = "H7:H96"
End If

Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Da hatten wohl alle die gleiche Idee :-) o.T.

02.04.2003 23:16:36

Ramses

...

Da hatten wohl alle die gleiche Idee :-) o.T.

02.04.2003 23:16:37

Ramses

...

Danke Robert & Klaus-Dieter

02.04.2003 23:19:53

Wolfgang

Hallo Ihr beiden,
vielen Dank für die prompte, ausführliche Darstellung. Ich sehe beide Codes als absolute Erweiterung meines Wissens an und werde sie beide einsezten.
Einen schönen Abend weiterhin und herzlichen Grüße
Wolfgang

Und Danke Rainer

02.04.2003 23:21:36

Wolfgang

Hallo Rainer,
auch in die Schweiz meinen herzlichen Dank.
Gruß
Wolfgang

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Forumthread: If und Then

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread