Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortierung nach Speicherdatum

Forumthread: Sortierung nach Speicherdatum

Sortierung nach Speicherdatum
26.02.2008 20:30:00
holger
Hallo liebe Excelianer,
mit folgendem Code rufe ichmir ineine UF Bilder auf und kann sie mir ansehen. Mein Problemist das die Bilder nicht nach Seicherdatum sortiert sind. Kan mir da jemand helfen wie ich sie der reihe nach angezeigt bekomme?

Private Sub CommandButton1_Click()
Dim name As String
Dim vname As String
Dim bewbildpfad As String
name = WUND.TextBox11.Value
vname = WUND.TextBox12.Value
bewbildpfad = ThisWorkbook.Sheets("Daten").Range("J4")
cntBild = cntBild + 1
With Application.FileSearch
.LookIn = bewbildpfad
.filename = name & ", " & vname & "*.jpg"
.Execute
If .FoundFiles.Count > cntBild Then
Me.Image1.Picture = LoadPicture(.FoundFiles(cntBild))
Me.Label1 = (.FoundFiles(cntBild))
End If
End With
End Sub


Bin für jede Hilfe Dankbar
Gruß Holger

Anzeige

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortierung nach Speicherdatum
26.02.2008 20:52:00
Nepumuk
Hallo Holger,
schau dir mal die Hilfe zur Execute-Methode an.
Gruß
Nepumuk

AW: Sortierung nach Speicherdatum
26.02.2008 20:53:00
Original
Hi,
sieh dir die Execute-Methode in der Hilfe näher an, damit kannst du auch sortieren.
mfg Kurt

AW: Sortierung nach Speicherdatum
26.02.2008 21:14:01
holger
Hallo Ihr,
habe mal gesucht und den Code so geändert, kriege ihn aber nicht weiter umgebrochen.
.Execute(SortBy:=msoSortByLastModified)
Brauch da doch etwas hilfe
Gruß und Dank Holger

Anzeige
AW: Sortierung nach Speicherdatum
26.02.2008 21:18:46
Original
Hi,
das reicht so, was fehlt dir nun noch?
mfg Kurt

AW: Sortierung nach Speicherdatum
26.02.2008 21:19:00
holger
hi
wird rot makiert und sagt "erwartet ="
gruß holger

Ohne Klammern! o.T.
26.02.2008 21:25:00
Josef

Gruß Sepp



Anzeige
SUPI!DANKE! Hab noch ne Frage
26.02.2008 21:31:47
holger
Hallo
Ihr seit echt klasse....DANKE
Mit dem jetzigen Code werden die bilder auch super eingelesen, gibt es ne möglichkeit am Ende, quasi beim letzten Bild ne MsgBox erscheinen zu lassen,so von wegen "Letztes Bilde, erstes laden oder abbrechen"?
Gruß Holger

AW: SUPI!DANKE! Hab noch ne Frage
26.02.2008 22:02:47
holger
Hallo (hatte nich auf offen gesetzt)
Ihr seit echt klasse....DANKE
Mit dem jetzigen Code werden die bilder auch super eingelesen, gibt es ne möglichkeit am Ende, quasi beim letzten Bild ne MsgBox erscheinen zu lassen,so von wegen "Letztes Bilde, erstes laden oder abbrechen"?
Gruß Holger

Anzeige
AW: SUPI!DANKE! Hab noch ne Frage
26.02.2008 22:12:00
Josef
Hallo Holger,
ungetestet.
If .FoundFiles.Count >= cntBild Then
    Me.Image1.Picture = LoadPicture(.FoundFiles(cntBild))
    Me.Label1 = (.FoundFiles(cntBild))
Else
    If MsgBox("Letztes Bild wurde angezeigt!" & vbLf & vbLf & _
        "Soll das erste Bild angezeigt werden?", vbQuestion + vbYesNo, "Frage") = vbYes Then
        cntBild = 1
        Me.Image1.Picture = LoadPicture(.FoundFiles(cntBild))
        Me.Label1 = (.FoundFiles(cntBild))
    End If
End If


Gruß Sepp



Anzeige
AW: SUPI!DANKE! Hab noch ne Frage
26.02.2008 22:46:33
holger
Hallo,
habe den codewie folgt eingebaut

Private Sub CommandButton1_Click()
Dim name As String
Dim vname As String
Dim bewbildpfad As String
name = WUND.TextBox11.Value
vname = WUND.TextBox12.Value
bewbildpfad = ThisWorkbook.Sheets("Daten").Range("J4")
cntBild = cntBild + 1
With Application.FileSearch
.LookIn = bewbildpfad
.filename = name & ", " & vname & "*.jpg"
.Execute SortBy:=msoSortByLastModified
strFile = (.FoundFiles(cntBild))
strname = Trim$(Left(strFile, InStr(1, strFile, ",") - 1))
strFile = Trim$(Mid(strFile, InStr(1, strFile, ",") + 1))
strFile = Left(strFile, InStrRev(strFile, ".") - 1)
strVName = Trim$(Left(strFile, Len(strFile) - 10))
datDatum = CDate(Right(strFile, 10))
If .FoundFiles.Count > cntBild Then
Me.Image1.Picture = LoadPicture(.FoundFiles(cntBild))
Me.Label1 = datDatum
Else
If MsgBox("Letztes Bild wurde angezeigt!" & vbLf & vbLf & _
"Soll das erste Bild angezeigt werden?", vbQuestion + vbYesNo, "Frage") = vbYes Then
cntBild = 1
Me.Image1.Picture = LoadPicture(.FoundFiles(cntBild))
Me.Label1 = datDatum
End If
End If
End With
End Sub


bis zum letzten bild funtzt es auch, dann kommt die msgbox klicke ich auf nein und anschließend auf weiter kommt fehlermeldung, klicke ich auf ja wirddann erst das letzte bild angezeigt.
Wie kommt das?
gruß Holger

Anzeige
AW: SUPI!DANKE! Hab noch ne Frage
26.02.2008 22:56:00
Josef
Hallo Holger,
so sollte es klappen.
Private Sub CommandButton1_Click()
Dim name As String
Dim vname As String
Dim bewbildpfad As String

name = WUND.TextBox11.Value
vname = WUND.TextBox12.Value
bewbildpfad = ThisWorkbook.Sheets("Daten").Range("J4")
cntBild = cntBild + 1

With Application.FileSearch
    .LookIn = bewbildpfad
    .Filename = name & ", " & vname & "*.jpg"
    .Execute SortBy:=msoSortByLastModified
    strFile = (.FoundFiles(cntBild))
    
    strname = Trim$(Left(strFile, InStr(1, strFile, ",") - 1))
    strFile = Trim$(Mid(strFile, InStr(1, strFile, ",") + 1))
    strFile = Left(strFile, InStrRev(strFile, ".") - 1)
    strVName = Trim$(Left(strFile, Len(strFile) - 10))
    datDatum = CDate(Right(strFile, 10))
    
    If .FoundFiles.Count >= cntBild Then
        Me.Image1.Picture = LoadPicture(.FoundFiles(cntBild))
        Me.Label1 = datDatum
    Else
        If MsgBox("Letztes Bild wurde angezeigt!" & vbLf & vbLf & _
            "Soll das erste Bild angezeigt werden?", vbQuestion + vbYesNo, "Frage") = vbYes Then
            cntBild = 1
            Me.Image1.Picture = LoadPicture(.FoundFiles(cntBild))
            Me.Label1 = datDatum
        Else
            cntBild = 0
        End If
    End If
    
End With


Gruß Sepp



Anzeige
Fehler
26.02.2008 23:02:27
holger
hi josef,
bekomme hier die Fehlermeldung beim letzten bild index außerhalbdes gültigen bereiches
strFile = (.FoundFiles(cntBild))
gruß holger

so funtzt es
27.02.2008 00:31:00
holger
Hallo

Private Sub CommandButton1_Click()
On Error Resume Next
Dim name As String
Dim vname As String
Dim bewbildpfad As String
name = WUND.TextBox11.Value
vname = WUND.TextBox12.Value
bewbildpfad = ThisWorkbook.Sheets("Daten").Range("J4")
cntBild = cntBild + 1
With Application.FileSearch
.LookIn = bewbildpfad
.filename = name & ", " & vname & "*.jpg"
.Execute SortBy:=msoSortByLastModified
strFile = (.FoundFiles(cntBild))
strname = Trim$(Left(strFile, InStr(1, strFile, ",") - 1))
strFile = Trim$(Mid(strFile, InStr(1, strFile, ",") + 1))
strFile = Left(strFile, InStrRev(strFile, ".") - 1)
strVName = Trim$(Left(strFile, Len(strFile) - 10))
datDatum = CDate(Right(strFile, 10))
If .FoundFiles.Count >= cntBild Then
Me.Image1.Picture = LoadPicture(.FoundFiles(cntBild))
Me.Label1 = datDatum
Else
If MsgBox("Letztes Bild wurde angezeigt!" & vbLf & vbLf & _
"Soll das erste Bild angezeigt werden?", vbQuestion + vbYesNo, "Frage") = vbYes  _
Then
cntBild = 1
strFile = (.FoundFiles(cntBild))
strname = Trim$(Left(strFile, InStr(1, strFile, ",") - 1))
strFile = Trim$(Mid(strFile, InStr(1, strFile, ",") + 1))
strFile = Left(strFile, InStrRev(strFile, ".") - 1)
'strVName = Trim$(Left(strFile, Len(strFile) - 10))
datDatum = CDate(Right(strFile, 10))
Me.Image1.Picture = LoadPicture(.FoundFiles(cntBild))
Me.Label1 = datDatum
Else
cntBild = 0
End If
End If
End With
End Sub


