Formate per VBA

Hallo zusammen
mit folgendem Codeschnipsel wechsele ich zwischen dem Standardformat und dem Format @" Seiten", je nachdem, ob ein Text oder eine Seitenzahl eingegeben wird. In der erwähnten Zelle L10 steht dieses Seiten-Format, von der sich der Code das Format abkupfern soll.
Die Umschaltung auf General klappt, aber die auf @Seiten nicht sofort, sondern erst, wenn man ein zweites Mal eine Seitenzahl eingegeben hat. Hatte auch schon versucht, die Event-Enabelung vorzuverlegen, aber das nützt auch nix.
Warum ist das so?
Gruß - Jörg
If .Range(wsConfig.Range("L11").Value).Value = wsTarget.Range(wsConfig.Range("L2").Value).Value Then
.Range(wsConfig.Range("L11").Value).NumberFormat = "General" 'Standardformat bei Texteingabe
Application.EnableEvents = True
.Range(wsConfig.Range("T4").Value) = 1 'Schaltfeld Anzahl Objekte
Application.EnableEvents = False
Else '(also wenn da Seitenzahlen eingegeben werden...)
.Range(wsConfig.Range("L11").Value).NumberFormat = wsTarget.Range(wsConfig.Range("L10").Value).NumberFormat 'Seiten/Pages-Format
Application.EnableEvents = True
wsTarget.Range(wsConfig.Range("T4").Value) = "1" 'Schaltfeld Anzahl Objekte
Application.EnableEvents = False
End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

...stimmt - 35 MB groß - bißchen zu umfangreich zum Hochladen, nicht?
Wenn ich so einen Codeschnipsel kopiere (erstmal ohne Dummy-Datei), dann geschieht das, weil häufig ein Fachmann auf einen Blick erkennt "an der Stelle hast dort du den und den Murks geschrieben". Dann ist der Fall schnell erledigt.
Oder er erkennt ebenso schnell, daß ein Fehler nicht zu entdecken ist. Dann wäre eine sinnvolle Antwort z.B. "kann man so nicht erkennen - schick doch mal einen Dummy". Das ungefähr wäre so die "normale" Art der Kommunikation. Es gibt aber eben auch Leute, die können vor allem gut programmieren...
Ich habe mich im Lauf der Zeit an deine seltsame Art gewöhnt, mitunter die Fragesteller lässig von oben herab abzukanzeln. Nun betrifft es erstmals mich selbst...
Also: Ich werde im Laufe des Abends noch einen Dummy erstellen und hochladen...
Jörg

Sub Makro1() Dim varTemp As Variant If Range("A1").Value = Range("B1").Value Then varTemp = Range("A1").Value Range("A1").NumberFormat = "General" Else varTemp = Range("B2").Value Range("A1").NumberFormat = "@"" Seiten""" End If Range("A1").Value = varTemp End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread