Zeile mit aktuellem Datum auslesen

Hallo Excel-Gemeinde!
Wie kann ich bei untenstehendem VBA-Code angeben, dass von der B.xls die Spalte AA jener Zeile A ausgelesen wird, welche dem aktuellem Systemdatum entspricht (Spalte A enthält Datumswerte, Spalte AA Beträge).
Das müsste irgendwie mit "Application.Match(CLng(Date)" funktionieren ? ...
Betroffen ist die Zeile: "Set rLetzte = Cells(Rows.Count, "AA")"
Option Explicit


Sub TestLeseTxT()
Dim sFormel As String, sPfad As String
Dim rLetzte As Range
Dim WertAusTxT, WertAusExcel
sPfad = "C:\Dokumente und Einstellungen\User\Desktop\test.txt"
If sPfad  "Falsch" Then
'letzte Zelle in AA
Set rLetzte = Cells(Rows.Count, "AA")
'Pfad, Dateinamen und Tabellennamen anpassen
sFormel = "'C:\Dokumente und Einstellungen\User\Desktop\[B.xls]Tabelle1'!" & rLetzte.Address(,  _
_
_
, xlR1C1)
WertAusExcel = LeseZeile1(CStr(sPfad))
WertAusTxT = ExecuteExcel4Macro(sFormel)
If IsNumeric(WertAusTxT) And IsNumeric(WertAusExcel) Then
MsgBox WertAusExcel * Exp(WertAusTxT), vbInformation, "Ausgabewert"
Else
MsgBox "Die Daten konnten nicht berechnet werden!"
End If
End If
End Sub


Function LeseZeile1(strPfad As String) As Double
Dim sLine As String
Dim F As Integer
F = FreeFile
Open strPfad For Input As #F
Line Input #F, sLine
Close #F
sLine = Replace(sLine, " ", vbTab)
If InStr(sLine, vbTab) > 0 Then
sLine = Right$(sLine, Len(sLine) - InStr(sLine, vbTab))
End If
If IsNumeric(sLine) Then
LeseZeile1 = CDbl(sLine)
End If
End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim Erg application.screenupdating = false Workbooks.Open ("C:\DeinPfad\DeineDatei.xls", ReadOnly:=True) with acitveworkbook Erg = .Sheets("DeinSheet").Cells(.Rows.count,1).end(xlup).value .saved = True .close end with application.screenupdating = true Msgbox Erg

Hi
dann lass mal die Klammern in der Zeile mit dem Workbook weg, dh nur Workbooks.Open "C:...
wennd du die letzte Zeile der Spalte AA auslesen willst, musst du halt den Code entsprechend abändern


Erg = .Sheets("DeinSheet").Cells(.Rows.count,27).end(xlup).value

aber wenn du mit Makros arbeiten willst, solltest du zu sowas schon ohne Hilfe in der Lage sein.
schließlich musst du den Code auch mal selbst ändern und warten können, auch ohne die Hilfe des Forums.
deinen weitern Wunsch würde ich sicherlich erfüllen können, wenn ich genauer verstehen würde, was du erreichen willst. Aber mit deiner dürftigen Beschreibung und ohne konkretes Beispiel geht das nicht so einfach.
Gruß, Daniel

Sub check_Val() Dim lastRow As Long Application.ScreenUpdating = False Workbooks.Open ("C:\Dokumente und Einstellungen\User\Desktop\B.xls") lastRow = Worksheets("Go").Cells(Rows.Count, 27).End(xlUp).Row If Cells(lastRow, 1) = Date Then MsgBox "Der Wert lautet: " & Range("AA" & lastRow) Else MsgBox "Der letze eintrag ist nicht von heute" End If Workbooks.Close Application.ScreenUpdating = False End Sub

Sub TestLeseTxT() Dim action As Double Dim sFormel As String, sPfad As String Dim rLetzte As Range Dim WertAusTxT, WertAusExcel As Double sPfad = "C:\Dokumente und Einstellungen\User\Desktop\test.txt" 'letzte Zelle in AA Set rLetzte = Cells(Rows.Count, "AA") 'Pfad, Dateinamen und Tabellennamen anpassen sFormel = "'C:\Dokumente und Einstellungen\User\Desktop\[B.xls]Go'!" & rLetzte.Address(, , _ xlR1C1) WertAusExcel = LeseZeile1(CStr(sPfad)) WertAusTxT = ExecuteExcel4Macro(sFormel) If IsNumeric(WertAusTxT) And IsNumeric(WertAusExcel) Then MsgBox WertAusExcel * Exp(WertAusTxT), vbInformation, "Ausgabewert" Else MsgBox "Die Daten konnten nicht berechnet werden!" End If End Sub

Function LeseZeile1(strPfad As String) As Double Dim sLine As String Dim F As Integer F = FreeFile Open strPfad For Input As #F Line Input #F, sLine Close #F sLine = Replace(sLine, " ", vbTab) If InStr(sLine, vbTab) > 0 Then sLine = Right$(sLine, Len(sLine) - InStr(sLine, vbTab)) End If If IsNumeric(sLine) Then LeseZeile1 = CDbl(sLine) End If End Function

Beliebteste Forumthreads (12 Monate)

Zeile mit aktuellem Datum auslesen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile mit aktuellem Datum auslesen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread