Hallo Zusammen ich habe folgendes Problem!
In Zelle K1 bis K8 habe ich die Zahl 1 stehen in der Neben Zelle L1 bis L8 habe ich das Datum stehen von 01-06 bis 08-06!
Nun steht in Zelle A1 eine dropdownliste in der ich das Datum von L1 bis L8 auswählen kann!
Um den Zeitraum eingrenzen zukönnen habe ich nun in Zelle B1 wieder, das Datum stehen (von L1 bis L8)
Ich möchte, dass wenn ich nun das Datum 01-06 in Zelle A1 auswähle
und in Zelle B1 das Datum 04-06 auswähle automatisch in einer gewünchten Zelle die angebenen Werte aus Zelle K1 bis K8 eingegrenzt werden und dort erscheinen! (Sprich in meinem Bespiel, hier vier mal die 1 untereinander) Ist das möglich? Ich hoffe ich habe es nicht zu kompleziert erklärt! Danke im vorraus!
also datum in A1 und A2 , werte zum übertragen in K und Datum in L , wenn Lx im Bereich A1 bis A2 und dann nach C kopieren 
Einfacher wäre erst Datum wählen dann ZielZelle wählen, dann Makro starten, dann wüsste das makro wohin du das haben willst , aber das ne andere sache.
A1 und A2 auswählen und dann das makro starten von mir aus pak dahinter ein button
alle felder sollten vom typ Datum sein
Private Sub grapDateRange()
Dim Zeilenanzahl As Integer
Dim Sucheanfang As Integer
Dim Geschrieben As Integer
' ende der datumspalte ermitteln (spalte 12 = L)
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 12).End(xlUp).Row
' anfang der suche
Sucheanfang = 1
' gefunden zaehler
Geschrieben = 0
' solange wir noch datum werte haben in der spalte 12 = L , suchen wir
' p.s. es muss dann nicht sortierte datums werte geben in spalte 12 :smile:
' geht auch mit unsortierten
Do While Sucheanfang X (Kx) Cells(1, 1).Value And Cells(Sucheanfang, 12).Value
HI
Dank dir schonmal für deine Antwort, aber ich bekomm es nicht hin!
mein Code sieht jetzt so aus:
Private Sub grapDateRange()
Dim Zeilenanzahl As Integer
Dim Sucheanfang As Integer
Dim Geschrieben As Integer
’ ende der datumspalte ermitteln (spalte 27 = AA)
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 27).End(xlUp).Row
’ anfang der suche
Sucheanfang = 52
’ gefunden zaehler
Geschrieben = 0
’ solange wir noch datum werte haben in der spalte 27 = AA , suchen wir
’ p.s. es muss dann nicht sortierte datums werte geben in spalte 27
’ geht auch mit unsortierten
Do While Sucheanfang X (Zx) Cells(4, 7).Value And Cells(Sucheanfang, 27).Value
Hallo Lotze,
ich habe dein Ausgangsposting gelesen und bewundere Holger daß er da in etwa erkannt hat was du eigentlich willst.
Ich habe dir einmal die Datei upgeloadet!
Es gibt auch FAQ:2606
Der code soll ausgeführt
werden wenn ich auf Facturation drücke!
Was „Facturation“ ist weiß man erst wenn man die Datei hat?
Zu deinem Code einige Gedanken.
Geschrieben = 0
kannste dir schenken, ist eh 0.
celle 4,7 (D7)
ist nicht D7 sondern G4
Geschrieben = Geschrieben + 52
’ hier wird der wert übertragen (in spalte 16, 1) wenn datum richtig ist
Sheets(1).Cells(Geschrieben, 16).Value = Sheets(1).Cells(Sucheanfang, 26).Value
nein. Spalte 16,1 ist eh unklar.
Hier wird beim ersten Durchlauf in Cells(52,16) geschrieben, also P52.
Mir ist leider noch unklar was du eigentlich machen willst.
Gruß
Reinhard
HI
Dank dir schonmal für deine Antwort, aber ich bekomm es nicht
hin!
mein Code sieht jetzt so aus:
Private Sub grapDateRange()
Dim Zeilenanzahl As Integer
Dim Sucheanfang As Integer
Dim Geschrieben As Integer
’ ende der datumspalte ermitteln (spalte 27 = AA)
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 27).End(xlUp).Row
’ anfang der suche
Sucheanfang = 52
’ gefunden zaehler
Geschrieben = 0
’ solange wir noch datum werte haben in der spalte 27 = AA ,
suchen wir
’ p.s. es muss dann nicht sortierte datums werte geben in
spalte 27
Warum addierst du 52 zu der anzahl ?
oben werden die maximalen einträge in der spalte ermittelt, wenn da in Zeile 200 was steht, ist also der druchlauf von 1 bis 200 , da sucheanfang X (Zx) Cells(4, 7).Value And
Cells(Sucheanfang, 27).Value
Ot uppsala, Verwechslung
ich habe dein Ausgangsposting gelesen und bewundere Holger daß
er da in etwa erkannt hat was du eigentlich willst.
wer ist Holger ?
Hallo Rakon,
naja, Echo (On), kam halt irgendwie durcheinander *gg*
Gruß
Reinhard
hi sorry vegessen den downloadlink zu posten für die Tabelle
http://rapidshare.com/files/409396714/PLDM_DATA_COPY…
danke dir
hi sorry vegessen den downloadlink zu posten für die Tabelle
http://rapidshare.com/files/409396714/PLDM_DATA_COPY…
danke dir
nein +52 ist natürlich falsch
Also ich habe es jetzt mal so abgeändert aber nigs happens 
Private Sub grapDateRange()
Dim Zeilenanzahl As Integer
Dim Sucheanfang As Integer
Dim Geschrieben As Integer
’ ende der datumspalte ermitteln (spalte 27 = AA)
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 27).End(xlUp).Row
’ anfang der suche
Sucheanfang = 1
’ gefunden zaehler
Geschrieben = 0
’ solange wir noch datum werte haben in der spalte 27 = AA , suchen wir
’ p.s. es muss dann nicht sortierte datums werte geben in spalte 27
’ geht auch mit unsortierten
Do While Sucheanfang X (Zx) Cells(7, 4).Value And Cells(Sucheanfang, 27).Value
hi sorry vegessen den downloadlink zu posten für die Tabelle
http://rapidshare.com/files/409396714/PLDM_DATA_COPY…
Hallo Lotze,
äh, der Link klappt nicht, file not found.
Gruß
Reinhard
wurde bestimmt gelöscht von rs