Tabellen zusammenführen

Sub aa2TabsZu1TabEinLinksEinRechts()

->< < < A N P A S S E N > > >
 Const cBLTNAME_A = erstes Blatt
 Const cBLTNAME_B = zweites Blatt
 Const cSP_LETZTE_ZEILE_BESTIMMEN = 1->Spalte A, aus der die Zeilenanzahl bestimmt wird
->< < < A N P A S S E N  E N D E > > >

 Dim wb As Workbook, wsa As Worksheet, wsb As Worksheet, wsc As Worksheet
 Dim lRowsA As Long, lRowsB As Long, lAnzZeileNeuSeite As Long, x As Long

 Set wb = ActiveWorkbook
 On Error Resume Next
 Set wsa = wb.Worksheets(cBLTNAME_A)
 Set wsb = wb.Worksheets(cBLTNAME_B)
 On Error GoTo 0
 
 If wsa Is Nothing Then
  MsgBox Blatt  & cBLTNAME_A &  in Datei  & wb.Name &  nichtvorhanden.
  GoTo AUFRAEUMEN
 ElseIf wsb Is Nothing Then
  MsgBox Blatt  & cBLTNAME_B &  in Datei  & wb.Name &  nichtvorhanden.
  GoTo AUFRAEUMEN
 End If
 
 Set wsc = wb.Worksheets.Add(After:=wsb)
 
 lRowsA = wsa.Cells(wsa.Rows.Count, cSP_LETZTE_ZEILE_BESTIMMEN).End(xlUp).Row
 If lRowsA = 1 Then
  If wsa.Cells(wsa.Rows.Count, cSP_LETZTE_ZEILE_BESTIMMEN).Value =  Then lRowsA = 0
 End If
 lRowsB = wsb.Cells(wsb.Rows.Count, cSP_LETZTE_ZEILE_BESTIMMEN).End(xlUp).Row
 If lRowsB = 1 Then
  If wsb.Cells(wsb.Rows.Count, cSP_LETZTE_ZEILE_BESTIMMEN).Value =  Then lRowsB = 0
 End If
 If lRowsA <> lRowsB Then
  MsgBox _
   Zeilenanzahl unterschiedlich. & vbLf & vbLf & _
   Datei:  & wb.Name & vbLf & _
   Blatt  & wsa.Name &  :  & lRowsA & vbLf & _
   Blatt  & wsb.Name &  :  & lRowsB
  GoTo AUFRAEUMEN
 ElseIf lRowsA = 0 Then
  MsgBox _
   keine Zeile im Blatt. & vbLf & vbLf & _
   Datei:  & wb.Name & vbLf & _
   Blatt  & wsa.Name &  :  & lRowsA & vbLf & _
   Blatt  & wsb.Name &  :  & lRowsB
  GoTo AUFRAEUMEN
 End If
 
 lAnzZeileNeuSeite = 0
 
 For x = 1 To lRowsA
  
  lAnzZeileNeuSeite = lAnzZeileNeuSeite + 1
  wsa.Activate
  wsa.Rows(x).Copy Destination:=wsc.Rows(lAnzZeileNeuSeite)
  
  lAnzZeileNeuSeite = lAnzZeileNeuSeite + 1
  wsb.Activate
  wsb.Rows(x).Copy Destination:=wsc.Rows(lAnzZeileNeuSeite)
  
 Next
  
AUFRAEUMEN:
 Set wb = Nothing: Set wsa = Nothing: Set wsb = Nothing
End Sub