Hallo Lars.
Heutzutage gibt es Cloud-Speicher überall. Die meisten haben das sogar ohne es zu wissen - OneDrive (OneDrive Public Link - Anleitung).
Das Argument "Datei ist zu groß" zieht/zählt da also schon lange nicht mehr.
Zum Nachvollziehen reicht außerdem auch schon eine Version mit reduzierten Datenumgang - solange es das Datenformat/-layout vollständig abbildet.
Um in Excel z.B. in einer Spalte nach etwas zu suchen:
Option Explicit
Sub Test()
Dim rngResult As Excel.Range
Dim strWhat As String
strWhat = "A1003"
'suche in im Tabellenblatt "Tabelle1", in Spalte B
' nach dem Ausdruck "A1003" (xlWhole = gesamter Zelleninhalt)
Set rngResult = Worksheets("Tabelle1").Columns("B").Find( _
What:=strWhat, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
MatchCase:=False)
If rngResult Is Nothing Then
Call MsgBox("Es wurde nichts gefunden.", vbExclamation, "Suche nach '" & strWhat & "'")
Else
Call MsgBox("Fund in Zelle: " & rngResult.Address, vbInformation, "Suche nach '" & strWhat & "'")
With rngResult.Worksheet
Debug.Print "Spalte[Pruefnummer]:"; Tab(4); "'"; rngResult.Value; "'"
'Werte aus anderen Spalten, gleiche Zeile wie rngResult
Debug.Print "Spalte[Gerät]:"; Tab(4); "'"; .Cells(rngResult.Row, "D").Value; "'"
Debug.Print "Spalte[Kategorie]:"; Tab(4); "'"; .Cells(rngResult.Row, "F").Value; "'"
Debug.Print "Spalte[Nennspannung]: "; Tab(4); "'"; .Cells(rngResult.Row, "H").Value; "'"
End With
End If
End Sub
|