Makro um suche erweitern
03.06.2009 19:32:01
Andrea
ich hab folgendes problem, ich hab mir ein makro gebastelt, welches mir eine zusammenfassung von wichtigen information aus allen tabellenblätter einer xls liefert.
jetzt aber brauche ich eine weitere information in meiner zusammenfassung und zwar soll das makro wieder alle tabellenblätter durchsuchen und in spalte a den wert info suchen und dann den entsprechenden wert aus spalte b in das deckblatt hinzufügen. bsp. info steht in spalte a in der zeile 23 dann benötige ich den wert aus spalte b zeile 23. kann mir jemand vielleicht dabei auf die sprünge helfen?
Sub Makro1()
Dim TabelleNr As String
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim letzteZeile As Integer
' Kopie und Einfügen der Daten in das Deckblatt
'Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wks2 = Worksheets("Deckblatt")
TabelleNr = InputBox("Bitte wählen Sie ein Tabellenblatt aus:")
On Error GoTo Fehler:
If Not TabelleNr = "*" Then
Set wks1 = Worksheets(TabelleNr)
letzteZeile = wks2.Cells(Rows.Count, 1).End(xlUp).Row
wks2.Cells(letzteZeile + 1, 1).Value = wks1.Name 'wks1.Range("AZ1"). _
Value
wks2.Cells(letzteZeile + 1, 3).Value = wks1.Range("B6").Value
wks2.Cells(letzteZeile + 1, 4).Value = wks1.Range("L6").Value
wks2.Cells(letzteZeile + 1, 5).Value = wks1.Range("G6").Value
wks2.Cells(letzteZeile + 1, 7).Value = wks1.Range("G5").Value
'wks2.Range("A9:G21").Sort Key1:=Range("A9"), Order1:=xlAscending, Header:=xlGuess, _
' OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Application.ScreenUpdating = True
Else
For Each wks In Worksheets
If wks.Name "Deckblatt" Then
letzteZeile = wks2.Cells(Rows.Count, 1).End(xlUp).Row
wks2.Cells(letzteZeile + 1, 1).Value = wks.Name 'wks.Range("AZ1"). _
Value
wks2.Cells(letzteZeile + 1, 3).Value = wks.Range("B6").Value
wks2.Cells(letzteZeile + 1, 4).Value = wks.Range("L6").Value
wks2.Cells(letzteZeile + 1, 5).Value = wks.Range("G6").Value
wks2.Cells(letzteZeile + 1, 7).Value = wks.Range("G5").Value
'wks2.Range("A9:G21").Sort Key1:=Range("A9"), Order1:=xlAscending, Header:= _
xlGuess, _
' OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Application.ScreenUpdating = True
End If
Next
End If
Fehler:
End Sub