Hallo Forum und Excelfreunde,
Vorsichtshalber habe ich meinen Eintrag ein zweites Mal geschrieben.
ich lege jetzt mein Makro bei da es schwierig ist meine Problematik zu erklären, habe auf meine Anfrage viele Antworten erhalten und bedanke mich auch sehr herzlich dafür, mein Problem konnte ich aber noch nicht lösen.
In meinem Makro sind 2x eine Range angegeben (Range("A8:I2500"), diese möchte ich aber variabel gestalten das heißt die Markierungen sollten sich der Datenbankgröße anpassen. Alles andere im Makro funktioniert einwandfrei. Bitte um Hilfe wo sonst wenn nicht bei euch Spezialisten.
Range("A9").Select
Sheets("Datensätze").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Kunbonus.TXT", _
Destination:=Range("A9"))
.Name = "KUNBONUS"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 9, 1, 1, 1, 9, 1, 1, 9, 1, 9, 9, 9, 1, 9, 9, 9)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll ToRight:=3
Range("H9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("I9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.ClearContents
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]
ActiveSheet.UsedRange
Selection.FillDown
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A8").Select
Application.CutCopyMode = False
Range("A8:I2500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("A1:I3"), CopyToRange:=Range("R8"), Unique:=False
ActiveWindow.SmallScroll ToRight:=0
Columns("A:Q").Select
Selection.Delete Shift:=xlToLeft
Range("A8").Select
Selection.AutoFilter
Columns("A:I").Select
Selection.Columns.AutoFit
Range("A8").Select
Range("A8:I2500").Sort Key1:=Range("I9"), Order1:=xlDescending, Key2:= _
Range("H9"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Sheets("automatisierte Befehle").Select
End Sub