Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

if bedingung

if bedingung
14.05.2005 09:58:56
Tom
Hallo ihr Speziallisten
Hab versucht mich mit dem VBA programieren auseinander zu setzen und natürlich den kampf verloren..
Ich möchte folgendes
if a1 = 1
dann copy a2 to b2
else ()
if a1 = 2
dann copy a3 to b3
else ()
und so weiter
Kann mir da vielleicht jemand helfen ?
Gruß tom

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: if bedingung
14.05.2005 10:03:04
Ramses
Hallo

Sub Demo()
if [A1] = 1 Then
[B2]= [A2]
ElseIf [A1] = 2 Then
[B3] = [A3]
End If
End Sub

"usw." ist in VBA leider nicht vorgesehen.
Gruss Rainer
Rückmeldung
14.05.2005 10:08:17
Tom
Danke Rainer
hast mir sehr geholfen
und das mit usw bekomm ich dann schon in griff hoff ich mal.
Gruß tom
Select case ?
14.05.2005 10:21:27
ransi


      
Hallo tom
Kennst du select case ?
Public Sub test()
Select Case[a1]
    Case 1:[b2] =[a2]
    Case 2:[b3] =[a3]
    Case 3:[b4] =[a4]
    Case 4:[b5] =[a5]
    'usw bis dir die Finger bluten ;-)
    '
    '
    Case Else: MsgBox "Schreib was !"
End Select
End Sub
vielleicht hilfts dir weiter mit deinen mehr als 7 wenn().
ransi 
Anzeige
AW: Vergleich
14.05.2005 10:31:08
Hajo_Zi
Hallo ransi,
oder ohne viel Tiparbeit
Option Explicit
Public 

Sub test()
If Range("A1") = Fix(Range("A1")) And Range("A1") <= 65536 Then
Cells(Range("A1"), 2) = Cells(Range("A1"), 1)
End If
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: genial einfach +schnell
14.05.2005 10:40:17
ransi
Hallo Hajo
Musste ich aber erstmal sacken lassen.
Hatte ich auf den allerersten Blick nicht verstanden.
Passt aber gut.
ransi
AW: genial einfach +schnell
14.05.2005 11:05:30
Tom
Vielen Dank euch allen werd das grad mal ausprobieren
wünsch euch noch nen schönen tag
gruß tom

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige