Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl der Jahresstunden in VBA

Forumthread: Anzahl der Jahresstunden in VBA

Anzahl der Jahresstunden in VBA
28.09.2017 10:01:30
ludicla
Hallo Profis
wie kann ich die Anzahl der Jahresstunden ermitteln wenn das Jahr
in einer Listbox steht. Anschließen will ich den Wert in einer
Combobox anzeigen.
vielen Danke für euere Hilfe.
Gruß Ludicla
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
...
28.09.2017 10:05:50
lupo1
Die Anzahl der Jahresstunden ist in VBA genauso hoch, wie in Sachsen.
A1: Jahr
=((TAG((3&-A1)-1)=29)+365)*24

AW: ...und wie muss der Code aussehen
28.09.2017 11:27:26
Ludicla
Danke Lupo1
Was bedeutet die 3& in der Formel ?
Wenn ich im Code 'TAG' durch Day ersetze erscheint beim Jahr 2012 8736 Stunden.
Bei der Formel in der Tabelle geht es.
Wie müßte ich in welchem Ereignis den genauen Code eingebe ?
Gruss Ludicla.
Anzeige
AW: ...und wie muss der Code aussehen
28.09.2017 11:41:19
UweD
Hallo
so
Tage = ((Day((3& - [A1]) - 1) = 29) + 365) * 24
oder
Tage = ((Day((3& - Range("A1")) - 1) = 29) + 365) * 24
aus 3-2017 wird der der 01.03.2017
-1 ist der letzte Februar Tag
Dann Frage: ist das der =29. Bei Wahr ist das Ergebnis 1
dann wären es eben 365 +1 Tag
LG UweD
Anzeige
AW: ...und wie muss der Code aussehen
28.09.2017 12:08:29
Ludicla
Hallo Danke
Hallo Danke für die hilfe, aber ich steh auf dem Schlauch.
ich hab das Jahr in der Combobox7 stehen (z.B. 2012) und der Code
ComboBox6.Value = ((Day((3& - ComboBox7) - 1) = 29) + 365) * 24
weist mir 8.736 Stunden aus.
bei allen anderen auch - die Schaltjahre werden nicht berücksichtigt.
Wo steckt da der Wurm drin ?
Gruss Ludicla.
Gruss Ludicla
Anzeige
Vorsicht: Wahrheitswerte in VBA werden mit -1
28.09.2017 12:11:04
lupo1
, nicht mit 1, addiert! Anders als in Excel.
Es mag auch sein, dass die extrem schmutzige Tabellenformel (3& ...) in VBA nicht funktioniert. Das wird Uwe sicher noch prüfen.
AW: Vorsicht: Wahrheitswerte in VBA werden mit -1
28.09.2017 12:19:10
Ludicla
Danke Lupo
mal sehen ob on Uwe noch eine Idee kommt.
Gruss Ludicla.
Probiere es mal...
28.09.2017 12:34:04
Case
Hallo, :-)
... so: ;-)
ComboBox6.Value = Evaluate("((Day((3& - " & ComboBox7.Value & ") - 1) = 29) + 365) * 24")
Servus
Case
Anzeige
AW: Probiere es mal...
28.09.2017 12:43:31
Ludicla
Danke Case,
puhhh ich kapier zwar die Formel nicht - aber sie funktioniert perferct - also nehm ich sie her.
Ich bin ja erst 61 und hab noch Zeit zu lernen - man soll die Hoffnung nieeeee aufgeben.
Nochmal Dankeschön
Gruss Ludicla.
AW: Vorsicht: Wahrheitswerte in VBA werden mit -1
28.09.2017 13:19:04
UweD
Ich fall immer wieder drauf rein.
WAHR: Formel =1; VBA =-1
Schmutzige Formel.....
Hier mal etwas geputzt...
= (365 - (Day(DateSerial(ComboBox7.Value, 3, 0)) = 29)) * 24
LG UweD
Anzeige
AW: Vorsicht: Wahrheitswerte in VBA werden mit -1
28.09.2017 14:55:18
Ludicla
Danke UweD
werd gleich mal testen.
Gruss Ludicla.

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
Anzeige
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige