Excel VBA

[inlineskates]

Hallo,

ich habe in Excel ein kleines Programm geschrieben in dem Kosten berechnet werden. Nun möchte ich diese Kosten zusammen rechnen aber ich bekomme der Zelle kein Format zugewiesen. Er erkennt alles nur als Text an. Kann mir jemand helfen?

Viele Grüsse

Inlineskates

[Lord_of_Flames]

Hast du die Zelle vielleicht in deinem Programm definiert?

[inlineskates]

Nein ich habe die Zelle nicht formartiert. Ich habe versucht den Wert als Währung auszugeben aber er speichert es nur als Text. Wie weise ich einer Zelle ein Format zu?

Gruss Inlineskates

[-roTekuGeL-]

Originally posted by Freak_23

Hast du die Zelle vielleicht in deinem Programm definiert?

ja genau der is gut ne zelle definieren :bimei

@inlineskates

versuchs doch mal mit

    Range("A1").Select

    Selection.NumberFormat = "#,##0.00 $"

statt $ - €

[inlineskates]

Vielen Dank,

werde es versuchen. Wenn es nicht klappt melde ich mich nochmal.

Kann leider etwas dauern da gestern meine Tochter den Blinddarm rausgeholt bekam

Gruss Inlineskates

[inlineskates]

Hallo

Danke, dein Tip hat sehr viel weiter geholfen.

Aber jetzt ergibt sich eine neue Frage:

mein Code:

Range("c3:c36").Select

Selection.NumberFormat = "##,##0.00 €"

Sheets("Jahresübersicht").Cells(jahrreihe, 3) = Monatskosten

Sheets("Jahresübersicht").Cells(jahrreihe + 1, 3).Formula = "=sum(c3:c36)"

Sheets("Start").Range("A1").Select

kann ich und wenn ja wie kann ich in den Rangebefehl die Variable jahrreihe einbauen? Dieser Befehl steht in einer Schleife die die Zeilen des Tabellenblattes durchläft.

Vielen Dank im Voraus

Gruss Inlineskates

[-roTekuGeL-]

öhm hab ich nicht ganz verstanden kann du das ganze etwas verständlicher für mich schreiben?

[-roTekuGeL-]

Also ich hab mir das ganze nochmal überlegt und meinst du das vielleicht so:

Dim i As Integer

i = 1


  Do


    i = i + 1

    Tabelle1.Cells(i, 1) = i

    Range("A1", "A" & i).Select

    Selection.NumberFormat = "##,##0.00 €"



  Loop While i <> 10

?

[*I C Q*]

Versuch's mal so:

Sheets("Jahresübersicht").Cells(jahrreihe, 3).NumberFormat = "##,##0.00 €"

Sheets("Jahresübersicht").Cells(jahrreihe, 3) = Monatskosten

Sheets("Jahresübersicht").Cells(jahrreihe + 1, 3).Formula = "=sum(c3:c36)"

Sheets("Start").Range("A1").Select

ICQ

[-roTekuGeL-]

@*I C Q*

oder auch so...

[inlineskates]

Hallo,

vielen Dank, Ihr habt mir sehr viel weiter geholfen.

gruss Inlinskates