Office - Word, Excel und Co. 9.727 Themen, 41.219 Beiträge

Verfolgung starten Optionen

SendKeys Alternative ???

evildeath / 9 Antworten / Flachansicht Nickles
Hi Leutz !

Ich verzweifel gleich. Habe folgendes Problem ...

Ich bekomme Listen aus LINUX direkt nach Excel, wo sie dann über ein
Makro grafisch umgesetz werden.
Das Problem ist, wenn ich zum Beispiel ein Feld habe was als DATUM oder ZAHL
definiert ist wird zwar das gewünschte Format umgesetzt, aber es wird nicht dargestellt!!

Ich bekomme eine Zahl z.B. so rein : "16.000,00" und linksbündig
Aussehen soll sie aber so : "16.000" und rechtsbündig

Dies passiert erst nachdem ich F2 zur erneuten Bearbeitung und ENTER drücke.

Habe über SendKeys zwar schon eine Menge gelesen, aber 1. funzt das bei mir net (WIN 2000) und 2. bekomme ich riesige Listen und wenn EXCEL dann mit SendKeys am Ende noch mal jedes Feld durch gehen muss, dauert das ewig.

Es muß doch eine Funktion geben, wo ich sagen kann, dass das Feld einfach neu berechnet werden soll, oder?

Danke für eure Hilfe ...

oli
bei Antwort benachrichtigen
Schon mit F9 probiert? Wie kommen die Listen von Linux? Als txt? Was soll ... CrustyBurrito
Hi. Also. Es wird ein selbst programmiertes Formular über DDE nach EXCEL ... evildeath
Liegt wohl an den Grundeinstellungen. Hast du die Einträge unter ... CrustyBurrito
Hmm, das prüf i diret mal ... danke evildeath
Hallo ... Daran liegt es auch nicht ... Habe mal unter folgendem LINK eine ... evildeath
Jetzt ists klar. Das liegt am Zellenformat. Über DDE holst du die Daten ... CrustyBurrito
Hi! Danke für den TIP. Werd ich gleich mal testen. Das Problem is ja, das ... evildeath
Wie du schon richtig erkannt hast: Excel macht manchmal was es will. Wenn ... CrustyBurrito
evildeath CrustyBurrito „Wie du schon richtig erkannt hast: Excel macht manchmal was es will. Wenn dir...“
Optionen

Hallo!

Vielen Dank für deine Mühe.
Den Tip habe ich gerade bekommen und das funzt super :-)))
Nochmal Danke ...

Schönen Tag noch

lieben gruß
oliver

> Option Explicit

> Sub Test()
> Dim WS As Worksheet
> Dim Zelle As Object

> Set WS = Worksheets(1)

> For Each Zelle In WS.UsedRange
> If IsNumeric(Zelle) And Zelle "" Then Zelle = Zelle * 1
> Next Zelle
> End Sub


bei Antwort benachrichtigen