Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If und Then

If und Then
02.04.2003 20: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
Anzeige
Re: If und Then
02.04.2003 21: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 21: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

Anzeige
Re: If und Then
02.04.2003 21:15:30
Ramses
Hallo Wolfgang,

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

Anzeige
Da hatten wohl alle die gleiche Idee :-) o.T.
02.04.2003 21:16:36
Ramses
...
Da hatten wohl alle die gleiche Idee :-) o.T.
02.04.2003 21:16:37
Ramses
...
Danke Robert & Klaus-Dieter
02.04.2003 21: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 21:21:36
Wolfgang
Hallo Rainer,
auch in die Schweiz meinen herzlichen Dank.
Gruß
Wolfgang

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige