Daten in eine Tabelle auf einem anderen Laufwerk k
juergenklein
die folgende Prozedur führt dazu, dass die Daten aus der Tabelle "amtsger" kopiert und in eine Tabelle "Statistik" im selben Ordner von links nach rechts um jeweils eine Zelle versetzt eingefügt werden. Wie funktioniert diese Prozedur aber, wenn sich die Tabelle "Statistik" auf einem anderen Laufwerk in einem anderen Orndner befindet.
Sub amtsger_drucken()
'Daten in Statistik übertragen
Prompt = "Sollen die Daten in die Statistik übertragen werden?"
Stil = vbYesNo + 32
Title = "Ein Fall für die Statistik?"
Ergebnis = MsgBox(Prompt, Stil, Title)
Select Case Ergebnis
Case vbNo
GoTo drucken
End Select
E = Sheets("Statistik").Range("Eintragungen") + 1
Sheets("Statistik").Select
Range("Start").Select
ActiveCell.Activate
ActiveCell.Offset(E, 0).Activate
Sheets("amtsger").Range("Datum").Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveCell.Offset(0, 1).Activate
Sheets("amtsger").Range("Aktenzeichen").Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveCell.Offset(0, 1).Activate
Sheets("amtsger").Range("Schuldner").Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveCell.Offset(0, 1).Activate
Sheets("amtsger").Range("Betrag").Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveCell.Offset(0, 1).Activate
'Ende Daten in Statistik übertragen
drucken:
Sheets("amtsger").Select
ActiveSheet.PrintOut Copies:=1
Sheets("Verfügung").Select
ActiveSheet.PrintOut Copies:=1
Sheets("Eingabe").Select
Range("B1").Select
End Sub
Gruß Jürgen
Anzeige