Hallo und zwar mein problem ist. Nachdem ich Makro geführt habe kommt das ergebnis aber ich will auch in ergebnis das die 1. Zeile von aktive Tabelle auch in ergebnis auf der 1. zeile steht. Ich habe das gemacht aber es werden 2 tabellen geöffnet in tabelle nummer 1 kommt die Zeile von aktive Tabelle in 1. Zeile und bei tabelle 2 kommt das ergebnis die es rauswirft in 2. Zeile. Wie kanne ich die 2 Tabellen in eine Tabelle zusammen verknüfen. Hier ist mein vba code:
Sub Suche()
Dim ActiveSheet As Worksheet
Dim Bereich As Range
Dim Adresse As String
Dim Zeile As Integer
Dim Suche As String
Dim Zähler As Integer
Adresse = „“
Zähler = 1
Suche = InputBox(„Händler eingeben:“)
For Each ActiveSheet In Worksheets
Zeile = 0
If ActiveSheet.Name Worksheets.Add.Name Then
Set Bereich = ActiveSheet.Cells.Find( _
What:=Suche, _
LookAt:=xlPart, _
LookIn:=xlFormulas)
If Not Bereich Is Nothing Then
Adresse = Bereich.Address
If Zeile Bereich.Row Then
Worksheets(ActiveSheet.Name).Rows(1).Copy Destination:=Worksheets(Worksheets.Add.Name).Rows(1)
Worksheets(ActiveSheet.Name).Rows(Bereich.Row).Copy _
Destination:=Worksheets(Worksheets.Add.Name).Rows(2)
Zähler = Zähler + 1
Zeile = Bereich.Row
Do
Application.Goto Bereich, True
If Zeile Bereich.Row Then 'Hatten wir diese Zeile schon?
Worksheets(ActiveSheet.Name).Rows(1).Copy Destination:=Worksheets(Worksheets.Add.Name).Rows(1)
Worksheets(ActiveSheet.Name).Rows(Bereich.Row).Copy Destination:=Worksheets(Worksheets.Add.Name).Rows(2)
Zähler = Zähler + 1
Zeile = Bereich.Row
End If
Set Bereich = Cells.FindNext(After:=ActiveCell)
If Bereich.Address = Adresse Then
ActiveSheet.Range(„A1:F200000“).Select
Exit Do
End If
Loop
End If
End If
End If
Next ActiveSheet
If Adresse = „“ Then
MsgBox Prompt:=„Nichts gefunden“
End If
End Sub