Hi Zusammen,
ich finde den Fehler nicht. Sieht von euch jemand was in der folgenden Zeile?
Um den Zusammenhang verstehen zu könne hier die ganze Prozedur.
Bin gespannt....
ich finde den Fehler nicht. Sieht von euch jemand was in der folgenden Zeile?
Um den Zusammenhang verstehen zu könne hier die ganze Prozedur.
Quellcode
- Sub AuswertungKostentabelle()
- '1 bezeichnet alle Variablen im Tabellenblatt KostenTool
- '2 bezeichnet alle Variablen im Tabellenblatt Kostentabelle
- Dim strInfuniqID1 As String
- Dim strInfuniqID2 As String
- Dim strMaschtyp1 As String
- Dim strMaschtyp2 As String
- Dim strVerkMaschtyp_ID1 As String
- Dim strVerkMaschtyp_ID2 As String
- Dim wsTab1 As Worksheet
- Dim wsTab2 As Worksheet
- Dim ws As Worksheet
- Dim lngAK As Long
- Dim lngLZ1 As Long
- Dim lngLZ2 As Long
- Dim i As Long
- Dim j As Long
- '#Spalte Auftragskosten suchen
- Dim lngSuchSp As Long 'Spalte der Auftragskosten in Kostentabelle
- Dim k As Long
- Dim intLS As Integer
- Dim strSuchTxt1 As String 'SuchText
- Set wsTab1 = ThisWorkbook.Worksheets("Kostentool - ICON")
- Set wsTab2 = ThisWorkbook.Worksheets("Kostentabelle")
- strSuchTxt1 = "Auftragskosten"
- intLS = wsTab2.Cells(5, Columns.Count).End(xlToLeft).Column ' Letzte Spalte in Zeile "5"
- For Each ws In ActiveWorkbook.Sheets
- If ws.Name = "Kostentabelle" Then
- For k = intLS To 1 Step -1 'Sucht Suchtext und gibt Spaltennummer wieder
- If wsTab2.Cells(5, k).Text = strSuchTxt1 Then
- lngSuchSp = k
- End If
- Next k
- lngLZ1 = wsTab1.Cells(Rows.Count, 2).End(xlUp).Row ' Letzte Zeile in Spalte "2"
- For i = 10 To lngLZ1
- strInfuniqID1 = wsTab1.Cells(i, 2)
- strMaschtyp1 = wsTab1.Cells(5, 2)
- strVerkMaschtyp_ID1 = strInfuniqID1 & strMaschtyp1
- lngLZ2 = wsTab2.Cells(Rows.Count, 6).End(xlUp).Row ' Letzte Zeile in Spalte "6"
- For j = 6 To lngLZ2
- strInfuniqID2 = wsTab2.Cells(j, 6)
- strMaschtyp2 = wsTab2.Cells(j, 8)
- strVerkMaschtyp_ID2 = strInfuniqID2 & strMaschtyp2
- If strVerkMaschtyp_ID1 = strVerkMaschtyp_ID2 Then
- wsTab2.Range(Cells(j, lngSuchSp), Cells(j, lngSuchSp + 8)).Copy Destination:=wsTab1.Range(Cells(i, 3), Cells(i, 3))
- ElseIf strInfuniqID1 = strInfuniqID2 Then
- wsTab2.Range(Cells(j, lngSuchSp), Cells(j, lngSuchSp + 8)).Copy Destination:=wsTab1.Range(Cells(i, 3), Cells(i, 3))
- Else
- MsgBox ("Folgende Infuniq ID wurde nicht gefunden: " & strInfuniqID1), vbInformation
- End If
- Next j
- Next i
- MsgBox ("Es ist keine Kostentabelle zum Prüfen vorhanden!"), vbInformation
- End If
- Next ws
- End Sub
Bin gespannt....