dynamisches diagramm jeden monat

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Beverly,
vielen Dank für Deine Antwort.
Ist leider nicht ganz einfach zu beschreiben.
Also alle auf ein Diagramm soll ja noch zusätzlich geschehen.
Aber zwecks der besseren Übersicht (da Tageszahlen!) soll auch noch ein monatliches Diagramm in jeweils einem extra Tabellenblatt erstellt werden.
Das eigentliche Problem dabei ist, wie bekomme ich VBA dazu, dass er mir den letzten eines Monats herausfiltert. Formel dazu habe ich zwar, aber er gibt mir als Antwort bei searchcell immer Nothing. In einem anderen Makro funktioniert diese Funktion aber.
Als Code habe ich bisher nur:
Sub Diagramm()
Dim Datum1 As Date
Dim Datum2 As Date
Dim Searchcell As Range
Datum1 = Cells(1, 2).Value
Datum1 = Format(Datum1, "DD.MM.YYYY")
MsgBox Datum1
Datum2 = CDate(DateSerial(Year(Datum1), Month(Datum1) + 1, 0))
Datum2 = Format(Datum2, "DD.MM.YYYY")
MsgBox Datum2
Set Searchcell = ActiveSheet.Range("A1:iv10").Find(CDate(Datum2), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Searchcell Is Nothing Then
'If Not (f Is Nothing) Then
'f.Activate
MsgBox "Datum nicht gefunden!", vbCritical, "Ende der Verarbeitung"
Else
...
Mag vielleicht auch noch umständlich sein, aber ich bin ja noch am schneidern! :-)
Hab mal ne Beispieldatei hochgeladen.
Gruß
Peter

Die Datei https://www.herber.de/bbs/user/55721.xls wurde aus Datenschutzgründen gelöscht

Hi Peter,
weshalb suchst du das Datum in A1:IV10? Das Datum kommt doch nur in Zeile 1 vor.


Sub datum_finden()
Dim inSpalte As Integer
On Error Resume Next
inSpalte = Application.Match(CDbl(CDate(DateSerial(Year(Cells(1, 2)), Month(Cells(1, 2)) + 1, _
0))), Rows(1), 0)
If Err  0 Then
MsgBox "Datum nicht gefunden!", vbCritical, "Ende der Verarbeitung"
Else
MsgBox "Datum in Zelle " & Cells(1, inSpalte).Address
End If
On Error GoTo 0
Err.Clear
End Sub

Ich würde aber die Tabelle anders aufbauen, da es ja nur 255 Spalten gibt - also Datum in Spalte A fortlaufend und die Werte in Spalte B fortlaufend. In diesem fall müsste der Code so lauten:


Sub datum_finden()
Dim loZeile As Long
On Error Resume Next
loZeile = Application.Match(CDbl(CDate(DateSerial(Year(Cells(2, 1)), Month(Cells(2, 1)) + 1,  _
0))), Columns(1), 0)
If Err  0 Then
MsgBox "Datum nicht gefunden!", vbCritical, "Ende der Verarbeitung"
Else
MsgBox "Datum in Zelle " & Cells(loZeile, 1).Address
End If
On Error GoTo 0
Err.Clear
End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

dynamisches diagramm jeden monat

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread