Thema Datum  Von Nutzer Rating
Antwort
29.01.2020 19:29:15 Tobi
NotSolved
29.01.2020 21:51:40 Flotter Feger
NotSolved
Rot Tabellen vereinen anhand von Spaltennamen
 29.01.2020 22:14:55 Flotter Feger
NotSolved
01.02.2020 18:50:01 Tobi
NotSolved
01.02.2020 21:26:21 Gast24944
*****
NotSolved
02.02.2020 16:56:05 Tobi
NotSolved
02.02.2020 22:36:10 Gast24944
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
29.01.2020 22:14:55		 Views:
602		 Rating:
     
Antwort:
  Ja
Thema:
Tabellen vereinen anhand von Spaltennamen

Hallo,

ich nochmal ...

im Code ist ein Fehler ... tausch mal die Sub aus. Der Code löscht jetzt auch die Überschriften ab dem zweiten Kopieren.

Public Sub Spalten_Automatisiert_umstellen(ByVal wsTab As Worksheet, ParamArray Data() As Variant)
Dim lngI As Long
Dim aletzte As Long
Dim zletzte As Long
Dim spalte As Variant
Dim wsA As Worksheet

Set wsA = ActiveSheet
aletzte = wsA.Cells(Rows.Count, 1).End(xlUp).Row + 1

With wsTab
zletzte = .Cells(Rows.Count, 1).End(xlUp).Row: If zletzte = 2 Then zletzte = 1
For lngI = LBound(Data) To UBound(Data)
    spalte = SpaltenName(Data(lngI))
    wsA.Range(wsA.Cells(1, spalte), wsA.Cells(aletzte, spalte)).Copy Destination:=.Cells(zletzte, lngI + 1)
Next lngI
If zletzte > 1 Then .Rows(zletzte).Delete shift:=xlShiftUp
End With
End Sub

Sabina

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.01.2020 19:29:15 Tobi
NotSolved
29.01.2020 21:51:40 Flotter Feger
NotSolved
Rot Tabellen vereinen anhand von Spaltennamen
 29.01.2020 22:14:55 Flotter Feger
NotSolved
01.02.2020 18:50:01 Tobi
NotSolved
01.02.2020 21:26:21 Gast24944
*****
NotSolved
02.02.2020 16:56:05 Tobi
NotSolved
02.02.2020 22:36:10 Gast24944
NotSolved