Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.03.2018 09:36:29 |
Benjamin |
|
|
Excel Tabellen zusammenfassen |
24.03.2018 17:48:50 |
fedjo |
|
|
|
24.03.2018 19:35:47 |
Gast48977 |
|
|
|
25.03.2018 12:44:00 |
fedjo |
|
|
Von:
fedjo |
Datum:
24.03.2018 17:48:50 |
Views:
558 |
Rating:
|
Antwort:
|
Thema:
Excel Tabellen zusammenfassen |
Hallo Benjamin
In ein Modul:
Sub TabellenKopierenUntereinander()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim strStartBlatt As String
strStartBlatt = ActiveSheet.Name
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
If ws.Name = "Gesamtübersicht" Then
Sheets("Gesamtübersicht").Delete
End If
Next ws
Dim i As Integer
With ActiveWorkbook
'neue Tabelle an die erste Position einfügen
.Worksheets.Add Before:=.Worksheets(1)
.Worksheets(1).Name = "Gesamtübersicht"
'.Worksheets.Add Before:=Sheets(Position).Name = "Gesamtübersicht"
For i = 2 To .Worksheets.Count
'Ermitteln den benutzen Bereich der einzelnen Tabellenblätter
Set Rng = .Worksheets(i).UsedRange
'letzte Zeile ermitteln des ersten Blattes
Set rng1 = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
'Bereich kopieren
Rng.Copy Destination:=rng1
Next
End With
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets(strStartBlatt).Activate 'Aktive Tabelle zurück
Application.ScreenUpdating = True
End Sub
Sub Enter()
Application.OnKey "{Enter}", " TabellenKopierenUntereinander" 'Makro ausführen
End Sub
In diese Arbeitsmappe:
Private Sub Workbook_Deactivate()
Application.OnKey "{Enter}", " TabellenKopierenUntereinander"
Reset
End Sub
Private Sub Workbook_Activate()
Application.OnKey "{Enter}", " TabellenKopierenUntereinander"
End Sub
Das Makro wird immer durch die Benutzung der Enter Taste ausgeführt.
Die Tabelle "Gesamtübersicht" wird gelöscht und neu eingefügt.
Gruß
fedjo
|
- 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
|
|
23.03.2018 09:36:29 |
Benjamin |
|
|
Excel Tabellen zusammenfassen |
24.03.2018 17:48:50 |
fedjo |
|
|
|
24.03.2018 19:35:47 |
Gast48977 |
|
|
|
25.03.2018 12:44:00 |
fedjo |
|
|