VBA Lösung? max Erstelldatum von gleicher ArtNr

Forumthread: VBA Lösung? max Erstelldatum von gleicher ArtNr

13.02.2014 19:33:37

gleicher

Hallo,
ich möchte von gleichen Artikelnummern die zuletzt gespeicherte Artikelnr. mit der Fundzeile und dem Speicherdatum in einer Userform ausgeben.
Die Artikelnr. steht in Spalte A und das Speicherdatum in Spalte B.
Danke im voraus
Peter
https://www.herber.de/bbs/user/89273.xlsm

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Formellösung ? ...

13.02.2014 19:57:04

Matthias
AW: Danke -aber VBA wäre besser

13.02.2014 21:46:36

Peter
AW: Danke -aber VBA - im Einsatz

14.02.2014 09:38:00

firmus
hier meine VBA - Variante

14.02.2014 16:04:34

Matthias

Formellösung ? ...

13.02.2014 19:57:04

Matthias

Hallo
Das geht auch ohne VBA
Tabelle1

	A	B	C
1	ArtNr	Erstelldatum	Ergebnis:
2	12345	12.02.2014 18:34:03	13.02.2014 18:34:03
3	12346	11.02.2014 16:34:03
4	12347	08.01.2014 09:34:03
5	12348	24.01.2014 12:45:03
6	12349	25.01.2014 12:45:03
7	12345	13.02.2014 18:34:03
8	12350	07.01.2014 09:34:03
9	12351	08.01.2014 09:34:03
10	12345	09.01.2014 09:34:03
11	12352	10.01.2014 09:34:03
12	12345	30.12.2013 06:34:03
13	12353	31.12.2013 06:34:03
14	12346	13.01.2014 11:34:03
15	12345	14.01.2014 11:34:03
16	12347	15.01.2014 11:34:03
17	12348	13.02.2014 19:08:03

Formeln der Tabelle

Zelle	Formel
C2	{=MAX(WENN(A2:A17=12345;B2:B17))}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

AW: Danke -aber VBA wäre besser

13.02.2014 21:46:36

Peter

Danke Matthias.
Mich interessiert wie diese Sache über VBA gelöst wird.
Wird die Matrixformel in VBA eingebunden, oder irgendwie müßten
die Bereiche verglichen werden.
Deshalb würde ich gern mal sehen wie diese Abfrage über VBA
gelöst wird.
Peter

AW: Danke -aber VBA - im Einsatz

14.02.2014 09:38:00

firmus

Hi Peter,
habe etwas in dieser Art im Einsatz.
1. Lese ein Verzeichnis in ein Tabellenblatt
2. Markiere dabei die Zelle mit der aktuellsten Datei farbig.
Sheets(wsDateiAuswahl).Activate
Cells.Select
Selection.ClearContents
Range("A1").Select
If Dir(WPfad) = "" Then
MsgBox "Verzeichnis " & WPfad & " existiert NICHT - EXIT."
Exit Sub
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
'======================================================================================================
'File-Verzeichnis einlesen
'======================================================================================================
Dim MostCurrent As Long
file = WPfad + "*.*"
dateiname = Dir(file)
i = 1
Sheets(wsDateiAuswahl).Cells(i, 1).Value = "Pfad+Dateiname"
Sheets(wsDateiAuswahl).Cells(i, 2).Value = "Dateiname"
Sheets(wsDateiAuswahl).Cells(i, 3).Value = "Date Created"
Sheets(wsDateiAuswahl).Cells(i, 4).Value = "DateLastAccessed"
Sheets(wsDateiAuswahl).Cells(i, 5).Value = "DateLastModified"
LastLastModified = "19000101-000001"
Do While dateiname <> ""
'Funktionsaufrufe
i = i + 1
Set objFile = objFSO.GetFile(WPfad & dateiname)
Sheets(wsDateiAuswahl).Cells(i, 1).Value = objFile.Path
Sheets(wsDateiAuswahl).Cells(i, 2).Value = objFile.Name
Sheets(wsDateiAuswahl).Cells(i, 2).Interior.ColorIndex = xlNone
Sheets(wsDateiAuswahl).Cells(i, 3).Value = objFile.DateCreated
Sheets(wsDateiAuswahl).Cells(i, 4).Value = objFile.DateLastAccessed
Sheets(wsDateiAuswahl).Cells(i, 5).Value = objFile.DateLastModified
str = Format(objFile.DateLastModified, "YYYYMMDD-hhmmss")
If (str > LastLastModified) And UCase(Right(Sheets(wsDateiAuswahl).Cells(i, 2).Value, 3)) = "CSV" Then
MostCurrent = i 'aktuelleste CSV-Datei
LastLastModified = str
End If
dateiname = Dir()
Loop
Sheets(wsDateiAuswahl).Cells(MostCurrent, 2).Interior.ColorIndex = 6 'gelb (aktuellste File
Passt's?
Gruß
Firmus

hier meine VBA - Variante

14.02.2014 16:04:34

Matthias

Hallo
Private Sub UserForm_Initialize() Worksheets("Tabelle1").Range("A2:A2000").Interior.ColorIndex = -4142 End Sub

Sub Erstelldatum() Set ShZ = Worksheets("Tabelle1") ShZ.Range("B2,B7,B12,B15") = Now End Sub

Private Sub CommandButton1_Click() Dim MeinDatum Set ShZ = Worksheets("Tabelle1") Set Bereich = Worksheets("Tabelle1").Range("A2:A2000") Bereich.Interior.ColorIndex = -4142 sDaten = UserForm1.TextBox1.Text For Each Rng In Bereich If InStr(Rng.Value, sDaten) 0 Then Rng.Interior.Color = 65535 If Rng.Offset(, 1) > MeinDatum Then MeinDatum = Rng.Offset(, 1) TextBox2.Text = "Zeile " & Rng.Row TextBox3.Text = MeinDatum End If End If Next End Sub

https://www.herber.de/bbs/user/89289.xlsm
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

VBA Lösung? max Erstelldatum von gleicher ArtNr

Forumthread: VBA Lösung? max Erstelldatum von gleicher ArtNr

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread