Office: (Office 2013) daten nach monat filtern und kopieren

Guten Tag allerseits
hoffe ihr seit alle gut ins neue Jahr gestartet

Habe folgendes problem.

Daten werden über eine Userform in tabelle matrix gespeichert.
tabelle Matrix hat überschriften, und das Datum befindet sich in spalte B.
nun soll beim speichern nach monat gefiltert werden und in die ensprechenden Tabellen ab zeile 2 (jan. Feb. märz. usw) kopiert werden.

Ich hoffe man versteht was ich meine*rolleyes.gif*

Stehe völlig an.

Speichern Code ist:

PHP:

         Private Sub cmdSpeichern_Click()
überträgt die eingetragenen Werte in erste leere Zeile Tabelle "Matrix)
Dim intErsteLeereZeile As Long

With Worksheets("Matrix")
intErsteLeereZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If intErsteLeereZeile = 3 Then
.Cells(intErsteLeereZeile, 1).Value = 100
Else
.Cells(intErsteLeereZeile, 1).Value = .Cells(intErsteLeereZeile - 1, 1).Value + 1
End If
.Cells(intErsteLeereZeile, 1).Value = CDate(Me.TextBox2)
.Cells(intErsteLeereZeile, 3).Value = TextBox3.Value
.Cells(intErsteLeereZeile, 4).Value = TextBox4.Value
.Cells(intErsteLeereZeile, 5).Value = TextBox5.Value
.Cells(intErsteLeereZeile, 6).Value = TextBox6.Value
.Cells(intErsteLeereZeile, 7).Value = TextBox7.Value
.Cells(intErsteLeereZeile, 8).Value = TextBox8.Value
.Cells(intErsteLeereZeile, 9).Value = TextBox9.Value
.Cells(intErsteLeereZeile, 10).Value = TextBox10.Value
.Cells(intErsteLeereZeile, 11).Value = TextBox11.Value
.Cells(intErsteLeereZeile, 12).Value = TextBox12.Value
.Cells(intErsteLeereZeile, 13).Value = TextBox13.Value


End With

Unload Me
UserForm1.Show
End Sub


:)

 

Moin!

Heißt das, Du hast zusätzlich zur Gesamttabelle "Matrix" noch Monatsblätter?
Erklärst Du mir diese Redundanz, wo doch einfaches Filtern der Matrix nach Monat ausreicht?

Gruß Ralf

 

Mal abgesehen von Ralfs berechtigter Frage zur Sturkturierung der Daten, mal Ansätze
1. Leg ein Autofilter über die Tabelle, filter nach dem jeweiligen Monat und kopiere das Ergebnis in die entsprechenden Blätter
2. Leg ein In-Memory Recordset an, kopiere die Daten aus dem Blatt da rein, filter das Recordset nach dem jeweiligen Monat und kopiere entsprechend
3. Kopiere die Daten aus dem Blatt in ein Array, filter wieder und kopiere in das entsprechende Blatt.

Falls Du sagst, das verstehe ich aber alles nicht, auch nicht mit den Links, dann starte hier.

 

Hallo zusammen
erstmal vielen Dank für die Unterstützung.
@Storax
Vielen Dank für den Tipp.
@Ralf
habe es mit dem erweiterten Filter versucht.
habe aber da zwei probleme.
-ich schaffe es die daten in das entsprechende Blatt zu kopieren, allerdings nur für ein bestimmes datum und nicht für den ganzen Monat.

ausserdem sollte sich die filterung bei änderungen in der Tabelle Matrix automatischen aktualisieren.

da reichen meine Excelkenntnisse nicht aus.*rolleyes.gif*

Bin wie immer für jede unterstützung dankbar
Beste Grüsse
Toni

 

Hallo allerseits

komme leider nicht vorwärts.



nochmals kurz was ich erreichen möchte.
Daten werden täglich über eine userform in Tabelle Matrix geschrieben.
12 weiterer Tabellen (janauar,Febaruar, März usw)

die Daten sollten nach Monat aus der Tabelle Matrix gefiltert werden und in die Entsprechende Monats Tabelle kopiert werden.
das ganze soll bei Worsheet Activate der Monatstabellen passieren

habe jetzt nach stunden mal folgenden code zusammen gebracht.
*rolleyes.gif* ganz bescheidene VBA kenntnisse*rolleyes.gif*


(in Worksheet Matrix!! sollte aber aus Montatstabellen starten)
(Suchkriterium !????!!)

PHP:

         Private Sub Worksheet_Activate()
Dim x As Long
Dim y As Long
y = 2
lastrow = Cells(Rows.Count, 1).End(x1Up).Row
For x = 2 To lastrow
If Cells(x, 2) = '??hier suchkriterium ganzer Januar??' Then
Rows(x).Copy Destination:=Worksheets("Januar").Rows(y)
y = y + 1
Else
End If
Next x

End Sub


 

Hallo Ralf

komme leider nicht vorwärts.



nochmals kurz was ich erreichen möchte.
Daten werden täglich über eine userform in Tabelle Matrix geschrieben.
12 weiterer Tabellen (janauar,Febaruar, März usw)

