bonjour a tous ,
quelqu un pourrait il m aider avec ce code s il vous plait .il ya aucune mension d erreur lors de l excecution mais il n excecute pas ce qui est demander.merci
If Absender Like "SOCOS-C*;C/AOO*" Then
BereitsVorhanden = ExcelZeileBereitsVorhanden(originalArray, originalRowIndex, Dokument, Sachgebiet)
If BereitsVorhanden = True Then
Eintragen = False
End If
End If
If Eintragen = True Then
With Sheets("externe Dokumente")
freieZeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
Call ExcelZellenFormatieren(freieZeile)
.Cells(freieZeile, 1).Value = Cells(freieZeile - 1, 1) + 1
.Cells(freieZeile, 4).Value = "siehe gültiges Dokument"
.Cells(freieZeile, 11).Value = Eingangsdatum
.Cells(freieZeile, 11).NumberFormat = "dd.mm.yy"
.Cells(freieZeile, 18).Value = originalArray(originalRowIndex, 9)
.Cells(freieZeile, 18).Interior.Color = ExcelZellenfarbeHinweis(originalArray(originalRowIndex, 9))
.Cells(freieZeile, 19).Value = originalArray(originalRowIndex, 2)
.Cells(freieZeile, 20).Value = Sachgebiet
.Cells(freieZeile, 3).Value = originalArray(originalRowIndex, 7)
.Cells(freieZeile, 5).Value = originalArray(originalRowIndex, 1)
.Cells(freieZeile, 5).NumberFormat = "dd.mm.yy"
.Hyperlinks.Add Anchor:=Cells(freieZeile, 2), Address:=originalArray(originalRowIndex, 4), TextToDisplay:=Dokument
End With
If Not originalRowIndex = UBound(originalArray) Then
If originalArray(originalRowIndex, 2) Like "VAW" And originalArray(originalRowIndex + 1, 2) Like "AN*" _
Or originalArray(originalRowIndex, 2) Like "BBL" And originalArray(originalRowIndex + 1, 2) Like "AN*" Then
Call ExcelGruppieren(originalArray, originalRowIndex, freieZeile)
End If
End If
End If
Next originalRowIndex
End Sub
quelqu un pourrait il m aider avec ce code s il vous plait .il ya aucune mension d erreur lors de l excecution mais il n excecute pas ce qui est demander.merci
If Absender Like "SOCOS-C*;C/AOO*" Then
BereitsVorhanden = ExcelZeileBereitsVorhanden(originalArray, originalRowIndex, Dokument, Sachgebiet)
If BereitsVorhanden = True Then
Eintragen = False
End If
End If
If Eintragen = True Then
With Sheets("externe Dokumente")
freieZeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
Call ExcelZellenFormatieren(freieZeile)
.Cells(freieZeile, 1).Value = Cells(freieZeile - 1, 1) + 1
.Cells(freieZeile, 4).Value = "siehe gültiges Dokument"
.Cells(freieZeile, 11).Value = Eingangsdatum
.Cells(freieZeile, 11).NumberFormat = "dd.mm.yy"
.Cells(freieZeile, 18).Value = originalArray(originalRowIndex, 9)
.Cells(freieZeile, 18).Interior.Color = ExcelZellenfarbeHinweis(originalArray(originalRowIndex, 9))
.Cells(freieZeile, 19).Value = originalArray(originalRowIndex, 2)
.Cells(freieZeile, 20).Value = Sachgebiet
.Cells(freieZeile, 3).Value = originalArray(originalRowIndex, 7)
.Cells(freieZeile, 5).Value = originalArray(originalRowIndex, 1)
.Cells(freieZeile, 5).NumberFormat = "dd.mm.yy"
.Hyperlinks.Add Anchor:=Cells(freieZeile, 2), Address:=originalArray(originalRowIndex, 4), TextToDisplay:=Dokument
End With
If Not originalRowIndex = UBound(originalArray) Then
If originalArray(originalRowIndex, 2) Like "VAW" And originalArray(originalRowIndex + 1, 2) Like "AN*" _
Or originalArray(originalRowIndex, 2) Like "BBL" And originalArray(originalRowIndex + 1, 2) Like "AN*" Then
Call ExcelGruppieren(originalArray, originalRowIndex, freieZeile)
End If
End If
End If
Next originalRowIndex
End Sub