Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon jens98 vom 08.09.2020, 14:51 Options
wenn dann funktion mit vba
hey,
ich möchte gerne über vba eine wenn dann sonst funktion eingeben und zwar folgende:
If Range("F34") > ("G34") Then
Range ("F34")
Else
.Range ("E34")
End If
End Sub
aber es klappt nicht, wie immer ,-)
kann mir jemand weiterhelfen?
danke
ich möchte gerne über vba eine wenn dann sonst funktion eingeben und zwar folgende:
If Range("F34") > ("G34") Then
Range ("F34")
Else
.Range ("E34")
End If
End Sub
aber es klappt nicht, wie immer ,-)
kann mir jemand weiterhelfen?
danke
Antwort 1 von Saarbauer vom 08.09.2020, 16:08 Options
Hallo,
so geht es nicht
Wenn schon dann so
If Range("F34") > Range("G34") Then
Range ("F34") Was soll den hier passieren?
wahrscheinlich so etwas
Range("X34") = Range("F34")
Else
Range ("E34") Was soll den hier passieren?
wahrscheinlich so etwas
Range("X34") = Range("E34")
End If
Anmerkung meist wird Range(" E34"). Value o.ä. geschrieben, wenn nur einzelne Daten übernommen werden sollen, ob Range("E34") so funktioniert habe ich noch nie getestet
Gruß
Helmut
so geht es nicht
Zitat:
If Range("F34") > ("G34") Then
Range ("F34")
Else
.Range ("E34")
End If
If Range("F34") > ("G34") Then
Range ("F34")
Else
.Range ("E34")
End If
Wenn schon dann so
If Range("F34") > Range("G34") Then
Range ("F34") Was soll den hier passieren?
wahrscheinlich so etwas
Range("X34") = Range("F34")
Else
Range ("E34") Was soll den hier passieren?
wahrscheinlich so etwas
Range("X34") = Range("E34")
End If
Anmerkung meist wird Range(" E34"). Value o.ä. geschrieben, wenn nur einzelne Daten übernommen werden sollen, ob Range("E34") so funktioniert habe ich noch nie getestet
Gruß
Helmut
Antwort 2 von jens98 vom 08.09.2020, 16:47 Options
erste einmal vielen dank.
stimmt ich hab vergessen was ich damit machen möchte, ich weiß auch gar nicht ob das überhaupt funktioniert...
ich möchte sagen, wenn F34 > F35, dann soll in der checkbox1 ein haken erscheinen, aber wenn ich "true" eingeben, passiert natürlich nicht viel, weißt du vielleicht wie das geht??
viele grüße
stimmt ich hab vergessen was ich damit machen möchte, ich weiß auch gar nicht ob das überhaupt funktioniert...
ich möchte sagen, wenn F34 > F35, dann soll in der checkbox1 ein haken erscheinen, aber wenn ich "true" eingeben, passiert natürlich nicht viel, weißt du vielleicht wie das geht??
viele grüße
Antwort 3 von M.O. vom 09.09.2020, 11:01 Options
Hallo Jens,
so sollte es klappen:
Gruß
M.O.
so sollte es klappen:
If Range("F34") > Range("F35") Then CheckBox1 = True Else CheckBox1 = FalseGruß
M.O.
Antwort 4 von paulo87 vom 09.09.2020, 11:23 Options
Zur Vervollständigung:
Das "End If" hat gefehlt.
If Range("F34") > Range("F35") Then
CheckBox1 = True
Else CheckBox1 = False
End If
Das "End If" hat gefehlt.
Antwort 5 von 777tim vom 09.09.2020, 11:30 Options
hallo vielen dank erst einmal,
mein kollege hat im clever-forum,
fast die gleiche frage gestellt, nciht dass es zu verwechslungen kommt.
ähmm, dass funktioniert auch wunderbar, nur, dass der haken nicht verschwindet sobald die zelle leer ist bzw. die bedingung nicht mehr stimmt. wisst ihr vielleicht wie das funktioniert?
grüße
mein kollege hat im clever-forum,
fast die gleiche frage gestellt, nciht dass es zu verwechslungen kommt.
ähmm, dass funktioniert auch wunderbar, nur, dass der haken nicht verschwindet sobald die zelle leer ist bzw. die bedingung nicht mehr stimmt. wisst ihr vielleicht wie das funktioniert?
grüße
Antwort 6 von 777tim vom 09.09.2020, 11:40 Options
mein kollege hat die lösung gefunden:
vielen dank trotzdem
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$1", "$B$1"
If Range("A1") > Range("B1") Then
CheckBox1 = True
Else
CheckBox1 = False
End If
End Select
End Sub
vielen dank trotzdem
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$1", "$B$1"
If Range("A1") > Range("B1") Then
CheckBox1 = True
Else
CheckBox1 = False
End If
End Select
End Sub
Ähnliche Themen
Wenn Funktion
corsipo 05.05.2007 - 83 Hits - 6 Antworten
Wenn-Funktion
BloodyMary 25.05.2007 - 83 Hits - 3 Antworten
Fehler im VBA bei LEFT Funktion
user3 17.10.2007 - 112 Hits - 3 Antworten
Excel, Funktion in Funktion
Pessimism 22.11.2007 - 120 Hits - 2 Antworten
Wenn-Funktion???
kiri 23.06.2008 - 144 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
