VBA (Excel) Listbox Column Header Beschriftung?

Hallo!

Ich möchte in VBA bei einer mehrspaltigen Listbox die Header der einzelnen
Columns beschriften. Die Daten bezieht die Listbox allerdings nicht aus einer
vorformatierten Tabelle (RowScoure) sondern übere eine weitere Instanz im Code.

Die Eigenschaften der Listbox definiere mit einer With Anweisung wie folgt:

With ListBox1

.ColumnCount = 3

.ColumnWidths = "40;300;200"

.ColumnHeads = True

.IntegralHeight = False

.TextColumn = 1

.BoundColumn = 2

End With

Bei der Beschriftung der Header komme ich nun einfach nicht weiter.

Weiß hier eventuell jemand wie man das realisieren könnte?

Vielen Dank im Voraus!

Mfg

1 Antwort

PWolff

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer

28.07.2022, 14:37

Die Antwort hierauf scheint zu sein: "Schönen Gruß von Microsoft, die lassen ausrichten: Ätschibätsch! Dieses sinnvolle Feature gönnen wir euch nicht!"

Jedenfalls nach den ersten beiden Treffern von https://www.google.com/search?q=vba+listbox+column+header

https://excelmacromastery.com/vba-listbox/#VBA_ListBox_Column_Headers

https://stackoverflow.com/questions/657498/how-to-add-headers-to-a-multicolumn-listbox-in-an-excel-userform-using-vba

Dort wird deshalb allen Ernstes empfohlen, ListBox.ColumnHeaders auf False zu setzen und Labels über die ListBox zu setzen.

Woher ich das weiß:Recherche

Ähnliche Fragen

In Excel Spaltenbreite mittel VBA Code?

Hallo, ich habe einen VBA Code wo ich Spalten aus einer Excel- Datei nach Word kopiere. Jetzt möchte ich den Spalten unterschiedliche Längen vorgeben.

Den Code zum kopieren ist folgender:

    With liO.Range
      .Columns.Hidden = True                'jetzt werden erst mal alle Spalten ausgeblendet
      .Columns(2).Hidden = False    'Nummer           'und hier die Spalten die du brauchst wieder eingeblendet
      .Columns(4).Hidden = False    'Name
      .Columns(5).Hidden = False    'Vorname
      .Columns(13).Hidden = False   'gen_bis
      .Columns(14).Hidden = False   'Gruppe
      .Columns(19).Hidden = False 'Krankenkasse
      .Columns(21).Hidden = False  'Bemerkung
      
       '.Columns("B:O").EntireColumn.AutoFit 'geht so nicht
      
    End With

Wie muss ich den Code veräandern/ergänzen um für jede Zelle eine individuelle länge der Zelle zu erhalten? Gruß

...zur Frage

Excel VBA Laufzeitfehler 13?

Hallo,

wie kann ich den o.g. Fehler lösen?

Was passiert:

Ich hab eine Userform und darin Listboxen

Die Listbox beginnt automatisch bei der Zahl 0

Wenn jedoch nur 1 listbox verändert wird, und die anderen nicht und auf 0 bleiben, dann erscheint der o.g. Fehler

Mein Code:

Private Sub CommandButton1_Click()

Range("C6").Value = Range("C6") - ListBox1.Value

Range("D6").Value = Range("D6") - ListBox2.Value

Range("F6").Value = Range("F6") + ListBox3.Value

Range("G6").Value = Range("G6") + ListBox4.Value

Range("C10").Value = Range("C10") + ListBox1

Range("C11").Value = Range("C11") + ListBox2

Dim n

For n = 0 To ListBox1.ListCount - 1

ListBox1.Selected(n) = True

Next n

Dim m

For m = 0 To ListBox2.ListCount - 1

ListBox2.Selected(m) = True

Next m

Dim b As Long

For b = 0 To ListBox3.ListCount - 1

ListBox3.Selected(b) = True

Next b

Dim c As Long

For c = 0 To ListBox4.ListCount - 1

ListBox4.Selected(c) = True

Next c

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub UserForm_Initialize()

'---

With ListBox1

ListBox1.List = Tabelle1.Range("C49:C59").Value

For n = 0 To ListBox1.ListCount - 1

ListBox1.Selected(n) = True

Next n

End With

'----

With ListBox2

ListBox2.List = Tabelle1.Range("C49:C59").Value

For m = 0 To ListBox2.ListCount - 1

ListBox2.Selected(m) = True

Next m

End With

'---

With ListBox3

ListBox3.List = Tabelle1.Range("C49:C59").Value

For b = 0 To ListBox3.ListCount - 1

ListBox3.Selected(b) = True

Next b

End With

'---

With ListBox4

ListBox4.List = Tabelle1.Range("C49:C59").Value

For c = 0 To ListBox4.ListCount - 1

ListBox4.Selected(c) = True

Next c

End With

End Sub

...zur Frage

VBA Problem mit ListIndex?

Hallo zsm

ich habe folgendes Problem: Ich habe etwas in der ListBox geändert. Nun möchte ich es in die Tabelle übertragen.

Wie kriege ich das hin?

Private Sub Speichern_Click()
    With Worksheets("Datensatz").Range("B:O")
    ListenIndex = Me.ListBox1.ListIndex
    Set rngCell = .Find(ListenIndex, LookIn:=xlValues, lookat:=xlWhole)
        If Not rngCell Is Nothing Then
            rngCell.Text = Me.ListBox1.Column(0, lngZeile)
            rngCell.Offset(0, 1).Text = Me.ListBox1.Column(1, lngZeile)
            rngCell.Offset(0, 2).Text = Me.ListBox1.Column(2, lngZeile)
            rngCell.Offset(0, 3).Text = Me.ListBox1.Column(3, lngZeile)
            rngCell.Offset(0, 4).Text = Me.ListBox1.Column(0, lngZeile)
            rngCell.Offset(0, 5).Text = Me.ListBox1.Column(1, lngZeile)
            rngCell.Offset(0, 6).Text = Me.ListBox1.Column(2, lngZeile)
            rngCell.Offset(0, 7).Text = Me.ListBox1.Column(3, lngZeile)
            rngCell.Offset(0, 8).Text = Me.ListBox1.Column(4, lngZeile)
            rngCell.Offset(0, 9).Text = Me.ListBox1.Column(5, lngZeile)
            rngCell.Offset(0, 10).Text = Me.ListBox1.Column(6, lngZeile)
            rngCell.Offset(0, 11).Text = Me.ListBox1.Column(7, lngZeile)
            rngCell.Offset(0, 12).Text = Me.ListBox1.Column(8, lngZeile)
            rngCell.Offset(0, 13).Text = Me.ListBox1.Column(9, lngZeile)
        End If
    End With
End Sub

...zur Frage

VBA-Code für Excel erweitern?

Hallo,

folgender Sachverhalt: In meiner Excel-Datei habe ich in Zelle A10 ein Datum stehen. In der Regel ist es der 01. Januar(Abweichungen möglich). In den Zellen B10-J10 stehen Daten. Nach betätigen der Enter-Taste soll in die Zelle A11 gesprungen werden. Dazu habe ich folgenden Code in einer Beispielmappe im Netz gefunden:

Sub EnterOnOff(Optional bolOn As Boolean)

If bolOn Then

Application.OnKey "{ENTER}", "NaechsteZeileEinblenden" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~", "NaechsteZeileEinblenden" 'EINGABETASTE

Else

Application.OnKey "{ENTER}" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~" 'EINGABETASTE

End If

End Sub

Private Sub NaechsteZeileEinblenden()

With ActiveCell.Offset(1).EntireRow

.Hidden = False

.Cells(1).Activate

End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target.Cells(1)

EnterOnOff .Column = 10 And .Row > 9

End With

End Sub

Das funktioniert auch soweit. Nun möchte ich gerne, das Excel mir nach betätigen der Enter-Taste das nächste Datum in Zelle A11. Entsprechendes gilt natürlich fortlaufend.

Hat jemand ne Idee oder gar ne Lösung für mich?

Gruß Chris

...zur Frage

Makro mit VBA in Excel zerschossen, brauche dringend Hilfe!?

Hallo zusammen,

vorab schonmal, nein ich habe hier absolut 0% Ahnung hiervon und brauche dringend Hilfe!

Ich habe auf der Arbeit bei einer wichtigen Excel Datei eine neue Spalte eingefügt, was dafür gesorgt hat, dass eine wichtige Spalte rechts davon weiter nach rechts verschoben wurde um eine Zelle.

In dieser Spalte wurden Enddatum eingetragen und diese wurden mit einem Makro über VBA Absteigend von jüngerem Datum oben, nach späteren Datum nach unten hin sortiert.

