Herbers Excel-Forum - das Archiv

Formel in VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ UserForm
Bild

Betrifft: Formel in VBA
von: Daniel
Geschrieben am: 13.10.2003 08:13:16
Hallo Freunde Gut Morgen.

wie schreibt man in VBA die Formel:

Wenn B23= "Falsch" dann Userform1.Show

Danke Daniel

Bild

Betrifft: AW: Formel in VBA
von: Ramses
Geschrieben am: 13.10.2003 08:17:28
Hallo

If Range("B23") = False Then
Userform1.Show
End If

Gruss Rainer
Bild

Betrifft: AW: Formel in VBA
von: Daniel
Geschrieben am: 13.10.2003 08:20:11
Hallo Rainer,
und wenn B23="Bingo!" ?
Danke für deine schnelle Antwort.
Ciao Daniel
Bild

Betrifft: Klare Fragestellung - Klare Antwort...
von: Ramses
Geschrieben am: 13.10.2003 08:40:49
Hallo

du musst dich schon entscheiden was du willst.
Hellsehen kann keiner.

Aber das Prinzip bleibt immer das gleiche.

Gruss Rainer
Bild

Betrifft: AW: Formel in VBA
von: Dirk
Geschrieben am: 13.10.2003 08:19:17
Guten Morgen!

If ActiveSheet.Range("B23").Value = "falsch" Then userform1.Show
Bild

Betrifft: AW: Formel in VBA
von: Daniel
Geschrieben am: 13.10.2003 08:23:01
Hallo Dirk,
einfach so in der Tabelle geschrieben oder wie?
Ciao Daniel
Bild

Betrifft: AW: Formel in VBA
von: Hajo_Zi
Geschrieben am: 13.10.2003 08:25:28
Hallo Daniel

schaue doch mal in Deinen ersten Beitrag
"Hallo Freunde Gut Morgen.

wie schreibt man in VBA die Formel:

Wenn B23= "Falsch" dann Userform1.Show

Danke Daniel"

daraus ergibt sich schon wohin.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: AW: Formel in VBA
von: Dirk
Geschrieben am: 13.10.2003 08:26:06
Sorry, kann mit der Frage nichts anfangen. Die o.g. Zeile ist nur die Abfrage, ob der Zellenwert "falsch" oder "Bingo" oder sonstwas ist. Dementsprechend wird das Userform aufgerufen. Das Ganze muss natürlich z.B. in eine VBA-Sub eingefügt werden.
Bild

Betrifft: AW: Formel in VBA
von: Daniel
Geschrieben am: 13.10.2003 08:40:40
Hallo Dirk,
ich meinte genau das!
Praktisch soll der Code erkennen, dass wenn in B23 "Bingo!" steht der Userform starten soll. Wie lautet der Code:



Private Sub ......????
If Range("B23").Value = "Bingo!" Then Userform1.Show
End If
End Sub

Danke
Daniel
Bild

Betrifft: AW: Formel in VBA
von: Dirk
Geschrieben am: 13.10.2003 08:46:38
Ja, dann genau so. Den Namen für die Sub kannst Du wählen, vielleicht "Abfrage". -->

Private Sub abfrage().

Da die If-Bedingung in der gleichen Zeile steht, wie der "then"-Zweig, lass das "end if" weg.
Bild

Betrifft: AW: Formel in VBA
von: Daniel
Geschrieben am: 13.10.2003 08:59:44
Hallo Dirk,
Ich habe der Code in der Tabelle geschrieben aber funkt. nicht.
Was mache ich da falsch?


Private Sub Abfrage()
If Range("B23").Value = "Bingo!" Then Userform1.Show
End Sub


Daniel
Bild

Betrifft: AW: Formel in VBA
von: Dirk
Geschrieben am: 13.10.2003 09:02:54
Hallo.

Wie jetzt in die Tabelle? Der VBA-Code sollte im VBA-Editor geschrieben werden.
Bild

Betrifft: AW: Formel in VBA
von: Daniel
Geschrieben am: 13.10.2003 09:08:05
Hallo Dirk,
ja, in VBA-Editor: F11 -> doppelklick auf die Tabelle3 ->
Code einfügen...
Daniel
Bild

Betrifft: AW: Formel in VBA
von: Dirk
Geschrieben am: 13.10.2003 09:13:07
Hmm.

Und was genau funktioniert nicht? Kannst Du die Fehlermeldung mal nennen?
Bild

Betrifft: AW: Formel in VBA
von: Daniel
Geschrieben am: 13.10.2003 09:16:15
Hallo Dirk,
keine Fehlermeldung: wenn B23 ="Bingo!" passiert einfach nix
Daniel
Bild

Betrifft: AW: Formel in VBA
von: Andi_H
Geschrieben am: 13.10.2003 09:19:48
Hi daniel,

schreib doch den Code mal ins Ereignis
Private Sub Worksheet_Change()

GRuß
ANdi
Bild

Betrifft: AW: Formel in VBA
von: Daniel
Geschrieben am: 13.10.2003 09:42:38
Hallo Andi Gut Morgen,
Mit Private Sub Worksheet_Change()
Kommt die Fehlermeldug:Deklaration der Prozedur entspricht nicht die Beschreibung eines
Ereignisses oder ein Prozedur mit dem selben Namen.
Tatsächlich habe ein Private Sub Worksheet_Change(ByVal Target As Excel.Range)in eine anderen Tabelle... und nun?
Daniel
Bild

Betrifft: AW: Formel in VBA
von: Andi_H
Geschrieben am: 13.10.2003 09:58:31
nimm mal deine Tabelle wo der Code rein soll und als ereignis nimmst du Worksheet_Change



Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'dein Code
End Sub


Der code wird dann bei Zelländerungen in diesem Sheet ausgeführt.
Bild

Betrifft: BINGO!!!!!!!!!!
von: Daniel
Geschrieben am: 13.10.2003 10:06:07
Hallo Han... ich wolle gerade statt Andi, Handy schreiben!!!!
nochmal..
Hallo Andi, es funkt. und ich bin etwas schlauer geworden.
Danke Andi, danke auch an Dirk.
Ciao
Daniel.
Bild

Betrifft: AW: Formel in VBA
von: Dirk
Geschrieben am: 13.10.2003 09:22:26
Kann mehrere Gründe haben.
1. "Bingo!" muss genau so in der Tabelle stehen, wie in der If-Bedingung.
2. Stell sicher, dass das ausgewählte Blatt auch das richtige ist. Zur Not halt so:

worksheets("tabelle3").range("B23").value="Bingo!"
 Bild
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " Formel in VBA"
Anzeigen von Werten und Formeln Zeile einfügen und Formeln und Werte übernehmen
Formeln mit Zelladressen speichern Zeilenumbruch in Formel erzwingen
Aktueller Arbeitsblattname in Formel Variable in Formel einbauen
Ein Zeichen in einer Formel suchen Variable in Excel-Formel einbauen.
Summenformel unter Zahlenreihe eintragen Arbeitszeittabelle und SVERWEIS-Formel