Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.08.2016 19:25:46 |
Fabian |
|
|
zwei Tabellen unterschiedlicher Länge untereinander kopieren |
26.08.2016 22:23:11 |
Gast70117 |
|
|
|
28.08.2016 12:33:17 |
Fabian |
|
|
Von:
Gast70117 |
Datum:
26.08.2016 22:23:11 |
Views:
595 |
Rating:
|
Antwort:
|
Thema:
zwei Tabellen unterschiedlicher Länge untereinander kopieren |
dazu fällt mir heute nichts Besseres mehr ein
LG
Option Explicit
Sub Tastit()
'*******************************************************************
'Die Zieltabelle - hier "Tabelle3" ist in der Arbeitsmappe VORHANDEN
'*******************************************************************
'Die Sortierung, da die leeren Zellen nicht WIRKLICH LEER -
'- jede Formel ergibt eine Zelle mit unsichtbarem Inhalt !!
'*******************************************************************
Dim rngUsed As Range, x As Long
Sheets("Tabelle3").Cells.ClearContents
Set rngUsed = Sheets("Daten").UsedRange.Columns("F:I")
Sheets("Stammdaten").Range("A1").Value = "a"
rngUsed.Copy
Sheets("Tabelle3").Cells(1).PasteSpecial (-4163)
Set rngUsed = rngUsed.Offset(1, 0).Resize(rngUsed.Rows.Count - 1, rngUsed.Columns.Count)
Sheets("Stammdaten").Range("A1").Value = "b"
rngUsed.Copy
With Sheets("Tabelle3")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial (-4163)
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range(.UsedRange.Columns(1).Address), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange Range(.UsedRange.Address)
With .Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
|
- 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
|
|
25.08.2016 19:25:46 |
Fabian |
|
|
zwei Tabellen unterschiedlicher Länge untereinander kopieren |
26.08.2016 22:23:11 |
Gast70117 |
|
|
|
28.08.2016 12:33:17 |
Fabian |
|
|