Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Problem

VBA-Problem
08.02.2004 20:43:52
MichiM
N´abend,
habe ein kleines Problem mit VBA (ähnlich Wenn-Formel):
Das Makro soll im Prinzip:
Wenn A1+B1+C2+D3=15
Dann starte Makro "Werte_ändern"
Sonst starte Makro "Werte_OK"
Danke und Gruss
MichiM

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Problem
08.02.2004 20:58:15
Nepumuk
Hallo Michi,
so:
If WorksheetFunction.Sum(Range("A1,B1,C2,D3")) = 15 Then Werte_ändern Else Werte_OK
Gruß
Nepumuk
AW: VBA-Problem
08.02.2004 20:59:05
Thomas Risi
Hallo
Könnte z.B. so funktionieren ...


Option Explicit
Private Sub StarteWenn()
    
    Dim s As Double
    
    s = [A1] + [B1] + [C2] + [D3]
    
    Select Case s
    Case 15: Call Werte_ändern
    Case Else: Call Werte_OK
    End Select
    
End Sub
Private Sub Werte_ändern()
    MsgBox "Werte_ändern wurde gestartet"
End Sub
Private Sub Werte_OK()
    MsgBox "Werte_OK wurde gestartet"
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Thomas
Risi Thomas Softwareentwicklung
Anzeige
AW: VBA-Problem
08.02.2004 21:01:19
Jens
Hi
So?

Sub start_prog()
If Range("A1") + Range("B1") + Range("C1") + Range("C3") = 15 Then
Call Werte_aendern  '<-- ohne ä!!
Else
call Werte_OK
End If
End Sub

Gruß Jens
Danke erstmal ... oT
08.02.2004 21:23:28
MichiM

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige