Ergebnis 1 bis 2 von 2

Thema: Hilfe ich bekomme mein Makro mit VBA nicht zum laufen :( (Office 2016)

  1. #1
    Office-Hilfe.com - Neuling
    Registriert seit
    21.08.2019
    Beiträge
    1

    Hilfe ich bekomme mein Makro mit VBA nicht zum laufen :(

    Hallo,
    ich bin noch ein relativer Neuling mit VBA und habe das folgende Problem:

    Ich habe eine relativ simple Tabelle erstellt (Name = Eingabe)
    In einer zweiten Tabelle (Name = Sortiert) soll die erste Tabelle kopiert werden und bei Eingabe in die Tabelle (Eingabe) automatisch nach Alphabet sortiert werden.

    Das Kopieren habe ich über eine simple "Wenn-Formel" gelöst .. das funktioniert einwandfrei - das Sortieren klappt nur wenn ich die Eingaben in der zweiten Tabelle tätige ... leider bekomme ich den Bezug zwischen den beiden Tabellen nicht zum laufen und die Sortierung wird im unterem Bereich der Tabelle durchgeführt
    Eine Sortierung von Z-A wäre ggf. auch kein Problem


    Der Tabellenbereich ist A2:H2000

    Die bisherigen VBA - Eingabe ist


    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1:H2000")) Is Nothing Then
    Range("A1:H2000").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, _
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom
    Range("A2").Select

    End If

    End Sub

    Kann mir hier ein toller freundlicher Mensch helfen?

    Vielen Dank

    Gruß Paddel

  2. #2
    Office-Hilfe.com - Legende
    Registriert seit
    26.08.2009
    Ort
    Bergstadt Freiberg/Sa.
    Beiträge
    2.833
    Hi,

    versuche es mal so (ungetestet):

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Application.Intersect(Target, Range("A1:H2000")) Is Nothing Then
            With Worksheets("Sortiert")
                .Range("A1").CurrentRegion.Sort Key1:=.Range("A2"), Order1:=xlAscending, _
                    Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
                    Orientation:=xlTopToBottom
            End With
        End If
    End Sub
    Ich nehme an, die Tabelle hat auch eine Überschrift, da du ab A2 sortierst? Dann solltest du im Code auch angeben, dass eine Übershrift vorhanden ist - also Header:=xlYes anstelle Header:=xlGuess



    Bis später,
    Karin
    Standard: Win 10, Office 2016
    Bei Bedarf auch Excel 97 - 2013

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •  
Excel Ticker - News, Tipps und Tricks zu Microsoft Excel | SMS kostenlos versenden | Forenuser - Die Foren Findmaschine