Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle erstellen und formatieren

Tabelle erstellen und formatieren
20.01.2023 21:19:32
Ron
Hallo,
wer kann mir helfen. Ich bekomme Daten von einem externen Programm in Excel importiert.
Die erste Zeile beinhaltet den Tabellenkopf, der auch immer die gleichen Bezeichnungen hat.
Aktuell formatiere ich alles manuell (Gitternetz, Reihenfolge der Spalten, Tabellenkopf fett)
Das ist alles sehr zeitaufwendig.
Die Formatierung der Tabelle bekomme ich mit einer Makroaufzeichnung hin.
Aber bei der richtigen Reihenfolge brauche ich Hilfe, da die Spalten nicht immer in der gleichen Reihenfolge angeliefert
werden. Kann die Reihenfolge der Spalten anhand der Tabellen-Kopfbezeichnungen sortiert werden.?
Hier eine Musterdatei:
https://www.herber.de/bbs/user/157404.xlsx
Vielleicht gibt es ja eine Weg über VBA.
Vielen Dank im Vorraus.
Gruß

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten sortieren
20.01.2023 21:50:39
GerdL
Hallo Ron
Sub Unit()
    Dim Sp(1 To 13) As String
    Dim i As Long
    
    
    Sp(1) = "aa"
    Sp(2) = "bb"
    Sp(3) = "cc"
    Sp(4) = "dd"
    Sp(5) = "ff"
    Sp(6) = "gg"
    Sp(7) = "hh"
    Sp(8) = "ii"
    Sp(9) = "jj"
    Sp(10) = "kk"
    Sp(11) = "ll"
    Sp(12) = "mm"
    Sp(13) = "nn"
    
    With ActiveSheet
    
        For i = 1 To 13
        
            If .Cells(i, 1) > Sp(i) Then
                .Columns(i).Insert shift:=xlToRight
                .Columns(Application.Match(Sp(i), .Rows(1), 0)).Cut .Columns(i)
            End If
        
        Next
    
    End With
End Sub
Gruß Gerd
Anzeige
AW: Spalten sortieren
20.01.2023 22:33:02
ralf_b
ich glaub 1 und i tauschen ,oder ?
 If .Cells( 1,i) > Sp(i) Then

AW: Spalten sortieren
21.01.2023 08:00:15
GerdL
Moin Ralf!
Ja.
Gruß Gerd
AW: Spalten sortieren
21.01.2023 08:55:23
Ron
Vielen Dank!
AW: Spalten sortieren
21.01.2023 09:10:55
Ron
Hallo,
wie müsste der Code angepasst werden, wenn es mehr als 13 Spalten gibt?
Es sollen aber die genannten 13 Spalten nach Durchlauf des Codes am Anfang und in der richtigen Reihenfolge stehen.
Der Rest soll dann hinten rangehangen werden.
Geht das?
Vielen Dank
AW: Spalten sortieren
21.01.2023 10:55:38
GerdL
Hallo Ron,
das von Ralf gefundene Fehlerteufelchen habe ich geändert. Du musst außer den 13 Namen nichts anpassen. 
Sub Unit()
    
        Dim Sp(1 To 13) As String
        Dim i As Long
        
        
        Sp(1) = "aa"
        Sp(2) = "bb"
        Sp(3) = "cc"
        Sp(4) = "dd"
        Sp(5) = "ff"
        Sp(6) = "gg"
        Sp(7) = "hh"
        Sp(8) = "ii"
        Sp(9) = "jj"
        Sp(10) = "kk"
        Sp(11) = "ll"
        Sp(12) = "mm"
        Sp(13) = "nn"
        
        With ActiveSheet
        
            For i = 1 To 13
            
                If .Cells(1, i) > Sp(i) Then
                    .Columns(i).Insert shift:=xlToRight
                    .Columns(Application.Match(Sp(i), .Rows(1), 0)).Cut .Columns(i)
                End If
            
            Next
        
        End With
    
    
    End Sub
Gruß Gerd
Anzeige

81 Forumthreads zu ähnlichen Themen

Tabellenblat erstellen und benennen
Gordon