Nachdem ich die neue Spalte zugefügt habe, funktionierte eins nach dem anderen nicht mehr richtig und ich war so dumm zu versuchen das Makro minimal anzugleichen, sodass es funktioniert und habe es dann getestet.

Dadurch habe ich es nur schlimmer gemacht...

Zudem kann ich jetzt nicht mal mehr in der Tabelle scrollen, zumindest in diesem Reiter, in einem anderen Reiter unten, kann ich scrollen in der Datei.

Der Text in VBA Stand jetzt:

Sub Sortieren()

' Sortieren Makro

Rows("3:500").Select

Range("B3").Activate

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range( _

"H4:Hl34"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("Übersicht").Sort

.SetRange Range("A3:L500")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

ActiveWindow.SmallScroll Down:=3

ActiveSheet.Range("$A$3:$L$97").AutoFilter Field:=12, Criteria1:="="

ActiveWindow.SmallScroll Down:=-12

End Sub

...zur Frage

Status anzeige mit Excel VBA erstellen?

Hallo,

Ich baue eine Art Ticket System für Excel und ich wollte jetzt eigentlich auf der Start Ebene ne Anzeige erstellen wo man in die Anzahl an offenen Tickets sehen kann.

Also Anzahl Offener, in Beartung und eventuell noch geschlossenen Tickets anzeigt.

Funktionieren sollte es so in der Tabelle die man ausfüllt gibt es eine Spalte worin der Status vermerkt wird zum einen mit einer Farbe aber auch mit einem vor definierten Text wie beispiel "Abgeschlossen"

Ich dachte man kann doch bestimmt mit Excel VBA einen Code schreiben der in der Spalte einfach anzahl grüne Felder aufzählt und in der Home Startseite es dort als Gesamt summe anzeigt.

Ich hab leider kein Tutorial gefunden das meiste mach ich auch über Makro aufzeichner aber sowas aufzeichen kann man glaub ich garnicht.

Wäre interessant wenn mir jemand einen Vorlage Code schreiben könnte sodass ich auch mal davon lernen kann.

...zur Frage

VBA Programmierung - Automatischer Email versandt Probleme?

Hallo ich hoffe Ihr könnt mir helfen :/

Folgendes Problem: Wenn ich die Mail versende, öffnen sich für jede Zeile eine extra Email und leider auch nur jeweils ein Empfänger und einer in cc.

Was muss ich nun in der Programmierung hinzufügen, um nur eine Email geöffnet zu bekommen, mit mehreren Empfängern (Falls mehrere Kreuze gesetzt worden sind). Ich danke euch echt wenn Ihr mir helfen können :/

Ich habe mir die Bausteine aus dem Internet zusammengesetzt, bin daher kein Profi darin.

Programmtext:

Private Sub Send_Email()
   '-------------< Send_Email() >-------------
   Dim sTitle As String
   sTitle = "Test-HTML Email from Excel"
   '< HMTL holen >
   Dim sTemplate As String
   sTemplate = Sheets("ini_Vorlage").Shapes(1).TextFrame2.TextRange.Text
   '</ HMTL holen >
   '----< Send with Outlook >----
   Dim app_Outlook As Outlook.Application
   Set app_Outlook = New Outlook.Application
   '--< Email einstellen >--
   Dim objEmail As Outlook.MailItem
   Dim sEmail_Addresscc As String
   Dim sEmail_Address As String
   Dim iRow As Integer
   For iRow = 4 To 100
       If Cells(iRow, 21) = "x" Then
           '< get Email Address >
           'Column 2, B
           sEmail_Address = Cells(iRow, 19)
           sEmail_Addresscc = Cells(iRow, 20)
           '</ get Email Address >
           '< Fill Placeholders >
           Dim sHTML As String
           sHTML = Replace(sTemplate, "[@Name]", sEmail_Address)
           '</ Fill Placeholders >
           '--< Send Email >--
           Set objEmail = app_Outlook.CreateItem(olMailItem)
           objEmail.To = sEmail_Address
           objEmail.CC = sEmail_Addresscc
           objEmail.Subject = sTitle
           'objEmail.HTMLBody = sHTML 'use .HTMLBody for HTML
           objEmail.Body = sHTML      'and .body for pure Text
           objEmail.Display
           '--</ Send Email >--
       End If
   Next
   '< Abschluss >
   Set objEmail = Nothing
   Set app_Outlook = Nothing
   '</ Abschluss >
   MsgBox "Emails erstellt", vbInformation, "Fertig"
   '----</ Send with Outlook >----
   '-------------</ Send_Email() >-------------
End Sub

...zur Frage

Excel VBA Selection begrenzen?

Hallo zusammen.

Ich komme leider beim meinem Problem nicht alleine weiter.

In meiner Tabelle werden in Spalte 2 und Zeile 4 Zeichen angezeigt, sobald ein Bereich selektiert wird. Die Zeichen sollen sich allerdings nur auf die Range J7:OJ57 beschränken, auch wenn die Selektion über die Range hinausgeht.

Denn jetzt, wenn ich z.B. eine Spalte markiere, schreibt der Code mir alle Zeichen in jede Zeile der Spalte, was fatal ist.

Kann ein Profi kurz helfen? :)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("J6:OJ57")) Is Nothing Then
Dim cell As Range
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
  Application.EnableEvents = False
   Range("B6:B57").ClearContents
   Range("J4:OJ4").ClearContents
For Each cell In selection
  With cell
   Range(cell(.Row, 2), Cells(.Row, 2)) = ">>"
   Range(cell(4, .Column), Cells(4, .Column)) = "V"
  End With
Next
   Application.ScreenUpdating = True
   Application.EnableEvents = True
   Application.Calculation = xlCalculationAutomatic
End If
End Sub

...zur Frage

Maximale Pfadlänge in Windows und VBA umgehen?

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen?

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

...zur Frage

VBA Excel mit Eingabemaske anderes Excel Blatt bearbeiten?

Hallo, folgendes Problem: Habe eine Eingabemaske erstellt, die mir Zeilen ausgibst mit einem Suchfeld. Diese kann man dann ändern, löschen etc. und diese werden für ein Programm gebraucht. So, das Programm nimmt aber nur einbe Excel Liste mit anderem Format und nun muss ich mittels der Eingabemaske die andere Datei öffnen und dann soll die Maske über diese Datei arbeiten. Die Tabelle ist vom Aufbau her genau identisch. muss also nur den Befehl haben um das öffnen, bearbeiten, speichern und schließen. Also die andere Datei dann. Füge anbei mal den Code von dem Button 'Suchen' hinzu:

    Private Sub CommandButton2_Click()
    Workbooks.Open "C:\Users\SchuehlJ\Desktop\Excel\DB_Versand102x76.xls"
      Dim suchen As Excel.Range

  With Tabelle1
     
    Set suchen = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
     
    Set suchen = suchen.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
     
    If Not suchen Is Nothing Then

      TextBox2.Text = .Cells(suchen.Row, "B").Value
      TextBox3.Text = .Cells(suchen.Row, "C").Value
      TextBox4.Text = .Cells(suchen.Row, "D").Value
      TextBox5.Text = .Cells(suchen.Row, "E").Value
      ListBox1.AddItem .Cells(suchen.Row, "A").Value
      
      

    Else
    
          Call MsgBox("PN Nummer: " & "'" & TextBox1.Text & "' wurde nicht gefunden.")
          ListBox1.Clear
          TextBox1.Text = ""
          
        End If
    End With
    End Sub

Hoffe ihr könnt mir helfen,

LG Julian

...zur Frage

Sortieren in verschiedenen Tabellen?

Hallo zusammen,

ich habe momentan ein Problem, ich möchte, dass ich verschiedenen Tabellen auf einem Tabellenblatt habe.

Es soll jede Tabelle im Reiter "Kundengruppe" von A->Z (Aufsteigend) sortiert werden, ohne, dass das VBA direkt einen Zellenbezug herstellt, da die höhe und tiefe der Tabellen mal nach Anzahl der Eintragungen variieren kann.

Hier der Link zur Datei:

https://www.herber.de/bbs/user/147794.xlsm

Range(Selection, Selection.End(xlDown)).Select

ActiveWorkbook.Worksheets("OP").AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.Worksheets("OP").AutoFilter.Sort.SortFields.Add2 Key:=Range( _

"Q16:Q18"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("OP").AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Das ist der aktuelle Code, der Bereich mit <b>Range( _"Q17:Q18")</b> soll im besten fall weg, da das der punkt ist, wo die höhe der Tabelle variieren kann..

Der Range(Selection, Selection.End(xlDown)).Select befehl, sucht ja in dem fall schon den richtigen anfang, und ab da soll dann der Filter gesetzt werden und gefiltert werden

Ich hoffe man versteht es einigermaßen...

Danke & LG

Chris

...zur Frage

Hilfe bei Excel Funktion?

hey Leute!

Ich habe leider ein kleines Problem mit dieser Excel Funktion. Diese Funktion berechnet die Quersumme wenn eine zahl ganzzahlig, gerade und numerisch ist, wenn dieses nicht zutrifft ist die Quersumme 0.

Mein Problem ist, dass bei der Quersumme immer 0 raus kommt und ich den Fehler einfach nicht finden kann.

...zur Frage

Excel VBA: Bild einfügen, in Variable speichern, Größe ändern, ausrichten?

Ich habe jetzt unzähle Varianten durch. Ich baue ein Bestellsystem für zwei verschieden Shops. Heißt, bei jedem eingetragenen Artikel in die Bestellliste soll am Ende der Listen-Zeile das jeweilige Logo eingefügt werden, kleiner als das Originalbild, kleiner als die Zeile selbst, für die Übersichtlichkeit in der Liste, mittig ausgerichtet.

Ich habe von Pictures.Insert zu Shapes.AddPicture gewechselt, da ich gelesen habe, dass dies die korrektere Form sei. Jetzt bekomme ich eine Fehlermeldung bei der Festlegung eines Rahmens.
Kann mir jemand meine Fehler aufzeigen? Folgende Fragen stellen sich mir:
- Welchen Variablen-Typ brauche ich für ein eingefügtes Bild?
- Wie kann ich diese Variable dann verwenden, um Größe, Position und Rahmen festzulegen?

Danke sehr!!!!!!

Sub LogoEinfügen(Shop As String, Zeile As Integer, Spalte As Integer)

Dim Breite As Integer
Dim Höhe As Integer
Dim strDatei As String
Dim Logo As Object
Dim ShopFarbe As Long, Rot As Long, Blau As Long

' Farben für die zwei Shops festlegen
Rot = 26316
Blau = 13395456

' Dateinamen je nach Shop auswählen und Shop-Farbe einstellen
If Shop = "ZL" Then
  strDatei = "D:\logo1.jpg"
  ShopFarbe = Rot
End If

If Shop = "AQ" Then
  strDatei = "D:\logo2.jpg"
  ShopFarbe = Blau
End If

' Bild einfügen

' Ort festlegen
Dim rg As Range
Set rg = ActiveSheet.Cells(Zeile, Spalte)

' Und einfügen
Set Logo = ActiveSheet.Shapes.AddPicture(strDatei, msoTrue, msoTrue, rg.Left, rg.Top, -1, -1)
Set rg = Nothing

With Logo
      .LockAspectRatio = msoFalse              ' Verzerrung egal
      .Height = Rows(Zeile).RowHeight - 4      ' kleiner als Zeile
      .Width = Columns(Spalte).Width - 4       ' schmaler als Spalte
      .Top = Cells(Zeile, Spalte).Top + (Cells(Zeile, Spalte).Height - Logo.Height) / 2         ' mittig
      .Left = Cells(Zeile, Spalte).Left + (Cells(Zeile, Spalte).Width - Logo.Width) / 2          ' mittig
  End With
  
  ' Rahmen ums Bild, in der Farbe des Shops
  With Logo.ShapeRange.Line
    .Visible = msoTrue
    .ForeColor.RGB = ShopFarbe
    .Weight = 1.5
    .ForeColor.TintAndShade = 0
  .ForeColor.Brightness = 0
End With

Set Logo = Nothing

' Zeilenhöhe anpassen
' Rows(Zeile).RowHeight = Logo.Height
 
End Sub

...zur Frage

Makro beim Kopieren anpassen?

Guten Morgen

Ich habe eine Arbeitsmappe, in welcher ich monatlich ein neues Arbeitsblatt einfüge. Dies mittels Kopieren. Nun habe ich einen VBA, welcher fürs 1. Blatt korrekt funktioniert, aber beim Neuen infolge anderem Registername (?) nicht funktionier.

Was muss ich ändern? Ganz grossen Dank für die Hilfe. Nachstehend das Makro.

    Range("A2:E119").Select
    ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Add2 Key:=Range("A3:A119") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Add2 Key:=Range("B3:B119") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("07.21").Sort
        .SetRange Range("A2:e119")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3").Select
End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen