Macro zum Einlesen einer Excel-Datei

Hallo liebe Community.
die Aufgabenstellung, mit der ich mich aktuell herumschlage ist Folgende:
Im Rohdatenformat liegt mir eine Exceltabelle vor, die ich in ein Excel Template importieren möchte.
Das Excel-Template selbst soll neben dem "Importer" eine Sortierfunktion beinhalten, die es dem Anwender erlaubt, Inhalte von Tabellenspalten auf- und absteigend komfortabel zu sortieren ohne das dieser selbst weitere Einstellungen vornehmen muss.
Das Ganze ist quasi dafür gedacht, um Bedienung und Navigation innerhalb der Daten so einfach als möglich zu gestalten.
Ich habe bislang schon mehrere Sachen ausprobiert, komme aber nicht wirklich weiter.
Die Sortierung möchte ich so lösen, dass jeder Spalte zwei Pfeilgrafiken im Tabellenkopf enthält, der jeweils ein "Sortiermacro" zugewiesen wird. Ich weiß nicht, ob es eine schönere Lösung gäbe. Wenn ja, ich wäre über jeden Hinweis dankbar.
Vielleicht findet sich ja jemand, der mir bei dieser Herausforderung den einen oder anderen Tipp geben könnte.
Viele Grüße und besten Dank schon mal.
Kansas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Kansas!
Eine Alternative...
'Folgende Deklarationen in einem Modul platzieren
'Global lngC As Long
'Global blnOrder As Boolean
'Global z As Integer
'Global c As Integer
'Global iHeaderZ As Integer
'Diese nachstehende SUB unter "DieseArbeitsmappe" platzieren

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
iHeaderZ = 1 'die Kopfzeile ist im Regelfall in der 1.Zeile
Select Case Sh.Name
Case Sheets(1).Name
If Target.Row = iHeaderZ Then
Application.ScreenUpdating = False
If Target.Column = lngC Then
blnOrder = IIf(blnOrder = 0, -1, 0)
Else
lngC = Target.Column
blnOrder = -1
End If
z = ActiveSheet.Cells(65536, 2).End(xlUp).Row
'suche in der 2.Spalte nach dem letzten Eintrag
c = ActiveSheet.UsedRange.Columns.Count
Range(Cells(iHeaderZ, 1), Cells(z, c)).Name = "zCurMemberList"
'Die Kopfzeile ist hier in der 1.Zeile mit dem Namen "HeaderT"
[zCurMemberlist].Sort Key1:=Target, Order1:=blnOrder + 2, Header:=xlYes
Cancel = True
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
'Cursor bewegen, ich vermeide SENDKKEY weil bei mir sich die NUMLOCK-Taste ab und  _
zu deaktiviert
End If
'case sheets(2)
'case sheets(3)
Case Else
End Select
End Sub

Funktioniert tadellos in meiner Mitgliederverwaltung, habe ich aus diesem Forum für meine Zwecke lediglich angepasst. Das kannst du genauso so machen.
Tschüss
Franz D.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _ As Boolean) iHeaderZ = 7 'die Kopfzeile meiner Tabelle Select Case Sh.Name Case Sheets(2).Name If Target.Row = iHeaderZ Then Application.ScreenUpdating = False If Target.Column = lngC Then blnOrder = IIf(blnOrder = 0, -1, 0) Else lngC = Target.Column blnOrder = -1 End If z = ActiveSheet.Cells(65536, 1).End(xlUp).Row 'suche in der 2.Spalte nach dem letzten Eintrag c = ActiveSheet.UsedRange.Columns.Count Range(Cells(iHeaderZ, 7), Cells(z, c)).Name = "UMatrix" 'Die Kopfzeile ist hier in der 7.Zeile, 1 Spalte bezeichnet mit dem Namen " _ Unternehmen" [UMatrix].Sort Key1:=Target, Order1:=blnOrder + 2, Header:=xlYes Cancel = True

Beliebteste Forumthreads (12 Monate)

Macro zum Einlesen einer Excel-Datei

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread