EXCEL-Datei auslesen und in neues Tabellenblatt schreiben

Hallo bastla,

ich versuche auf Deine Fragen zu antworten:

"Woher kommt der Suchbegriff?“ ............wie in meinem Beispiel (02-01.30) steht der Suchbegriff im ersten Tabellenblatt woraus ich alle Information heraus lesen/schreiben möchte
"Wohin soll geschrieben werden - immer die gleiche Tabelle?“ ........geschrieben werden soll in ein anderes Tabellenblatt/Zieltabelle, nach jeder Suche sollte der Inhalt des Tabellenblattes/Zieltabelle gelöscht werden

Danke vorab und Gruß
Frank

Hallo bastla,

Okay, ich glaube jetzt zu verstehen.
Meiner Vorstellung nach wäre es besser wenn ich einen „SuchenButton“ drücke könnte um dort den „Suchbegriff" einzugeben. Es handelt sich nämlich nicht immer um den gleichen Suchbegriff.
Ich selber bestimme wonach gesucht werden soll......also "02-01-30" oder „Kisten" oder "02-05-Kisten“
Und das Ergebnis sollte so aussehen das sobald (wie in meinem Beispiel die „02-01-30“) der Wert aus der ersten „A“ Zelle und dann der Wert aus der zweiten „B“ Zelle in Tabellenform herausgeschrieben wird.

Der Suchbegriff 01-02-30 befindet sich in der ersten Zelle
01-02-30 mit dem Wert „abc“
in der zweiten Zeile taucht der Wert wieder auf aber in der Zelle
05-01-30 mit dem Wert „def“
usw.

Ja, das sehe ich auch so. Vor jeder Suche sollte die Zieltabelle gelöscht werden *smile...danke.

Danke und Gruß
Frank

Hallo bastla,

sorry aber ich habe von VB und macros ein nur sehr begrenztes Wissen (CCC-) habe aber folgenden "SuchButton" gefunden der auch funktioniert und mir jeden Wert anzeigt aber nicht in eine separate Tabelle schreibt.
Wie könnte man diese Suche mit Deiner vereinen?
Bin ich wirklich so dumm!!!
Für Deine Gedult mit mir vorab 1000 Dank
Gruß
Frank


Bitte siehe hier:
_________________________________________________________
Private Sub CommandButton1_Click()
Call SearchAllTables
End Sub


Dann im VBA-Editor über Einfügen ein "Modul" einfügen. In das Modul kommt
folgender Code:
Code:
Option Explicit
Global SSearch As String

Public Sub SearchAllTables()
Dim ws As Worksheet
Dim c
Dim firstAddress As String
Dim secAddress
Dim GFound As Boolean
Dim GWeiter As Boolean

GWeiter = False
GFound = False
anf:
SSearch = InputBox("Suchen nach:", "Search In All Tables", SSearch)

If SSearch = "" Then
End
End If
weiter:
For Each ws In Worksheets
'ws.Select
With ws.Cells
Set c = .Find(SSearch, LookIn:=xlValues, MatchCase:=False)
If Not c Is Nothing Then
GFound = True
ws.Select
c.Select
firstAddress = c.Address
If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbYes Then
Do
Set c = .FindNext(c)


secAddress = c.Address
If c.Address = firstAddress Then
Exit Do
End If
c.Select
If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbNo Then
GWeiter = True
GoTo ende
End If
Loop While Not c Is Nothing And secAddress <> firstAddress And c.Address <> firstAddress
Else
GWeiter = True
GoTo ende
End If
End If
End With
Next ws

ende:

If GFound = False Then
If MsgBox("Suchwert nicht gefunden ! Neue Suche ?", vbInformation + vbYesNo) = vbYes Then
GoTo anf:
End If
Else
If GWeiter = False Then
If MsgBox("Sie haben alle Tabellenblätter durchsucht ! Soll die Suche neu gestartet werden ?", vbInformation + vbYesNo) = vbYes Then
GoTo weiter
End If
End If
End If

End Sub

Hallo bastla,

ich habe mal zwei screenshot gemacht in der Hoffnung das sie hier angezeigt werden.

Danke und Gruß
Frank

Hallo bastla,

danke aber nun taucht hier ein anderer Fehler auf. Bitte siehe ...




Danke und Gruß
Frank

Guten morgen Mario,

Liebe Grüße an die Insel.....ich hoffe doch dass das Wetter gut ist und danke für den Tipp es hat funktioniert.
SUPER....aber *smile

nun habe ich ein anderes Problem beim herausschreiben der Werte passiert folgendes:
wenn ich nach dem Wert 05-01-34 suche wandelt Excel diesen und andere Werte in 12540 um. WIESO?

Danke und Gruß
Frank