excel vba frage?

...komplette Frage anzeigen

2 Antworten

Deine Beschreibung ist für mich etwas verwirrend. Meinst Du das so?:

If IsEmpty(Range("A1")) Then
TextBox1.Text = Range("E1").Value
Else
TextBox1.Text = Range("A1").Value
End If
Wizard37 18.03.2016, 08:05

Wenn inhalt von A1 leer ist (eine Formel ist drin)

soll er etwas was ich in textbox1 schreibe in E1 übernehmen

ansonsten soll der Inhalt von A1 in Textbox1 stehen.

0
Ninombre 18.03.2016, 08:45
@Wizard37

Es ist etwas schwierig, sich den Ablauf mit dieser Logik sinnvoll vorzustellen: Der User gibt was in das Textfeld ein, was aber ggf. dann wieder überschrieben wird? Vielleicht macht es die Anwendung einfacher, wenn man die Prüfung schon früher durchführt, also beim Öffnen des Formulars schon E1 ins Textfeld übernimmt, wenn A1 leer ist.

2
Oubyi 18.03.2016, 13:35
@Ninombre

"Wenn inhalt von A1 leer ist (eine Formel ist drin)
soll er etwas was ich in textbox1 schreibe in E1 übernehmen
ansonsten soll der Inhalt von A1 in Textbox1 stehen."


Das sähe wohl so aus:


If IsEmpty(Range("A1")) Then
Range("E1").Value = TextBox1.Text
Else
TextBox1.Text = Range("A1").Value
End If



Ich schließe mich allerdings Ninombres Einschätzung an.

0
If Range("A1").Text = "" Then textbox1.value = Range("E1").Text Else Range("A1").Text = textbox1.value
Wizard37 18.03.2016, 06:14

Wenn A1 leer ist

soll er etwas was ich in textbox1 schreibe in E1 übernehmen

ansonsten soll der Inhalt von A1 in Textbox1 stehen.

0
AnonYmus19941 18.03.2016, 14:38
@Wizard37

Na gut, das habe ich falsch verstanden. Dann also anders herum:

If Range("A1").Text = "" Then Range("E1").Text = textbox1.value Else textbox1.value = Range("A1").Text

Bei der Textbox weiß ich nicht, wie es geht, ich habe einfach deine Angabe genommen...

0
AnonYmus19941 18.03.2016, 14:41
@AnonYmus19941

Ich habe gerade deine andere Antort gesehen. Wenn in A1 eine Formel drinnen steht, dann wird das vermutlich nicht funktionieren, weil der Inhalt dann nicht "" (leer, nichts) ist, sondern =FORMEL(), es wird nur für dich leer angezeigt. Probier es mal aus, vielleicht funktioniert es auch...

0

Was möchtest Du wissen?