Thema Datum  Von Nutzer Rating
Antwort
23.03.2018 09:36:29 Benjamin
NotSolved
Blau Excel Tabellen zusammenfassen
 24.03.2018 17:48:50 fedjo
NotSolved
24.03.2018 19:35:47 Gast48977
NotSolved
25.03.2018 12:44:00 fedjo
NotSolved

Ansicht des Beitrags:
Von:
fedjo		 Datum:
24.03.2018 17:48:50		 Views:
554		 Rating:
     
Antwort:
  Ja
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

 

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
23.03.2018 09:36:29 Benjamin
NotSolved
Blau Excel Tabellen zusammenfassen
 24.03.2018 17:48:50 fedjo
NotSolved
24.03.2018 19:35:47 Gast48977
NotSolved
25.03.2018 12:44:00 fedjo
NotSolved