Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.01.2020 19:29:15 |
Tobi |
|
|
|
29.01.2020 21:51:40 |
Flotter Feger |
|
|
Tabellen vereinen anhand von Spaltennamen |
29.01.2020 22:14:55 |
Flotter Feger |
|
|
|
01.02.2020 18:50:01 |
Tobi |
|
|
|
01.02.2020 21:26:21 |
Gast24944 |
|
|
|
02.02.2020 16:56:05 |
Tobi |
|
|
|
02.02.2020 22:36:10 |
Gast24944 |
|
|
Von:
Flotter Feger |
Datum:
29.01.2020 22:14:55 |
Views:
607 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
29.01.2020 21:51:40 |
Flotter Feger |
|
|
Tabellen vereinen anhand von Spaltennamen |
29.01.2020 22:14:55 |
Flotter Feger |
|
|
|
01.02.2020 18:50:01 |
Tobi |
|
|
|
01.02.2020 21:26:21 |
Gast24944 |
|
|
|
02.02.2020 16:56:05 |
Tobi |
|
|
|
02.02.2020 22:36:10 |
Gast24944 |
|
|