office 2003 tabllen kopieren

[schnurzli]

hi enjoy2,

vielen dank für deinen beitrag, jedoch habe ich mein problem wie bereits geschrieben schon gelöst...

die lösung von herbertus war damals auch meine lösung, doch wollte ich das ganze automatisieren, da der benutzer dieser excel-tabelle ein absoluter laie ist (sie hat bisher alles immer auf zetteln eingetragen -> ich schule sie gerade auf den pc um ) -> somit sollte es für den benutzer so einfach wie möglich sein, was ich nun mit folgender lösung geschafft habe...

habe einfach folgenden code bei tabelle als makro angefügt:

Private Sub Worksheet_Activate()  
Dim lngLast As Long  
Dim rngCopy As Range    

With Application  
.ScreenUpdating = False  
.EnableEvents = False  
.DisplayAlerts = False  
.Calculation = xlCalculationManual  
End With    

With Sheets("Tabelle1")    

lngLast = .Cells(Rows.Count, 1).End(xlUp).Row    
If lngLast = 1 Then GoTo ErrExit    
Range("A1:C65536").ClearContents    

Set rngCopy = Union(.Range(.Cells(1, 1), 
.Cells(lngLast, 1)), _  
.Range(.Cells(1, 3), .Cells(lngLast, 3)), _  
.Range(.Cells(1, 6), .Cells(lngLast, 6)))  
rngCopy.Copy  
Range("A1").PasteSpecial xlPasteValues  
Application.CutCopyMode = False    
End With  
 
Range("A:C").Sort _  
Key1:=Range("A2"), _  
Key2:=Range("B2"), _  
Key3:=Range("C2"), _  
Header:=xlGuess    

ErrExit: 
   
If Err.Number > 0 Then  
MsgBox Err.Number & vbLf & Err.Description, , "Fehler"  
Err.Clear  
End If    

With Application  
.ScreenUpdating = True  
.EnableEvents = True  
.DisplayAlerts = True  
.Calculation = xlCalculationAutomatic  
End With    

End Sub

bei klick auf tabelle2 wird der gewünschte bereich aus tabelle1 kopiert und schon ist alles erledigt...