Daten übertragen
22.06.2005 15:29:06
Betro
Sub save()
' Datum Makro
' Makro am 22.06.2005 von zander aufgezeichnet
'Nr.
Sheets("Datenbank").Select
Range("Zahl").Select
Selection.Copy
Sheets("Datenbank").Select
Range("Zahl").Value = Range("Zahl").Value + 1
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Else
Range("A2").Select
End If
ActiveSheet.Paste
'Kunden-Daten
Sheets("Eingabe").Select
Range("Firma1").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 1).Select
Else
Range("B2").Select
End If
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("Firma2").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 2).Select
Else
Range("C2").Select
End If
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("Abt").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 3).Select
Else
Range("D2").Select
End If
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("Name").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 4).Select
Else
Range("E2").Select
End If
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("Strasse").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 5).Select
Else
Range("F2").Select
End If
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("PLZ").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 6).Select
Else
Range("G2").Select
End If
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("Ort").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 7).Select
Else
Range("H2").Select
End If
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("Tel").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 8).Select
Else
Range("I2").Select
End If
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("Fax").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 9).Select
Else
Range("J2").Select
End If
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("Mail").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 10).Select
Else
Range("K2").Select
End If
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("Werbung").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 11).Select
Else
Range("L2").Select
End If
ActiveSheet.Paste
'Datum
Sheets("Eingabe").Select
Range("Datum").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 12).Select
Else
Range("A2").Select
End If
ActiveSheet.Paste
'Bearbeiter
Sheets("Eingabe").Select
Range("Bearbeiter").Select
Selection.Copy
Sheets("Datenbank").Select
Range("A1").Select
If Range("A2") <> "" Then
Range("A1").End(xlDown).Select
ActiveCell.Offset(0, 13).Select
Else
Range("A2").Select
End If
ActiveSheet.Paste
Sheets("Eingabe").Select
Range("C2").Select
'Löschen Makro
'Tastenkombination: Strg+n
Range("C2:C12").Select
'Range("A14").Activate
Selection.ClearContents
Range("C2").Select
End Sub