Monat aud Datum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Monat_als_Text() Dim Datum, Monat, i& Dim Endzeile& With Tabelle2 Datum = .Range(.Cells(2, 3), .Cells(2, 3).End(xlDown)) Endzeile = Ubound(Datum) + 1 Redim Monat(1 To Endzeile - 1, 1 To 1) For i = 1 To Endzeile - 1 Monat(i, 1) = Application.GetCustomListContents(8)(Month(Datum(i, 1))) Next .Range(.Cells(2, 4), .Cells(Endzeile, 4)) = Monat End With End Sub

meine eigene Fraktion bilde.
was "besserer" Code ist, ist immer auch "geschmackssache", vorallem dann die Verarbeitungsgeschwindigkeiten nicht mehr spürbar sind, dann ist es wurscht, ob ein Code jetzt 0,1 oder 0,2 sec benötigt, dann werden andere Aspekte wichtiger (es sei denn, man macht gerade einen Geschwindigkeitswettbewerb)
ich für meinen Teil bevorzuge Codes, die möglichst schleifenfrei sind, weil Schleifen einfach nerven, wenn man den Code im Einzelstep testen muss.
Außerdem bevorzuge ich Codes, bei denen der Code selbst schon möglichst viel "Klartext" enthält, so dass er auch mit wenig Dokumentation verstanden werden kann.
bei "RemoveDuplicates" sollte jedem der englisch kann klar sein, was passiert, bei eine Schleife mit komischen Objekten (Dictionary) muss man dass auf jeden Fall erklären, warum jetzt hier die Schleife läuft.
Außerdem bin ich Excelanwender und kein Programmierer, von daher bevorzuge ich auch Codes, die sich möglichst an der Vorgehensweise orientieren, die man auch ohne Makro in der Tabelle verwenden würde (was zudem den Vorteil hat, dass man das ganze auch mal ausprobieren kann, ohne erst ein Makro schreiben zu müssen)
und ja, eine Schleife mit Arrays ist noch schneller als mein ZweiZeiler, aber warum irgendwelche "CustomLists" verwenden, wenn es die Format-Funktion gibt:

Sub AR2()
Dim arr
Dim i As Long
With Columns(3).SpecialCells(xlCellTypeConstants, 1)
arr = .Value
For i = 1 To UBound(arr, 1)
arr(i, 1) = MonthName(Month(arr(i, 1)))
Next
.Offset(0, 1).Value = arr
End With
End Sub

Gruß Daniel

Hallo Günther,
so, wie WF in 80% aller Antworten auf "s. unsere Excelformel xxx"
und sulprobil in 97% aller Antworten auf einen eigenen VBA-Link
verweist, könntest Du ja immerhin auf konkrete PQ-Ausarbeitungen auf Deiner Seite verlinken. Das gilt auch für Frank Furter. Niemand verlangt, dass Du für ignorante und ungebildete Frager zeitaufwändig das Rad neu erfindest.
Das hätte dann die nötige Mindest-Schöpfungshöhe für eine Hilfestellung.
Legitim ist bei Überschreitung des Forumsrahmens auch immer, abwehrend zu sagen: "Die Frage ist zu umfangreich/speziell/entgeltumgehungsverdächtig/sonstiges; für eine Antwort kann bei mir oder anderen gern ein kommerzielles Angebot eingeholt werden." Dann kann der Frager zumindest einordnen, dass er vielleicht zu viel erwartet.
Aber einfach nur "Nimm PQ"? Ist irgendwie zumindest blutleer. Einfallslos.
Da man M am ehesten mit SQL vergleichen kann: Mit der Angabe "Fahr doch mit einem SQL-Statement drüber" (Access, das frühere Query, Fremd-DB ...) war einem ja auch zu keiner Zeit geholfen. Und PQ hat dem ganzen im Grunde ja nur eine Menüoberfläche übergestülpt und versucht nun, Excel-Tabellen wie Access-Tabellen zu sehen. Eine Oberfläche, die glücklicherweise sogar aufgezeichnet werden kann, wobei die Nachbearbeitung des Codes noch sehr schwierig bzw. fummelig erscheint.

Beliebteste Forumthreads (12 Monate)

32 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread