Registriert seit: 08.07.2016
Version(en): 2016
17.11.2017, 01:30
hi, kann man die Wenn-Funktion auch per VBA nutzen?
Also etwa so:
Code:
If Worksheets("Rech").Range("A17") = True Then GoTo Drehen
Drehen
Call CommandButton1_Click
Else
End Sub
Registriert seit: 04.04.2017
Version(en): 2013
Hallo,
mal abgesehen von Sinn und Unsinn, das ist VBA?!
Registriert seit: 08.07.2016
Version(en): 2016
jo, aber funzte nicht. Ich habe das jetzt so geschafft:
Code:
If Worksheets("Rech").Range("A17") = True Then
Call CommandButton1_Click
Else
End If
End Sub
Etwas blöd, weil goto nicht funktioniert, aber da in diesem Fall nicht so viel Sprünge notwendig sind, klappt das ja auch so.
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
17.11.2017, 18:33
(Dieser Beitrag wurde zuletzt bearbeitet: 17.11.2017, 18:39 von Käpt'n Blaubär.)
Hallo Julia,
Zitat:If Worksheets("Rech").Range("A17") = True Then
Call CommandButton1_Click
' .... was soll denn hier passieren? .... fragt sich der geneigte Mitleser
Else
' .... was soll denn hier passieren? .... fragt sich der geneigte Mitleser einmal mehr
End If
End Sub
Nochmal der auch von anderen schon geäußerte Vorschlag:
Du willst doch mit VBA arbeiten. Dann solltest Du Dich auch ein bischen
intensiver um das Verständnis der VBA-Grundlagen bemühen.
Registriert seit: 08.07.2016
Version(en): 2016
17.11.2017, 18:40
(Dieser Beitrag wurde zuletzt bearbeitet: 17.11.2017, 18:40 von o0Julia0o.)
hi, in beiden Fällen soll zu End Sub gesprungen werden, also das Makro beendet werden. Das funktioniert ja jetzt auch so wie gewünscht.
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
17.11.2017, 18:44
(Dieser Beitrag wurde zuletzt bearbeitet: 17.11.2017, 18:52 von Käpt'n Blaubär.)
Hallöchen Julia,
alles klar, ... auf die Möglichkeit, einen Button "für nichts" bzw. in diesem Fall sogar "für doppelt-nichts" zu nutzen, sorry ...,
auf diese Möglichkeit muß man erst mal kommen.
Registriert seit: 08.07.2016
Version(en): 2016
Also beim Commandbutton1clickcode dreht sich ein Rad. Es soll sich aber nur drehen, wenn A17 = True ist, ansonsten soll die Sub beendet werden. Ist doch vom Grundsatz ganz easy.. so wie eine Wenn-Formel. =Wenn(A17=True;führeCommandbutton1clickcode aus;"").
Registriert seit: 11.04.2014
Version(en): Office 2007
Hallo Julia,
wenn Du im Else-Zweig eh nichts stehen hast, kannst Du das Else weglassen.
Gruß Stefan
Win 10 / Office 2016
Folgende(r) 1 Nutzer sagt Danke an Steffl für diesen Beitrag:1 Nutzer sagt Danke an Steffl für diesen Beitrag 28
• o0Julia0o
Registriert seit: 08.07.2016
Version(en): 2016
achso, danke. Naja, immerhin eine Zeile Code weniger :)
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
22.11.2017, 08:10
(Dieser Beitrag wurde zuletzt bearbeitet: 22.11.2017, 08:10 von schauan.)
Hallöchen,
If Worksheets("Rech").Range("A17") <> True Then Exit Sub
oder
If Worksheets("Rech").Range("A17") = True Then Call CommandButton1_Click
wobei man mehrfach genutzten Code auch gerne mal auslagern soll:
Private Sub CommandButton1_Click()
Call MachWas
End Sub
Sub GotoGehtNicht()
If Worksheets("Rech").Range("A17") = True Then Call MachWas
End Sub
Public Sub MachWas()
MsgBox "Wird Zeit das Du anfängst"
End Sub
und goto geht übrigens so - wichtig ist der Doppelpunkt.
Goto dorthin
...
dorthin:
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28
• o0Julia0o