Moin,
mit dem Befehl Sheets.add kann man ja per VBA ein neues Tabellenblatt erstellen. Dieses wird ja standartmäßig mit Tabelle (+ Nummer) benannt. Ist es auch möglich ein Tabellenblatt zu erstellen, wo man von vorne weg gleich den Namen bestimmen kann? Und wenn ja, mit welchem Befehl?
23.08.2008 17:45:00
Thread-ID: 1004145
6 Beiträge
Anzeige
alle offenen Tabellen drucken
Hans-Jürgen

Hallo Zusammen,
ich will ich alle offenen Tabellen ausdrucken ( über Makro), das funz. Ich habe aber nun hinter jeden Dateinamen die Jahreszahl, z.B.
Werte = Werte & Jahr
'Werte 2009.xls '-- sieht dann so aus--
Jetzt habe ich das Problem, die Tabellen zu drucken.
Wind...
02.03.2009 14:35:35
Thread-ID: 1055572
7 Beiträge
Tabellenblätter autom. erstellen und ausfüllen
Robert

Hallo Leute
ich habe hier eine Mappe in der ich eine Vorlage für die Prüfung von Maschinen hab.
Ich brauch pro Maschine ein Tabellenblatt und daher würde ich diese gerne automatisch erstellen wenn in der Geräteliste ein Gerät eingetragen wird.
Des Weiteren soll in den automatisch er...
07.07.2009 20:30:38
Thread-ID: 1086950
7 Beiträge
Anzeige
mehrere Tabellenblätter im Querformat ausdrucken
WernerP

Ich möchte mehrere Tabellenblätter in einem Rutsch im Querformat ausdrucken.
Markiere ich alle Tabellenblätter und wähle Drucken mit Vorschau, so muß ich für jedes einzelne
Blatt das Querformat einstellen.
Gibt es einen Weg für alle Blätter gleichzeitig Querformat einzustellen? G...
01.12.2009 13:02:29
Thread-ID: 1121202
2 Beiträge
Tabelle erstellen über Inputbox und vbchancel
Juergen

Hallo Ihr Exelaner,
Ich habe da ein Problem Ich möchte über die Funktion Inputbox eine neue Tabelle erstellen.
Habe schon viel gesucht aber nichts passendes gefunden.
Und bekomme das nicht so richtig hin immer wenn ich auf Abbrechen gehe erstellt er mir trotzdem eine Tabelle mit N...
20.01.2010 20:29:08
Thread-ID: 1131514
3 Beiträge
mehrere Tabellenblätter gleichartig ausdrucken
u_hoernchen

Ich hoffe, dass mein Problem ein Excel-Problem ist und nicht ein Druckerproblem:
ich habe eine Datei mit mehreren Tabellenblättern, die ich alle gleichzeitig drucken möchte. Wenn ich jetzt in den Druckereinstellungen bestimmte Dinge auswähle (z.B. doppelseitiges Drucken), dann wird das nur...
27.04.2010 13:32:25
Thread-ID: 1154039
6 Beiträge
Tabellenblätter erstellen und verlinken
Rene

Hallo VBA-Experten,
ich habe ein Makro von Andreas E gefunden und an meine Bedürfnisse angepasst. Leider funktioniert das Makro nur bedingt. Auf Tabellenblatt 1 habe ich ein Liste erstellt und Tabellenblatt 2 ist das Musterblatt, welches für jeden Eintrag in Spalte E vom Tabellenblatt 1 kop...
17.02.2011 15:02:24
Thread-ID: 1201464
2 Beiträge
Tabelle erstellen und mit Hyperlink verknüpfen
Rene

Hallo VBA-Experten,
ich habe ein Makro von Andreas E gefunden und an meine Bedürfnisse angepasst. Leider funktioniert das Makro nur bedingt. Auf Tabellenblatt 1 habe ich ein Liste erstellt und Tabellenblatt 2 ist das Musterblatt, welches für jeden Eintrag in Spalte E vom Tabellenblatt 1 kop...
17.02.2011 20:35:16
Thread-ID: 1201577
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
11
6
6
1
1
2
5
1
1
2
5
4
4
2
4
1
1
3
4
3
6
5
10
5