Hallo Leute,
Ich muss für die Arbeit einen bereits vorhandenen Code umschreiben. Hänge dabei an folgendem Problem
Sub trad()
Call pdf("8A", 2)
End Sub
Sub retro()
Call pdf("8C", 2)
End Sub
Sub ecg()
Call pdf("7I", 6)
End Sub
Sub pdf(ByVal crit As String, ByVal sht As Integer)
Dim stat As Integer
Dim rngprint As Range
Dim splt As Long
Set wb1 = ActiveWorkbook
Application.ScreenUpdating = False
wb1.Sheets(5).Columns("A:AZ").EntireColumn.Hidden = False
wb1.Sheets(5).Columns("A:AZ").ClearFormats
wb1.Sheets(5).Columns("A:AZ").ClearContents
wb1.Sheets(5).AutoFilterMode = False
wb1.Sheets(sht).AutoFilterMode = False
wb1.Sheets(5).ResetAllPageBreaks
wb1.Sheets(sht).Cells.AutoFilter Field:=5, Criteria1:=crit & "*", Operator:=xlFilterValues
wb1.Sheets(sht).Cells.Copy
wb1.Sheets(5).Cells(1, 1).PasteSpecial xlPasteValues
wb1.Sheets(sht).AutoFilterMode = False
Ich habe in einer Excel eine Liste mit Buchstaben von AA-AZ (und noch andere, aber die sind jetzt nicht wichtig)
So wie der Code bisher geschrieben ist, wird wenn ich z.B. trad() aufrufe folgendes zugewiesen:
Criteria1 = 8A* (also ruft es alles von AA-AZ auf)
Ich möchte aber, dass das lediglich von 8AA - 8AE geht.
Gibt es hierfür einen einfachen Trick?
VIelen Dank im Voraus,
Benjamin
|