Hallo, ich habe folgendes Problem und hoffe, dass mir jemand weiter helfen kann :))
Wenn ich den Code Ausführe wird mir in der Zeile 30 die Fehlermeldung "Typ unverträglich" angezeigt.
Wenn ich aber arr ohne Long implementiere, dann wird die Zahl, die in der Quelltabelle ist, falsch angezeigt.(denke als Text)
Liebe Grüße Nicole
Wenn ich den Code Ausführe wird mir in der Zeile 30 die Fehlermeldung "Typ unverträglich" angezeigt.
Wenn ich aber arr ohne Long implementiere, dann wird die Zahl, die in der Quelltabelle ist, falsch angezeigt.(denke als Text)
Liebe Grüße Nicole
Visual Basic-Quellcode
- Dim angebot As Worksheet 'Ziel
- Dim objekt As Worksheet 'Quelle
- Set objekt = Worksheets("Kundenobjekte") 'Qeulle
- Set angebot = Worksheets("Angebotsliste") 'Ziel
- Dim zeileQuelle As Integer
- Dim zeileZiel As Integer
- Dim spalteQuelle As Integer
- Dim spalteZiel As Integer
- Dim arr As Long
- zeileQuelle = 7
- zeileZiel = 4
- spalteQuelle = 13
- spalteZiel = 2
- 'Angebotsliste druchlaufen
- While Not IsEmpty(angebot.Cells(zeileZiel, spalteZiel))
- 'Maschiene durchlaufen
- For zeileQuelle = 6 To objekt.Cells(Rows.Count, 1).End(xlUp).Row
- 'Wenn Verkaufsbeleg, Position Maschiene = Angebostliste
- If objekt.Cells(zeileQuelle, spalteQuelle).Value = angebot.Cells(zeileZiel, spalteZiel).Value And objekt.Cells(zeileQuelle, spalteQuelle + 1).Value = angebot.Cells(zeileZiel, spalteZiel + 1).Value Then
- arr = objekt.Cells(zeileQuelle, 15).Value
- While objekt.Cells(zeileQuelle, spalteQuelle).Value = objekt.Cells(zeileQuelle + 1, spalteQuelle).Value And objekt.Cells(zeileQuelle, spalteQuelle + 1).Value = objekt.Cells(zeileQuelle + 1, spalteQuelle + 1).Value
- arr = arr & vbCrLf & CStr(objekt.Cells(zeileQuelle + 1, 15).Value)
- zeileQuelle = zeileQuelle + 1
- Wend
- angebot.Cells(zeileZiel, 18).Value = arr
- Exit For
- End If
- Next zeileQuelle
- zeileQuelle = 1
- zeileZiel = zeileZiel + 1
- Wend
- End Sub