Clever-Excel-Forum › Office-Anwendungen › Excel v
Mit "Range" in Celle "A2" springen und bis zur letzten gefüllten Zelle markieren

Baumstrukturmodus
Mit "Range" in Celle "A2" springen und bis zur letzten gefüllten Zelle markieren
DiBr Offline
CEF Einsteiger
*
Registriert seit: 08.01.2023
Version(en): 365
#1
08.01.2023, 11:42
Hallo zusammen,

ich bin dabei mir eine größere Musiksammlung zusammenzustellen. Über ein Tag-Programm, lese ich die Tags aus  und exportiere diese in eine CSV-Datei.
Diese rufe ich auf und formatiere Sie. Muß einfügen, dass ich mich gerade Anfange in VBA einzuarbeiten. Da dies immer die gleichen Vorggänge sind habe ich einen Makro aufgezeichnet wie fogt:

Sub InterpretenCsvOrdnen()
'
' InterpretenCsvOrdnen Makro
' Sortiert und formatiert den Inhalt der CSV-Datei
'

'
    Range("A1").Select
    ActiveCell.SpecialCells(xlLastCell).Select
    'Range("A49").Select
    'Selection.ClearContents
    Range("A1,B1,C1,D1,E1,F1,G1,H1").Select
    Range("H1").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Worksheets(1).Sort.SortFields.Clear
    Worksheets(1).Sort.SortFields.Add2 _
        Key:=Range("A2:A49"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    Worksheets(1).Sort.SortFields.Add2 _
        Key:=Range("B2:B49"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With Worksheets(1).Sort
        .SetRange Range("A1:H49")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A2").Select
End Sub


Wenn nun mehr als 49 Zeilen vorhanden sind funktioniert die Sortierung nur teilweise.
Wie kann ich die Anweisung

Key:=Range("B2:B49"), SortOn:=xlSortOnValues, Order:=xlAscending, _

        DataOption:=xlSortNormal

so anpassen, dass Excel den Bereich von "B2" bis zur letzten gefüllten Zellen in der Spalte markiert und nicht bei "B49" stoppt.
Suchen
Antworten Top
HubertK Abwesend
Fängt an zu gehen
Registriert seit: 03.12.2017
Version(en): 365
#2
08.01.2023, 12:00
Hei,

stell doch mal deine Datei ein. Aufgezeichnete Makros sind nur sehr bedingt einsetzbar.
Hoffe geholfen zu haben
Hubert
Suchen
Antworten Top
DiBr Offline
CEF Einsteiger
ThreadStarter
*
Registriert seit: 08.01.2023
Version(en): 365
#3
08.01.2023, 12:08
Hallo,

habe dir eine CSV-Da
.csv   Louis_Armstrong-2023_01_02.csv (Größe: 31,46 KB / Downloads: 2)
.csv   Louis_Armstrong-2023_01_02.csv (Größe: 31,46 KB / Downloads: 2) tei angehängt
Suchen
Antworten Top
Elex Offline
Benutzer
Registriert seit: 16.08.2017
Version(en): 2007 / 2010 / Web
#4
08.01.2023, 12:11
Hi

Für lernende.
https://blog.coupler.io/excel-vba-range/

Schau mal unter "Dynamic range example"

Gruß Elex
Suchen
Antworten Top
schauan Offline
Einer von hier
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
#5
08.01.2023, 13:31
Hallöchen,

und schaue auch mal zum Thema mp3 bei uns:
Excel-MP3-Lister-Player-Playlist
und
Excel-MP3-Tag-listen-und-bearbeiten-WMA-listen
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Homepage Suchen
Antworten Top
NobX Offline
Benutzer
Registriert seit: 03.04.2020
Version(en): Office 365 und 2010
#6
09.01.2023, 16:43
Hallo,

zu Deiner speziellen Frage bezüglich der letzten genutzten Zeile in Spalte B, - nimm einfach eine Variable, - z. B.:

Code:
Dim lngLetzte As Long 'dies gehört normalerweise an den Anfagn Deines Codes bevor Du mit Range..... beginnst

lngLetzte = Tabelle1.Cells(Rows.Count, 2).End(xlUp).Row 'ermittelt Dir die letzte gefüllte Zeile in Spalte "B" / Tabelle1 ggf. anpassen
.
.
.
Code:
Key:=Range("B" & 2 & ":" & "B" & lngLetzte), SortOn:=xlSortOnValues, Order:=xlAscending, _
Code:
        DataOption:=xlSortNormal


In diesem Fall wird Dir die Sortierung bis zur jeweils letzten Zeile in Spalte "B" vorgenommen.

Grüße
NobX
Suchen
Antworten Top
Gast 123 Offline
Benutzer
Registriert seit: 12.03.2016
Version(en): Excel 2003/ 2016
#7
09.01.2023, 18:52
Hallo



Zitat:Key:=Range("B" & 2 & ":" & "B" & lngLetzte)

kann man auch so schreiben:      Key:=Range("B2:B" & lngLetzte)

und bitte NICHT vergessen         .SetRange Range("A1:H" & lngLetzte)

mfg Gast 123
[-] Folgende(r) 1 Nutzer sagt Danke an Gast 123 für diesen Beitrag:
  • NobX
Suchen
Antworten Top
snb Offline
Benutzer
Registriert seit: 29.09.2015
Version(en): 2030,5
#8
10.01.2023, 10:43
Verwende dynamische Methoden wie usedrange oder currentregion.
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Homepage Suchen
Antworten Top
DiBr Offline
CEF Einsteiger
ThreadStarter
*
Registriert seit: 08.01.2023
Version(en): 365
#9
10.01.2023, 15:13
Danke euch. Werde es der Reihe anpassen und ausprobieren. Geb euch Bescheid ob funkt.
Suchen
Antworten Top
DiBr Offline
CEF Einsteiger
ThreadStarter
*
Registriert seit: 08.01.2023
Version(en): 365
#10
10.01.2023, 16:01 (Dieser Beitrag wurde zuletzt bearbeitet: 11.01.2023, 07:09 von WillWissen. Bearbeitungsgrund: Codetags gesetzt )
Habe nun folgenden Code erstellt:

Code:
Sub ArbeitsmappeOrdnenOriginalTest()



Dim lngLetzte As Long

lngLetzte = Tabelle1.Cells(Rows.Count, 2).End(xlUp).Row



    ActiveWorkbook.Worksheets(1).Sort.SortFields. _

        Clear

    ActiveWorkbook.Worksheets(1).Sort.SortFields. _

        Add2 Key:=Range("A" & 2 & ":" & "A" & lngLetzte), SortOn:=xlSortOnValues, Order:=xlAscending, _

        DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets(1).Sort.SortFields. _

        Add2 Key:=Range("B" & 2 & ":" & "B" & lngLetzte), SortOn:=xlSortOnValues, Order:=xlAscending, _

        DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets(1).Sort.SortFields. _

        Add2 Key:=Range("C" & 2 & ":" & "C" & lngLetzte), SortOn:=xlSortOnValues, Order:=xlAscending, _

        DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets(1).Sort

        .SetRange Range("A1:H" & lngLetzte)

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Rows("2:2").Select

    Selection.Delete Shift:=xlUp

    Range("A1,B1,C1,D1,E1,F1,G1,H1").Select

    Range("H1").Activate

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlMedium

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlMedium

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlMedium

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlMedium

    End With

    Selection.Borders(xlInsideVertical).LineStyle = xlNone

    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

    With Selection.Interior

        .Pattern = xlSolid

        .PatternColorIndex = xlAutomatic

        .Color = 65535

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

    Selection.Font.Bold = True

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

    Columns("A:A").EntireColumn.AutoFit

    Columns("B:B").ColumnWidth = 25.89

    Columns("C:C").EntireColumn.AutoFit

    Columns("D:D").ColumnWidth = 10.67

    Columns("D:D").EntireColumn.AutoFit

    Columns("E:E").EntireColumn.AutoFit

    Columns("F:F").EntireColumn.AutoFit

    Columns("G:G").EntireColumn.AutoFit

    Columns("H:H").EntireColumn.AutoFit

End Sub






Er formatiert die Zellen A1 :H1. Das passt aber die Sortiereung funkt nicht.
Suchen
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste