Office: Tabellen zusammenführen

Helfe beim Thema Tabellen zusammenführen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hi Gerd, ersetze Deinen kompletten Code mit folgendem: Code: Option Explicit Const m_sWkbZiel As String = "Übernahme_Ttb.xlsm" Const m_sWksZiel As... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Gerd2018, 31. August 2019.

Seite 3 von 5

MASE

Mase

Tabellen zusammenführen

Hi Gerd,

ersetze Deinen kompletten Code mit folgendem:
Code:

Option Explicit
Const m_sWkbZiel As String = "Übernahme_Ttb.xlsm"
Const m_sWksZiel As String = "Übersicht_Ttb"
Const m_sWksQuelle As String = "Übersicht_Ttb"
Const m_FontColorWhite As Long = 16777215

Sub CopyWksAndÜbersicht_Ttb()

' -----------------------------------------------------------------------------------------------

Application.DisplayAlerts = False ' alle Tabellenblätte bis auf das 1. löschen
While Worksheets.Count > 1
Worksheets(2).Delete
Wend
Application.DisplayAlerts = True

Range("B5:N16").Select ' Formel schützen ... Trick ersetze das =
Selection.Replace What:="=", Replacement:="gerd", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

ActiveSheet.Rows("18:500").Delete ' Zeilen löschen in Übersicht

Range("B5:N16").Select ' Formel wieder herstellen
Selection.Replace What:="gerd", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("C17").Select

' -----------------------------------------------------------------------------------------------

Dim wkbQuelle As Workbook, wkbZiel As Workbook
Dim wksZiel As Worksheet
Dim rngQuelle As Range, rngZiel As Range
Dim lngRow As Long
Dim sDatei As String
'
On Error GoTo err
'
Call TurnOffFunctionality
'
Set wkbZiel = Workbooks(m_sWkbZiel)
Set wksZiel = wkbZiel.Worksheets(m_sWksZiel)
'
ChDir (ThisWorkbook.Path)
sDatei = Dir(ThisWorkbook.Path & Application.PathSeparator & "*.xlsm")
'
While sDatei vbNullString And sDatei ThisWorkbook.Name
Set wkbQuelle = Workbooks.Open(sDatei)
'1.Tabelle kopieren
wkbQuelle.Worksheets(1).Copy after:=wkbZiel.Worksheets(wkbZiel.Worksheets.Count)
'Übersicht kopieren
With wksZiel
Set rngZiel = .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 3, 1)
Set rngQuelle = wkbQuelle.Worksheets(m_sWksQuelle).UsedRange
rngQuelle.Copy
rngZiel.PasteSpecial xlPasteAllUsingSourceTheme
rngZiel.PasteSpecial xlPasteValuesAndNumberFormats

Dim wkb As Workbook ' alle Dateien schließen außer "Übernahme-Ttb"
For Each wkb In Workbooks
Application.CutCopyMode = False
If wkb.Name "Übernahme_Ttb.xlsm" Then wkb.Close False
Next

Dim obj_sheet As Worksheet ' übertrage aus Tabellenblatt Übersiccht_Ttb Zelle F2 in alle anderen in Zelle I1

For Each obj_sheet In ActiveWorkbook.Worksheets
If obj_sheet.Index 1 Then
obj_sheet.Range("I1") = Worksheets(1).Range("F2")
End If
Next

Workbooks("Übernahme_Ttb.xlsm").Worksheets("Übersicht_Ttb").Activate ' gehe zu Tabellenblatt ...
ActiveSheet.Range("B17").Select

Range("B17:N17").Select ' Formel kopieren aus Gesamt-Übersicht
Selection.Copy

Range("B35:N35").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Range("A1").Select
End With

sDatei = Dir
Wend
'
err:
If err.Number 0 Then
MsgBox err.Number & vbCrLf & err.Description, vbCritical + vbOKOnly, "Autor informiert:"
End If
'
Call TurnOnFunctionality
Set rngQuelle = Nothing: Set rngZiel = Nothing: Set wksZiel = Nothing: Set wkbZiel = Nothing: Set wkbQuelle = Nothing

' ------------------------------------------------------------------------------------

' ------------------------------------------------------------------------------------

End Sub

Public Sub TurnOffFunctionality()
Application.Calculation = xlCalculationManual
Application.DisplayStatusBar = False
Application.EnableEvents = False
Application.ScreenUpdating = False
End Sub
Public Sub TurnOnFunctionality()
Application.Calculation = xlCalculationAutomatic
Application.DisplayStatusBar = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Function getAnzahlMonate(ByRef wks As Worksheet) As Double
getAnzahlMonate = Application.WorksheetFunction.CountIf(Columns(1), "Monat")
End Function

Sub SetFormulas(wks As Worksheet)
Dim rng As Range
Dim lngRow As Long, lngCol As Long, lngAnzahlMonate As Long
Dim s As String
'
Set rng = wks.Range("A5:N16")
'
lngAnzahlMonate = getAnzahlMonate(ActiveSheet)
'
For lngRow = 1 To rng.Rows.Count Step 1

If Not rng(lngRow, 1).DisplayFormat.Font.Color = m_FontColorWhite Then
For lngCol = 2 To rng.Columns.Count Step 1
rng.Cells(lngRow, lngCol).FormulaLocal = funcBuildFormula(ActiveSheet, rng.Cells(lngRow, lngCol), ByVal lngAnzahlMonate)
Next lngCol
End If
Next lngRow
'
Set rng = Nothing
End Sub

Function funcBuildFormula(wks As Worksheet, rngStart As Range, ByVal lngAnzahlMonate As Long) As String
'lngAnzahlMonate -1; da erser Monat nicht dazugezählt werden darf
Dim i As Long, y As Long
Dim s As String
s = "=SUMME("
For i = 1 To lngAnzahlMonate - 1 Step 1
s = s & rngStart.Offset(i * 18, 0).Address & ";"
Next
funcBuildFormula = Left(s, Len(s) - 1) & ")"
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Neu sind die Funktion 'funcBuildFormula' und die Prozedur 'setFormulas'.

Check it out!

Mase, 17. September 2019

#31
GERD2018

Gerd2018

Hallo Marco,

irgend etwas mache ich falsch. Dieses Macro habe ich nicht gesehen. Wo kann ich unseren kompletten Verlauf sehen?

Funktioniert super... jetzt fehlt nur noch die Formel in allen übernommenen Tabellenblätter "Übersicht_Ttb".
Ich kann nur aufs erste übertragen … siehe mein Code

Range("B17:N17").Select ' Formel kopieren aus Gesamt-Übersicht
Selection.Copy
Range("B35:N35").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Range("A1").Select
End With

Diese möchte ich von Zeile 17 auf jede 18te Zeile übertragen, wenn vorhanden.

Und gerade festgestellt... noch ein Fehler von mir. Jetzt habe ich Dich Bewertet zu dem neuem Thema, dass hätte ich hier machen sollen … oder.

DANKE Gerd

Gerd2018, 18. September 2019

#32
MASE

Mase

Wir gehen mal mit ner Schleife durch die Zellen und geben die Summen-Formel ein, sodass im Nachgang für Jedermann ersichtlich wird, wie die Summen Zustandekommen.

Code:

Option Explicit
Const m_sWkbZiel As String = "Übernahme_Ttb.xlsm"
Const m_sWksZiel As String = "Übersicht_Ttb"
Const m_sWksQuelle As String = "Übersicht_Ttb"
Const m_FontColorWhite As Long = 16777215

Sub CopyWksAndÜbersicht_Ttb()

' -----------------------------------------------------------------------------------------------

Application.DisplayAlerts = False ' alle Tabellenblätte bis auf das 1. löschen
While Worksheets.Count > 1
Worksheets(2).Delete
Wend
Application.DisplayAlerts = True

Range("B5:N16").Select ' Formel schützen ... Trick ersetze das =
Selection.Replace What:="=", Replacement:="gerd", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

ActiveSheet.Rows("18:500").Delete ' Zeilen löschen in Übersicht

Range("B5:N16").Select ' Formel wieder herstellen
Selection.Replace What:="gerd", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("C17").Select

' -----------------------------------------------------------------------------------------------

Dim wkbQuelle As Workbook, wkbZiel As Workbook
Dim wksZiel As Worksheet
Dim rngQuelle As Range, rngZiel As Range
Dim lngRow As Long
Dim sDatei As String
'
On Error GoTo err
'
Call TurnOffFunctionality
'
Set wkbZiel = Workbooks(m_sWkbZiel)
Set wksZiel = wkbZiel.Worksheets(m_sWksZiel)
'
ChDir (ThisWorkbook.Path)
sDatei = Dir(ThisWorkbook.Path & Application.PathSeparator & "*.xlsm")
'
While sDatei vbNullString And sDatei ThisWorkbook.Name
Set wkbQuelle = Workbooks.Open(sDatei)
'1.Tabelle kopieren
wkbQuelle.Worksheets(1).Copy after:=wkbZiel.Worksheets(wkbZiel.Worksheets.Count)
'Übersicht kopieren
With wksZiel
Set rngZiel = .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 3, 1)
Set rngQuelle = wkbQuelle.Worksheets(m_sWksQuelle).UsedRange
rngQuelle.Copy
rngZiel.PasteSpecial xlPasteAllUsingSourceTheme
rngZiel.PasteSpecial xlPasteValuesAndNumberFormats

Dim wkb As Workbook ' alle Dateien schließen außer "Übernahme-Ttb"
For Each wkb In Workbooks
Application.CutCopyMode = False
If wkb.Name "Übernahme_Ttb.xlsm" Then wkb.Close False
Next

Dim obj_sheet As Worksheet ' übertrage aus Tabellenblatt Übersiccht_Ttb Zelle F2 in alle anderen in Zelle I1

For Each obj_sheet In ActiveWorkbook.Worksheets
If obj_sheet.Index 1 Then
obj_sheet.Range("I1") = Worksheets(1).Range("F2")
End If
Next

Workbooks("Übernahme_Ttb.xlsm").Worksheets("Übersicht_Ttb").Activate ' gehe zu Tabellenblatt ...
ActiveSheet.Range("B17").Select

Range("B17:N17").Select ' Formel kopieren aus Gesamt-Übersicht
Selection.Copy

Range("B35:N35").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Range("A1").Select
End With

sDatei = Dir
Wend
'
err:
If err.Number 0 Then
MsgBox err.Number & vbCrLf & err.Description, vbCritical + vbOKOnly, "Autor informiert:"
End If
'
Call TurnOnFunctionality
Set rngQuelle = Nothing: Set rngZiel = Nothing: Set wksZiel = Nothing: Set wkbZiel = Nothing: Set wkbQuelle = Nothing

' ------------------------------------------------------------------------------------

' ------------------------------------------------------------------------------------

End Sub

Public Sub TurnOffFunctionality()
Application.Calculation = xlCalculationManual
Application.DisplayStatusBar = False
Application.EnableEvents = False
Application.ScreenUpdating = False
End Sub
Public Sub TurnOnFunctionality()
Application.Calculation = xlCalculationAutomatic
Application.DisplayStatusBar = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Function getAnzahlMonate(ByRef wks As Worksheet) As Double
getAnzahlMonate = Application.WorksheetFunction.CountIf(Columns(1), "Monat")
End Function

Sub SetFormulas(wks As Worksheet)
Dim rng As Range, c As Range
Dim lngRow As Long, lngCol As Long, lngAnzahlMonate As Long
Dim s As String
'
Set rng = wks.Range("A5:N16")
'
lngAnzahlMonate = getAnzahlMonate(wks)
'
For lngRow = 1 To rng.Rows.Count Step 1

If Not rng(lngRow, 1).DisplayFormat.Font.Color = m_FontColorWhite Then
For lngCol = 2 To rng.Columns.Count Step 1
rng.Cells(lngRow, lngCol).FormulaLocal = funcBuildFormula(ActiveSheet, rng.Cells(lngRow, lngCol), ByVal lngAnzahlMonate)
Next lngCol
End If
Next lngRow
'
'SummenZeile
With wks
Set rng = wks.Range("B17:N17")
For Each c In rng
c.Formula2Local = "=SUMME(" & .Range(c.Offset(-12, 0), c.Offset(-1, 0)).Address & ")"
Next

For lngRow = 1 To lngAnzahlMonate - 1 Step 1

Set rng = .Range(.Cells(17 + lngRow * 18, 2), .Cells(17 + lngRow * 18, 15))
For Each c In rng
c.Formula2Local = "=SUMME(" & .Range(c.Offset(-12, 0), c.Offset(-1, 0)).Address & ")"
Next
Next
End With

Set rng = Nothing
End Sub

Function funcBuildFormula(wks As Worksheet, rngStart As Range, ByVal lngAnzahlMonate As Long) As String
'lngAnzahlMonate -1; da erser Monat nicht dazugezählt werden darf
Dim i As Long, y As Long
Dim s As String
s = "=SUMME("
For i = 1 To lngAnzahlMonate - 1 Step 1
s = s & rngStart.Offset(i * 18, 0).Address & ";"
Next
funcBuildFormula = Left(s, Len(s) - 1) & ")"
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hinweis:
Ich habe Deine Codeerweiterung in diesem Makro zwar bemerkt, jedoch nicht geändert, lediglich um die gewünschten Anpassungen ergänzt.

Mase, 18. September 2019

#33
GERD2018

Gerd2018

Tabellen zusammenführen

Hallo Marco,

hab Dein Code so übernommen und es funktioniert nicht.
Wenn ich z.B. zwei Tabellen übernehme steht in dem Tabellenblatt Übersicht... in Zeile 53 nur der Wert und keine Formel.

DANKE Gerd

Gerd2018, 18. September 2019

#34
MASE

Mase

Hi Gerd,

es dreht sich um das Arbeitsblatt Übersicht_tbl, richtig?

Edit:
Vergiss es ....mein Fehler.
Wer ne Prozedur ausführen möchte, sollte diese auch aufrufen.

Jetzt darfst Du mal die Hände über dem Kopf *wink.gif*....

Code:

Option Explicit
Const m_sWkbZiel As String = "Übernahme_Ttb.xlsm"
Const m_sWksZiel As String = "Übersicht_Ttb"
Const m_sWksQuelle As String = "Übersicht_Ttb"
Const m_FontColorWhite As Long = 16777215

Sub CopyWksAndÜbersicht_Ttb()

' -----------------------------------------------------------------------------------------------

Application.DisplayAlerts = False ' alle Tabellenblätte bis auf das 1. löschen
While Worksheets.Count > 1
Worksheets(2).Delete
Wend
Application.DisplayAlerts = True

Range("B5:N16").Select ' Formel schützen ... Trick ersetze das =
Selection.Replace What:="=", Replacement:="gerd", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

ActiveSheet.Rows("18:500").Delete ' Zeilen löschen in Übersicht

Range("B5:N16").Select ' Formel wieder herstellen
Selection.Replace What:="gerd", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("C17").Select

' -----------------------------------------------------------------------------------------------

Dim wkbQuelle As Workbook, wkbZiel As Workbook
Dim wksZiel As Worksheet
Dim rngQuelle As Range, rngZiel As Range
Dim lngRow As Long
Dim sDatei As String
'
On Error GoTo err
'
Call TurnOffFunctionality
'
Set wkbZiel = Workbooks(m_sWkbZiel)
Set wksZiel = wkbZiel.Worksheets(m_sWksZiel)
'
ChDir (ThisWorkbook.Path)
sDatei = Dir(ThisWorkbook.Path & Application.PathSeparator & "*.xlsm")
'
While sDatei vbNullString And sDatei ThisWorkbook.Name
Set wkbQuelle = Workbooks.Open(sDatei)
'1.Tabelle kopieren
wkbQuelle.Worksheets(1).Copy after:=wkbZiel.Worksheets(wkbZiel.Worksheets.Count)
'Übersicht kopieren
With wksZiel
Set rngZiel = .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 3, 1)
Set rngQuelle = wkbQuelle.Worksheets(m_sWksQuelle).UsedRange
rngQuelle.Copy
rngZiel.PasteSpecial xlPasteAllUsingSourceTheme
rngZiel.PasteSpecial xlPasteValuesAndNumberFormats

Dim wkb As Workbook ' alle Dateien schließen außer "Übernahme-Ttb"
For Each wkb In Workbooks
Application.CutCopyMode = False
If wkb.Name "Übernahme_Ttb.xlsm" Then wkb.Close False
Next

Dim obj_sheet As Worksheet ' übertrage aus Tabellenblatt Übersiccht_Ttb Zelle F2 in alle anderen in Zelle I1

For Each obj_sheet In ActiveWorkbook.Worksheets
If obj_sheet.Index 1 Then
obj_sheet.Range("I1") = Worksheets(1).Range("F2")
End If
Next

Workbooks("Übernahme_Ttb.xlsm").Worksheets("Übersicht_Ttb").Activate ' gehe zu Tabellenblatt ...
ActiveSheet.Range("B17").Select

Range("B17:N17").Select ' Formel kopieren aus Gesamt-Übersicht
Selection.Copy

Range("B35:N35").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Range("A1").Select
End With

sDatei = Dir
Wend
'
Call SetFormulas(wksZiel)
'
err:
If err.Number 0 Then
MsgBox err.Number & vbCrLf & err.Description, vbCritical + vbOKOnly, "Autor informiert:"
End If
'
Call TurnOnFunctionality
Set rngQuelle = Nothing: Set rngZiel = Nothing: Set wksZiel = Nothing: Set wkbZiel = Nothing: Set wkbQuelle = Nothing

' ------------------------------------------------------------------------------------

' ------------------------------------------------------------------------------------

End Sub

Public Sub TurnOffFunctionality()
Application.Calculation = xlCalculationManual
Application.DisplayStatusBar = False
Application.EnableEvents = False
Application.ScreenUpdating = False
End Sub
Public Sub TurnOnFunctionality()
Application.Calculation = xlCalculationAutomatic
Application.DisplayStatusBar = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Function getAnzahlMonate(ByRef wks As Worksheet) As Double
getAnzahlMonate = Application.WorksheetFunction.CountIf(Columns(1), "Monat")
End Function

Sub SetFormulas(wks As Worksheet)
Dim rng As Range, c As Range
Dim lngRow As Long, lngCol As Long, lngAnzahlMonate As Long
Dim s As String
'
Set rng = wks.Range("A5:N16")
'
lngAnzahlMonate = getAnzahlMonate(wks)
'
For lngRow = 1 To rng.Rows.Count Step 1

If Not rng(lngRow, 1).DisplayFormat.Font.Color = m_FontColorWhite Then
For lngCol = 2 To rng.Columns.Count Step 1
rng.Cells(lngRow, lngCol).FormulaLocal = funcBuildFormula(ActiveSheet, rng.Cells(lngRow, lngCol), ByVal lngAnzahlMonate)
Next lngCol
End If
Next lngRow
'
'SummenZeile
With wks
Set rng = wks.Range("B17:N17")
For Each c In rng
c.Formula2Local = "=SUMME(" & .Range(c.Offset(-12, 0), c.Offset(-1, 0)).Address & ")"
Next

For lngRow = 1 To lngAnzahlMonate - 1 Step 1

Set rng = .Range(.Cells(17 + lngRow * 18, 2), .Cells(17 + lngRow * 18, 15))
For Each c In rng
c.Formula2Local = "=SUMME(" & .Range(c.Offset(-12, 0), c.Offset(-1, 0)).Address & ")"
Next
Next
End With

Set rng = Nothing
End Sub

Function funcBuildFormula(wks As Worksheet, rngStart As Range, ByVal lngAnzahlMonate As Long) As String
'lngAnzahlMonate -1; da erser Monat nicht dazugezählt werden darf
Dim i As Long, y As Long
Dim s As String
s = "=SUMME("
For i = 1 To lngAnzahlMonate - 1 Step 1
s = s & rngStart.Offset(i * 18, 0).Address & ";"
Next
funcBuildFormula = Left(s, Len(s) - 1) & ")"
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase, 18. September 2019

#35
GERD2018

Gerd2018

Hi,

er oder sie sagt Fehler 438 - Objekt unterstützt diese Eigenschaft oder Methode nicht.

Gruß Gerd

Gerd2018, 18. September 2019

#36
MASE

Mase

Dann lad ich meine mal hoch...

Mase, 18. September 2019

#37
GERD2018

Gerd2018

Tabellen zusammenführen

Hallo,

wenn ich Deine nehme hab ich das gleiche Problem. Nur das er hier, wenn ich OK sage weiter macht. Das Ergebnis ist aber das gleiche … in Zeile 53 steht lediglich ein Wert.

Gruß Gerd

Gerd2018, 19. September 2019

#38
MASE

Mase

Verwendest Du andere Test_Importe als ich ?

Mase, 19. September 2019

#39
MASE

Mase

edit:

Geh doch mal den Code in Einzelschritten durch und poste die Zeile, welche den Fehler wirft.

Mase, 19. September 2019

#40
GERD2018

Gerd2018

Hallo Marco,

ich werde gleich verrückt ich kann nichts finden.
Habe Dir noch einmal meine Dateien angehängt. Kannst Du mal schauen.
Dein neustes Makro ist da noch nicht drin.

Danke uns beste Grüße Gerd

Gerd2018, 19. September 2019

#41
MASE

Mase

Gerd,

ich sag nur Hände *wink.gif*

Jetzt nochmal versuchen, aber sachte und bitte ohne Änderungen vorzunehmen *Smilie

Mase, 19. September 2019

#42
GERD2018

Gerd2018

Tabellen zusammenführen

Hallo Marko,

es läuft ohne zu meckern durch, aber die Summen sind in den übernommenen Übersichten … falsch. Da hab ich ja nur eine bedingte Formatierung drin. Darum hatte ich diese große Formel.
In der Tabelle Übersicht gesamt funktioniert es.

Hab gerade noch drei Sachen gesehen ...
1. Summe steht auch in Spalte O … hab ich gefunden und korrikiert
2. wenn ich das Makro das zweite mal laufen lasse, geht ein Fenster auf "Microsoft Excel löscht diese Blätter endgültig. Möchten Sie fortfahren."
3. er muss nicht nur die Blätter löschen sondern auch die übernommenen Tabellen in Übersicht, außer der 1... dass sollte ich auch selber hinbekommen.

Gruß Gerd

Gerd2018, 19. September 2019

#43
MASE

Mase

zu 1)
Läuft.

zu 2)
Ich weiss - meine Zeilen wurden ergänzt - von wem auch immer -
Jedenfalls nicht von mir *Smilie

zu 3)
So, jetzt sind wir an einem Punkt angekommen, wo Bedingungen hinzukommen bzw sich ändern. Ausgangspunkt war dieser Post

Mase, 19. September 2019

#44
GERD2018

Gerd2018

Hallo Marco,

natürlich habe ich einiges (mit meinem nicht vorhandenem Wissen) dazu geschrieben.
Änderungen "Wer auch immer..."; dass war natürlich ich. Zumindest habe ich jeweils eine kleine Beschreibung dazu geschrieben.
Kannst Du mir da helfen …. soweit läuft ja alles... es sind nur noch die kleinen Sachen.

Gruß GERD

Gerd2018, 20. September 2019

#45

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 3 von 5

Thema:

Tabellen zusammenführen

Die Seite wird geladen...

Tabellen zusammenführen - Similar Threads - Tabellen zusammenführen
mehrere Excel-Tabellen in eine große Tabelle zusammenführen
in Microsoft Excel Hilfe
mehrere Excel-Tabellen in eine große Tabelle zusammenführen: Hallo, ich habe folgendes Problem: Ich würde gerne mehrere Excel-Tabellen in eine große Tabelle zusammenführen. Es handelt sich um eine Punkterangliste mit mehreren tausend Namen. Grundsätzlich...
Tabellenübersicht aus mehreren Tabellen nach Datum sortieren
in Microsoft Excel Hilfe
Tabellenübersicht aus mehreren Tabellen nach Datum sortieren: Hallo, ich habe eine Tabelle für die Autowartung erstellt und möchte nun eine Übersichtseite als "Deckblatt" erstellen auf dem man alle wichtigen Daten sehen kann. Es gibt für alles auf einem...
VBA - Zwei Tabellen anhand ID zusammenfügen
in Microsoft Excel Hilfe
VBA - Zwei Tabellen anhand ID zusammenfügen: Hallo zusammen, ich habe folgendes Problem: Es gibt eine „Mutterliste“ mit Bezeichnungen, ID und Status. Die „Kinderlisten“ haben in unterschiedlicher Reihenfolge die selben IDs aber...
Zusammenführen zweier Tabellen und automatisches Markieren von Werten
in Microsoft Excel Hilfe
Zusammenführen zweier Tabellen und automatisches Markieren von Werten: Guten Tag, an meiner Schule haben wir ein Problem - vorab schon vielen Dank für eure Hilfe: Tabelle 1: Anwesenheitsliste * Ich kann eine Liste aller Schüler bzgl. ihrer An-. und Abwesenheit...
Zusammenführen von zwei oder mehr Tabellen
in Microsoft Excel Tutorials
Zusammenführen von zwei oder mehr Tabellen: Zusammenführen von zwei oder mehr Tabellen Excel für Microsoft 365 Excel 2019 Excel 2016 Excel 2013 Mehr... Weniger...
Excel Tabelle zusammenführen
in Microsoft Excel Hilfe
Excel Tabelle zusammenführen: Hallo zsm., ich möchte, wie ganz rechts in der Tabelle, die ganzen Felder zusammenführen. Überschrift : getrennt und dann die jeweilig Zeile. Das wäre ja eine "reines Fleiß" abtippen, doch was...
Zwei Tabellen mit Hilfe von ID-Nummern zusammenführen?
in Microsoft Excel Hilfe
Zwei Tabellen mit Hilfe von ID-Nummern zusammenführen?: Hallo! Vielleicht kann mir jemand Kundiges hier im Forum zu folgendem Problem eine Lösung anbieten ....? Ich erhalte jeden Monat von einem Obst-/Gemüselieferanten eine Preisliste mit über 100...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden