Makro anpassung zur auslesung eines Datums
29.07.2019 11:49:11
Robert
ich habe diesen Code mit dem sich ein Datum aus einer Tabelle auslesen lässt, allerdings muss diese anscheinend zwingend als Tabelle formatiert sein. Wie kann man den Code ändern sodass ich diesen auch auf unformatierte Tabellen anwenden kann ?
Option Explicit
Public Sub Datum_Suchen()
Dim rngFind As Range
Dim strDate As String
Dim a As Long, b As Long, c As Long
strDate = InputBox("Datum:", , CDate(Date))
If strDate = "" Then Exit Sub
a = Sheets("Spreads2").Cells(68, Columns.Count).End(xlToLeft).Column
Set rngFind = Sheets("Spreads2").Range(Cells(69, 1), Cells(69, a)).Find(strDate, LookIn:= _
xlFormulas)
If Not rngFind Is Nothing Then
b = InputBox("Wieviele Zeilen sollen kopiert werden?", "Zeilen", "1")
Sheets("Spreads2").Range(Cells(rngFind.Row, rngFind.Column), Cells(rngFind.Row + b, _
rngFind.Column)).Copy
If Sheets("Result").Range("A1") = "" Then
Sheets("Result").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Else
c = Sheets("Result").Cells(1, Columns.Count).End(xlToLeft).Column
Sheets("Result").Cells(1, c + 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
Else
MsgBox "Das Datum wurde nicht gefunden!"
End If
End Sub