Re: Zellformatierung in Stunden bei Eingabe als Numerische Ziffer

Tech-Archive recommends: Fix windows errors by optimizing your registry

Am 15 Dec 2005 23:28:58 -0800 schrieb Lukas:

Hallo Andi,

> Ich wollte das o.a. Makro einbinden und habe die Zellen A2:A mit D2:I
> vertauscht, da dort die Werte im Format hh:mm ausgegeben werden sollen.
> Leider hat dies nicht gereicht.

Jetzt habe ich ein kleines Verständnisproblem.
Nach Vorstehendem sollen die Formate in den Spalten D:I angepasst werden,
nach Nachfolgendem aber im Bereich N2:AF372.

> Die Werte in den Zellen N2:AF372 sollen im Format hh:m ausgegeben
> werden, da dort minimal halbe Stunden eingegeben werden (Platzproblem
> beim Ausdrucken)
(Das verstehe ich nicht so ganz: 0,5 ist doch kürzer als 00:30 ?)

Ich habe mich jetzt für den Bereich N2:AF372 entschieden.
Ich gehe wieder von der Annahme aus, dass in diesem Bereich Zeiten im
Excel-Format (13:33) und unformatiert (13,55) stehen, und dass die
letzteren in das Excel-Format umgewandelt werden solle.


Sub Zeit_umwandeln()
Dim rngzelle As Range
Dim rngBer As Range

On Error GoTo Errhandler
Application.ScreenUpdating = False
Set rngBer = Active***.Range("N2:AF372")
For Each rngzelle In rngBer
If rngzelle.NumberFormat = "General" Then
rngzelle.Value = rngzelle.Value / 24
rngzelle.NumberFormat = "[hh]:mm"
End If
Next
Errhandler:
Application.ScreenUpdating = True
End Sub



> Was bedeutet "A65536" ??? in der Lösungsvariante von Eberhard.

65536 ist die letzte Zeile eines Excel Tabellenblattes. In dem Ausdruck
lngLR = Active***.Range("A65536").End(xlUp).Row
wird die letzte belegte Zelle in Spalte A gesucht. (Du hattest ja keine
Angaben gemacht, wo Deine Daten stehen. Ich hatte daher einfach angenommen,
dass die Daten in Spalte A stehen und Excel angewiesen, dort den Bereich
der Daten zu ermitteln.)
>
> Gruß aus dem tiefverschneiten Bayer. Wald.

Wie schön. Bei uns hier in HD freuen sich nur die Gastronomen über das
Wetter, denn Regen und Sturmböen treiben die Touristen von den Strassen in
die Restaurants.

--
Gruß Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de
.

Quantcast