die Daten sollten nach Monat aus der Tabelle Matrix gefiltert werden und in die Entsprechende Monats Tabelle kopiert werden.
das ganze soll bei Worsheet Activate der Monatstabellen passieren

habe jetzt nach stunden mal folgenden code zusammen gebracht.
ganz bescheidene VBA kenntnisse


(in Worksheet Matrix!! sollte aber aus Montatstabellen starten)
(Suchkriterium !????!!)

PHP-Code:

Private Sub Worksheet_Activate()
Dim x As Long
Dim y As Long
y = 2
lastrow = Cells(Rows.Count, 1).End(x1Up).Row
For x = 2 To lastrow
If Cells(x, 2) = '??hier suchkriterium ganzer Januar??' Then
Rows(x).Copy Destination:=Worksheets("Januar").Rows(y)
y = y + 1
Else
End If
Next x

End Sub

Bin wirklich um jede Unterstützung Dankbar

Grüsse Toni

 

Ich bin ja immer noch der Meinung, dass die Monatsblätter überflüssig sind.
Lade mal die Datei hoch (bin jetzt aber erst mal weg).

Gruß Ralf

 

Hallo,

wenn du mit dem erweiterten Filter arbeiten möchtest, musst du das Startdatum und das Zieldatum im Kriterienbereich eintragen. Das würde etwa so aussehen:

Tabelle1

	C	D
1	Datum	Datum
2	>=01.03.06	<=31.03.06

Excel Tabellen im Web darstellen >>

 

hallo zusammen

@Klaus dieter vielen herzlichen Dank, mit erweiterten Filter funktioniert es nun.
ist aber nicht das was ich möchte.

@Ralf erstmal vielen, vielen Dank, dass du dir nochmals Zeit nimmst.

zu deiner Frage wieso ich monatsblätter brauche.
ich muss die monate einzeln ausdrucken.
ich lade mal die testdatei hoch.

vielleicht kannst du dir auch mal das Problem das ich beim befüllen der Textboxen
nach klick auf daten der listBox1 habe.
Das Problem ist nur mit Code für "Umlaute" da.*boah

PHP:

         Option Explicit

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Ersetzen Me.frameRoute.ActiveControl
End Sub
Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Ersetzen Me.frameRoute.ActiveControl
End Sub
'Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' Ersetzen Me.frameRoute.ActiveControl
End Sub

Sub Ersetzen(TB As Control)
Dim strText As String

With Me.Controls(TB.Name)

strText = .text
strText = Replace(strText, "Ä", "Ae")
strText = Replace(strText, "ä", "äe")
strText = Replace(strText, "Ü", "Ue")
strText = Replace(strText, "ü", "ue")
strText = Replace(strText, "Ö", "Oe")
strText = Replace(strText, "ö", "oe")
strText = Replace(strText, "ß", "ss")
.text = strText
End With
End Sub


 

Hallo zusammen


Kann mir niemand weiterhelfen?
Brauche dringend Hilfe von Profis.
Nochmal zum Problem
Daten werden per Users Form in Tabelle Matrix gespeichert
Nun möchte ich Daten nach Monat filtern und in die entsprechende Monats Tabelle kopieren.

Bin für jede Unterstützung dankbar
Beste Grüsse

 

Moin,
wenn du auf VBA beharrst, dann habe ich (im Rahmen der Forenhilfe) keine Lust, mich damit zu befassen. Aber ich gehe davon aus, dass das mit Power Query gut zu bewerkstelligen ist. Ich würde mir auch eine Muster-*.xlsx (also ohne VBA) ansehen und versuchen, einen Lösungsansatz zu erstellen.

 

Guten Tag *Smilie
erstmal vielen Dank dass du dir Zeit nimmst.
mit Querry habe ich noch nie gearbeitet.
Wenn es aber die daten automaisch filtern und kopiert, dann wäre es aber auch eine möglichkeit.
Wie würde das den aussehen?
Vielen Dank im Voraus
Beste Grüsse Toni

 

Moin,
erst einmal: Query Power Query! Da liegen imho Welten dazwischen. Und im Anhang meine Power Query-Lösung bis Mai; die alten Monatsblätter habe ich gelöscht ...

... immer noch zu groß, daher als *.zip gepackt.

 

Hallo

Erstmal vielen Dank für deine Unterstützung.*Smilie
ist auch eine Variante doch leider kenne ich mich mit PowerQuerry gar nicht aus.
habe erfolglos versucht das sich die jeweilien Monatstabellen automatisch aktualiesieren.*boah

kann mir wirklich niemand helfen das problem mit VBA zu lösen?!*frown.gif* *frown.gif*

währe wirklich toll wenn sich jemand meinem problem annehmen könnte.


nochmal herzlichen Dank im Voraus und natürlich an alle die beerteits ihre wertvolle Zeit für mich geopfert haben.

Best Grüsse
Toni

 

Hallo Drogist*Smilie
Ich habe die Variante Power Query nochmals genauer angesehen,
und mich entschieden diese Variante zu übernehemen*biggrin.gif*
Ist wirklich eine tolle Sache, habe zwar noch nicht herausgefunden wie die
tabellen automatisch aktualisiert werden.
Habe das problem aber vorübergehend mit dem Marko

PHP:

         Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll
End Sub