habe denn fett markierten teil nochmals einfügen müssen um nach der abfrage durch die msgbox auch beim ersten bild das richtige datum wieder zuhaben. geht bestimmt auch einfacher (-:
danke und gruß
holger

Anzeige
Nochmals Frage: Zurück Button
27.02.2008 00:36:00
holger
Hallo,
habe nochmals ne Frage. Habe mir überlegt das es auch sinn macht den "View", mit einem "Zurück" Button auszustatten. ist das mit dem bestehenden code möglich oder welche möglichkeiten gibt es da ?
Danke und Gruß
Holger

AW: Nochmals Frage: Zurück Button
27.02.2008 21:42:00
Josef
Hallo Holger,
ein etwas anderer Ansatz.
https://www.herber.de/bbs/user/50244.xls

Gruß Sepp



Anzeige
AW: Nochmals Frage: Zurück Button
28.02.2008 20:53:00
holger
Hallo Josef, oder Rainer?
ICH BEDANKE MICH VIELMALS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
nach anpassen des codes funktioniert es wunderbar.Habe die Load funktion automatisiert und nu isset so wo ichs brauche!!!
DANKE
Gruß Holger

AW: Nochmals Frage: Zurück Button
28.02.2008 20:59:00
Josef
Hallo Holger,
wie kommst du auf Rainer?

Gruß Sepp



Anzeige
AW: Sortierung nach Speicherdatum
26.02.2008 21:19:00
holger
Hallo Sepp,
Ja hatte ich, aber ich lese den Bildnamen aus einer tabelle aus....MUSS MICH ERSTMAL RIESIG ENTSCHULDIGEN DAS ICH KEINE RÜCKMELDUNG GEGEBEN HABE....SORRY DAFÜR...mach ich sonst eigentlich nimmer....................
GRUß und nochmals SORRY (ist ihm echt peinlich)
holger
;

Forumthreads zu verwandten Themen

Datum aus Tag, Jahr, KW auslesen
Stephan

Gibt es eine Möglichkeit das Datum auszulesen aus:
Mo = Montag
Jahr=2008
KW=1
Besten Dank
Stephan
16.08.2008 22:23:00
Thread-ID: 1002369
7 Beiträge
Tabelle nach Anfangs und Enddatum filtern
Thomas

Hallo zusammen,
ich habe eine Frage, wie kann ich per VBA eine Tabelle nach Anfangs- und Enddatum filtern?
Vielen Dank im Voraus
Thomas
23.09.2008 09:50:53
Thread-ID: 1011635
5 Beiträge
Sortieren nach Datum
Carolina

Hallo alle zusammen,
will ne Tabelle nach Datum sortieren, leider sortiert er nur Daten zwischen dem 1.1.1900 und dem 31.12.2029
Kann man das irgendwie änden? Es stehen auch Daten aus dem 19. Jahrhundert drin.
Schöne Grüße aus Rom
Carolina
24.09.2008 09:37:02
Thread-ID: 1011947
2 Beiträge
Tabelle nach Anzahl sortieren
Pascal

Hallo,
wie kann ich eine Tablle nach der Anzahl der Wörter in einer Spalte sortieren?
Die Tabelle sieht etwa so aus:
Spalte1 | Spalte2 | Spalte 3
1 | der die | ...
2 | der | ...
3 | der die das | ...
und aussehen soll...
25.09.2008 11:50:39
Thread-ID: 1012284
6 Beiträge
Anzeige
Zeilen autom nach Werten d. Spalte C sortieren
obelix-xxl

Hallo,
ich bitte um Unterstützung bei der Lösung mittels Makro für nachfolgende Aufgabenstellung.
Im aktuellen Tabellenblatt "Raum 1" sind in der Spalte C einer jeden Zeile ganze Zahlen von 1 bis 30 eingetragen. Diese Zeilen sollen automatisch nach Eingabe des Wertes in Spalte C sortier...
02.10.2008 09:16:11
Thread-ID: 1013794
15 Beiträge
NAch Jahrgängen sortieren
Baywatch

HI Ecxelexperten,
habe eine kleine Frage, ich habe bis jetzt ein Proramm gehabt, indem Teilnehmer nach ihrem ALter sortert wurden, jetzt muß ich das aber umschreiben, da unser VErein nun nach Jahrgängen sortieren möchte, weiß jemand wie cih die existierende Formel umschreiben muß?
=WENN...
11.11.2008 12:53:00
Thread-ID: 1023520
3 Beiträge
Anzeige
Tabellen in Datei sortieren aber nach ...
walli

Guten Morgen,
ich habe eine große Datei mit vielen Tabellen.
Die Tabellen haben Namen z.B. Busch und Busch M also der gleiche Name
aber nach dem Namen Leerzeichen und ein großes M.
Ich möchte die Tabellen automatisch nach Namen sortieren + direkt
daneben jeweils die Tabe...
18.03.2009 09:17:28
Thread-ID: 1061282
3 Beiträge
Anzeige
Zellen nach Farbe sortieren
peter

Hallo,
ich habe in meiner Tabelle Zellen mit einer bedingten Formatierung eingefärbt. Kann ich die Zellen jetzt nach Farbe sortieren? In Excel 2007 geht das. Wie mache ich das in Excel 2003?
Gruß
Peter
27.03.2009 08:08:43
Thread-ID: 1064470
3 Beiträge
Automatische Eintragung nach Datumseingabe
Hans

Hallo
Ich möchte in einer Zelle ein Datum eingeben. In einem Informationsblock soll nun automatisch ein Kreuz oder eine Zahl angezeigt werdenob es sich um ein Wochentag/Wochenende/ Feiertag oder Ferientag ( NRW ) handelt.
Ist so etwas unkompliziert möglich. Ich wäre für Eure Hilfe sehr...
31.03.2009 19:01:20
Thread-ID: 1065740
5 Beiträge
Spalte nach Datum formatieren
Mandy

Hallo
ich möchte eine Spalte per Makro formatieren, dass das Ergebnis nachher so aussieht: 2009-04-01
(JJJJ-MM-TT)
Dazu habe ich mit dem Makrorecorder folgendes aufgezeichnet:
Worksheets("Test").Range("Q10:Q1111").Select
Selection.NumberFormat = "yyyy-mm-dd"
Nach dem A...
02.04.2009 10:14:21
Thread-ID: 1066221
4 Beiträge
Pivot-Tabelle Datumsfilter in Spalte
MBorn

Hallo,
in meiner Pivot-Tabelle gibt es in Spalte A Datumswerte.
Weiß jemand, wie es gelingt, Datumswerte von/bis (zwischen zwei Grenzdaten) zu filtern?
Soweit ich sehe bietet der Filter nur eine Variation, entweder größer als oder
kleiner als....
Noch schöner wäre es wenn ic...
08.05.2009 16:57:27
Thread-ID: 1073949
2 Beiträge
Geburtsdatum nach Tag und Monat sortieren
Susann

Hallo,
wie kann ich eine Spalte so sortieren, dass er mir das Geburtsdatum nicht auch nach dem Jahr sortiert, also so, dass ich z.B. sehen kann, dass Hans am 20.12.1980 geboren ist und Fritz am 20.12.1930 und beiden sozusagen gratulieren kann :-)
Vielen lieben Dank mal wieder für eure...
05.06.2009 14:45:45
Thread-ID: 1079470
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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