Office: Formatierung nach einfügen durch VBA-Code wieder alte Formatierung

Hallo Excel-Freunde,

ich bin gerade mal wieder an meine Grenzen gestoßen,

ich lasse von einem Excel-Code in Zellen einträge machen:

cells.(x,y).value= strEintrag

ich mache mit diesem code einträge übers ganze Arbeitsblatt in verschiedene Spalten mit verschieden Formatierungen

jetzt hätte ich gerne, daß die Formatierung nach dem Eintrag wieder die gleiche ist bevor sie mit der StringVariablen beschrieben wurde.

Wie würdet Ihr das lösen?

Gruß Michael

:)

 

Hallo Michael,

Text kannst Du nur als Text formatiweren.

 

auch wenn der text eine zahl beinhaltet? ich meine, wenn im excel in einer zelle, die als text formatiert ist, kann ich sie ja dann auch als zahl formatieren !?

 

Diese Annahme ist genau so falsch wie deine Groß- Kleinschreibung.

 

kommt mir gerade die Idee- wie kann ich prüfen, ob der Zelleninhalt aus der ich lese eine Zahl ist?
Bzw. die Zelle in der ich schreibe als Text oder Zahl formatiert ist?
dann bräuchte ich nicht für jede Spalte mit if then auffangen ob Zahl oder Text ist.

Gruß Michael

 

Hallo Michel,

ja ...

Sub IstDasText()
If WorksheetFunction.IsText(Range("A1")) Then MsgBox "Text"
'Alternative
MsgBox VarType(Range("A1")) '8 = String
If IsNumeric(Range("A1")) Then MsgBox "Text als Zahl"
End Sub

Du siehst, der Möglichkeiten (aber auch Fallen) gibt's diverse ... *Smilie

 

Hallo Michael,

ich habe mir deinen ersten Beitrag noch einmal angeschaut und meine, um dir vernünftig helfen zu können, müßte man mehr von deiner Aufgabenstellung wissen.

- was passiert da konkret ?
- wie sieht der Code aus ?
- warum benutzt du String-Variable ?

- Daraus könnte man schließen, dass es mehr als 2 Formate (Text, Zahl) gibt.
- gibt es mehrere Zahlenformate wie zB Datum, Zeit, Währung ?

- hier noch einmal die Frage, warum StringVariable ?
- ist sichergestellt, dass du in als Zahl formatierte Zellen nur Zahlen (wenn auch als Text formatiert) und keine echten Text kopierst ?
- Ziel sollte es sein, das Format der Zelle beim Kopieren zu nutzen, so dass keine Nacharbeiten erforderlich sind.

Gruß
Aloys

 

Guten Morgen,
mein Problem ist leider noch nicht gelöst- auch wenn ich es jetzt schaffe, Text und Zahl zu unterscheiden.
Für die Verdeutlichung meines Problemes habe ich jetzt meine Datei angehängt- Ziel ist es über den Button Änderung im Artikel vornehmen, die rot markierten Zellen aufzurufen und mit der Liste KWG_Neu abzugleichen.

Gruß Michael

 

So, geschafft- vielen Dank für eure Hilfe.
Ich habe zuerst unterschieden ob Text oder Zahl, dankeschön an dieser Stelle für die Tips, dann die Zahlen bzw Texte in dementsprechende Variablen geschrieben- String oder Single und schon funktioniert es!
Dankeschön nochmals
und Grüße aus Bayern

Michael