Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.07.2024 22:30:43
Eintrag nach rechts n-fach wiedergeben
26.07.2024 19:00:58
Mehrere Tabellen aus PDF importieren
26.07.2024 18:10:28
Überlauf
26.07.2024 17:12:34
Text in Zelle
Findest du keine passende Antwort auf deine Frage?
Stelle sie in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum "05.06.2011" aufbrechen

Datum "05.06.2011" aufbrechen
braleta
Hallo Excel-ianer,
wie kann ich mit VBA am "einfachsten" ein Datum in der Formatierung tt.mm.jjjj aufbrechen, dass ich drei Strings in der Form tt, mm und jjjj erhalte?
Am liebsten wäre mir eine Lösung mit einem Array, weil ich dieses dann als Parameter weitergeben kann/könnte.
Herzlichen Dank
...braleta

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum "05.06.2011" aufbrechen
14.04.2011 01:58:11
hary
Hallo braleta
meinst Du so? 

Sub aufbrechen()
Dim a, datum As String
datum = "05.06.2011"
a = Split(datum, ".")
MsgBox a(0) ' 05
MsgBox a(1) ' 06
MsgBox a(2) ' 2011
End Sub

gruss hary
... oder man nimmt die funktion, die vorgesehen is
14.04.2011 06:45:48
Marc 

Sub test()
datum = "14.04.11"
MsgBox DatePart("d", datum)
MsgBox DatePart("m", datum)
MsgBox DatePart("yyyy", datum)
End Sub
Gruß, Marc
AW: Datum "05.06.2011" aufbrechen
14.04.2011 06:47:36
braleta
Hary,
danke, das ist genau die Lösung, die ich suche, sie gilt auch für Artikelnummern mit mehr als drei durch einen "Punkt" getrennte Zahlengruppen. Mit ubound hab ich alle!
Danke
...braleta
Anzeige

313 Forumthreads zu ähnlichen Themen

Runden auf 0,5
Martin

Ich möchte Währungsbeiträge auf 5 Cent genau runden. Das heißt, 10,27 EUR soll Excel als 10,25 EUR anzeigen. 10,28 EUR sollen dagegen als 10,30 EUR angezeigt werden.
Und:
10,24 ==> 10,25
10,22 ==> 10,20
Gibt es dafür eine Funktion bzw. eine Formatierung in Excel?
16.05.2002 15:09:49
Thread-ID: 121394
3 Beiträge
Anzeige
Runden 0,05 / 0,1
Skaarj

Hi,da sich Excel mit speziellen Runden über Formeln recht schwer tut (meine ich zumindest *g*) wollte ich fragen, ob mir jemand ein kleines Makro für folgenden Fall hätte.Ist Zahl
< 1 dann nix runden> 1 und < 10 dann runden auf 0,05 (z.B.: bei (5,12 auf 5,10 bzw. 5,17 auf 5,15); (5,13 auf 5,...
02.08.2002 09:38:39
Thread-ID: 143961
4 Beiträge
Datensatz von 650 Spalten auf 3 Blätter verteilt e
Pascal

Hallo Leute,
ich habe einen Datensatz der Form
0 0 0 1 12 15 0 4 0 0
0 1 0 1 12 12 1 5 5 0
und zwar mit 650 spalten und 880 Zeilen
in einer txt-datei vorliegen.
Diese Daten möchte ich in drei excel blätter einlesen.
da ein blatt nur 256 spalten hat, werd...
02.08.2002 15:26:24
Thread-ID: 144171
3 Beiträge
Anzeige
Runden auf 0,5
Mike

Hallo zusammen,
welche Formel muss ich in die Zelle schreiben, damit der Nachkomma-Wert auf die ganze Zahl oder auf 0,5 abgerundet wird.
Es soll also der Wert zwischen 0,00 und 0,49 auf 0,00 abgerundet und zwischen 0,51 und 0,99 auf 0,50 abgerundt werden.Gruß
Mike
15.09.2002 14:38:06
Thread-ID: 160147
3 Beiträge
Formel in Zelle => Laufzeitfehler '1004'
Rob

Hi,ich habe ein kleines Problem. Wie kann ich folgende Formel in eine Zelle einfügen?=VERKETTEN(""Gesamt: ""&TEXT(SUMME(K4:K32)+SUMME(I4:I32)+SUMME(F4:F32)+SUMME(C4:C32);""0,00 €""))Wenn ich es folgendermaßen probiere, bekomme ich einen Laufzeitfehler:ThisWorkbook.Sheets(Blattname).Range("A1")....
15.09.2002 23:45:22
Thread-ID: 160248
3 Beiträge
Variable Dateiname in Formel einbinden
neil

Hallo,
benötige Hilfe zu folgender Aufgabe:
in der unten gezeigten Formel möchte ich den Dateinamen über eine Zelle als Variable einbinden und dann die entsprechende Formel ausführen lassen...=INDEX([Haus.xls]TTL!$V$6:$AI$53; VERGLEICH(F10;[Haus.xls]TTL!$V$6:$V$53;); VERGLEICH($K$6;[Haus....
25.09.2002 11:12:55
Thread-ID: 163570
4 Beiträge
10 Spalten aufrunden?
Anderl

Hallo,ich will eine tabelle mit 10 spalten a 15 zeilen im format 1234,45 auf die nächsthöhere Zehnerzahl aufrunden, also auf 1240.mit der aufrund und obergrenzen funktion hat es nicht funktioniert, was kann ich noch versuchen?danke
anderl
17.10.2002 16:59:44
Thread-ID: 170499
10 Beiträge
Zahlen auf 1000er runden
Henning

Hallo Ich habe eine grosse Tabelle erstellt, welche mit Formeln schon fast überfüllt ist.
Auf Wunsch der Geschäftsleitung (lich danke) muss ich nun die Beträge auf 1000er runden.
Also z.B. 899500 auf 900000.Nun, wie anfangs erwähnt, habe ich schon viele Formeln drin. Wenn ich also die For...
05.12.2002 08:06:37
Thread-ID: 189111
3 Beiträge
Kopieren von Zellen aber ohne Formeln
Hansi

Hallo Leute,wie kann ich Zellenwerte kopieren, allerdings ohne die dahinterliegenden Formeln.Folgendes hab ich; es stockt allerdings bei den ActiveSheet.PasteSpecial Paste:=xlValues:
.....Dim but As Integer

If OptionButton1.Value = True Then but = 1
If OptionButton2...
07.01.2003 14:51:55
Thread-ID: 199975
5 Beiträge
Anzeige
Runden von 0.1 auf 1
andi

HalloIch habe eine Tabelle in der die Werte bereits ab 0.1 auf die nächst höhere Zahl gerundet werden soll, also: 2.10 auf 3/ 5.35 auf 6 aber 2.06 auf 2. Wie ist das möglich- über runden() mit einem Trick?Herzlichen Dank bereits im voraus!Gruss Andi

05.02.2003 11:50:27
Thread-ID: 214225
2 Beiträge
beträge auf 5 runden
oernest

habe ein problem mit dem runden von geldbeträgen. die variablen sind als double deklariert und haben somit mehrere gleitkommastellen. ich sollte nun auf 2 stellen hinter dem komma runden und zwar auf 5 also z.b. CHF 1.43 sollte CHF 1.45 werden oder CHF 1.42 --> CHF 1.40 u.s.w

06.02.2003 08:50:25
Thread-ID: 214734
6 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
8
3
2
2
2
2
3
9
2
4
2
1
5
3
7
1
1
13
2