Office: (Office 2013) Ganze Spalten mit einer Checkbox aus-/einblenden (VBA?)

Also das mit dem Minimum klappt wunderbar *top

Aber die Neuberechnung bringt irgendwie recht wenig.

Es ist aber nur die Bedingung, welche auch die J16-Zelle verwendet.
Weiß nicht, ob das relevant ist!?

 

Dazu kann ich leider nichts sagen - bei mir wurde die bedingte Formatierung aktualsiert.

 

ich habe zwei arten von Bedingungen drin.

- eine bezieht sich auf G16
- die andere auf J16

auf dem Blatt "Zusammenführung...".

Und die von G16 funktioniert, aber die von J16 geht nicht.
Und wenn ich in die Zelle direkt einen Wert eintippe, dann funktioniert es.

Ach und grade hab ich was gemerkt!
Gibt man den Wert über die UserForm ein, bekommt die Zelle J16 ein gelbes Ausrufezeichen mit folgendem Hinweis:
"Die Zahl in dieser Zelle ist als Text formatiert oder es ein Apostroph vorangestellt".

 

Lade bitte die Arbeitsmappe mit dem aktuellen Code hoch. Inzwischen haben wir so viele Veränderungen vorgenommen, dass meine nicht mehr ganz aktuell ist.

 

RE_UserForm_Test.xlsm

Und komischerweise kann ich in der UserForm keine Zahlen mit Komma nutzen.

z.B. 1,5 geht nicht!!*bawling

 

Du musst bei TextBox14 noch die ControlSource löschen.

 

ok, das wars leider nicht.

da ist immer noch das gelbe Ausrufezeichen an der Zelle als INFO dran

 

Doch, das war die Ursache dafür, dass du keine Kommazahlen eingeben konntest.

Deine Zellen sind als Text formatiert - schreibe eine 1 in eine beliebige (nicht formatierte) Zelle, kopiere sie, markiere H16:J16 und füge Inhalte ein -> werte und Multiplizieren. Das stellt den Standard wieder her.

 

Also das mit dem kopieren hat zwar geklappt.

Aber wenn ich über die UserForm meine Werte eintrage und übernehme,
dann sind die Zellen wieder als Text formatiert!

 

Du hast alles so gemacht wie ich geschrieben habe und benutzt zum Eintragen der Werte aus den TextBoxen in jedem Fall CDbl(TextBox)?

 

Ich denke schon, dass ich alles so gemacht habe.

Hier der Code für die Text15 als Beispiel:

PHP:

         Private Sub TextBox15_Change()
If TextBox15 <> "" Then
If IsNumeric(TextBox13) Then Worksheets("Zusammenführung Messwerte").Range("H16") = CDbl(TextBox15)
End If
End Sub


 

Das hast du auch ausgeführt?

 

*frown.gif* *confused.gif*

 

Was du mit "Also das mit dem kopieren hat zwar geklappt." meinst ist mir unklar.

Lade deine aktuelle Mappe hoch, die letzte hatte noch Fehler - anders kann man nicht testen.

 

Habe das so gemacht wie du beschrieben hast:

"schreibe eine 1 in eine beliebige (nicht formatierte) Zelle, kopiere sie, markiere H16:J16 und füge Inhalte ein -> werte und Multiplizieren."

Das funktioniert ja auch ganz gut. Die Zelle ist dann auch als Zahl formatiert.
Aber wenn ich dann über meine UserForm Daten eingebe und übernehme, wird die Zelle wieder als Text formatiert.

RE_UserForm_Test.xlsm