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....![:D](https://www.vb-paradise.de/wcf/images/smilies/biggrin.png)
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....
![:D](https://www.vb-paradise.de/wcf/images/smilies/biggrin.png)