Option Compare Database
Option Explicit
Sub CreditorUpdate(strDatei As String, ws As Excel.Worksheet)
Dim Buchung() As Variant
Dim i As Integer
Buchung = Range("J2", Range("J1").End(xlDown))
For i = LBound(Buchung, 1) To UBound(Buchung, 1)
Buchung(i, 1) = ReplaceCreditor(Buchung(i, 1))
Next i
ws.Range("J2").Resize(UBound(Buchung, 1), 1) = Buchung
End Sub
Sub DeleteBlanks(strDatei As String, ws As Excel.Worksheet)
Dim Buchung() As Variant
Dim i As Integer
Buchung = Range("J2", Range("J1").End(xlDown))
For i = LBound(Buchung, 1) To UBound(Buchung, 1)
Buchung(i, 1) = KillBlanks(Buchung(i, 1))
Next i
ws.Range("J2").Resize(UBound(Buchung, 1), 1) = Buchung
End Sub
Sub ExtraLength(strDatei As String, ws As Excel.Worksheet)
Dim Umsatztext() As Variant
Dim i As Integer
Umsatztext = Range("J2", Range("J1").End(xlDown))
For i = LBound(Umsatztext, 1) To UBound(Umsatztext, 1)
Umsatztext(i, 1) = AddExtraSpaces(Umsatztext(i, 1))
Next i
ws.Range("J2").Resize(UBound(Umsatztext, 1), 1) = Umsatztext
End Sub
Sub FormatSpalteF(strDatei As String, ws As Excel.Worksheet)
ws.Columns("F").NumberFormat = "@"
End Sub
Sub FillEmptyCells(strDatei As String)
Dim Zeile As Integer
Dim ZeileMax As Long
With ActiveSheet
ZeileMax = .Cells(rows.Count, 1).End(xlUp).Row
For Zeile = 2 To ZeileMax
Select Case True '<<<<< Hier wird's wichtig>>>>>>
Case .Cells(Zeile, 10).Value = ""
.Cells(Zeile, 10).Value = .Cells(Zeile, 9).Value
End Select
Next Zeile
End With
End Sub