AW: Dateneingeben, Wegspeichern und wieder eingeben
09.04.2009 13:36:57
Chris
Servus,
als Makro z.B. so:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nachricht As String
If Target.Address = "$B$13" Then
If Target = "" Then Exit Sub
If Target "" Then
If Range("B5") = "" Or Range("B8") = "" Or Range("B7") = "" Or Range("B10") = "" Or Range( _
"B11") = "" Then
MsgBox "Abbruch!" & Chr(13) & Chr(13) & "Es wurden unvollständige Daten eingegeben!", _
vbInformation, "Abbruch"
Target = ""
Exit Sub
End If
Sheets("Alle-Werte").Range("A65536").End(xlUp).Offset(1, 0) = Range("B5")
Sheets("Alle-Werte").Range("B65536").End(xlUp).Offset(1, 0) = Range("B7")
Sheets("Alle-Werte").Range("C65536").End(xlUp).Offset(1, 0) = Range("B8")
Sheets("Alle-Werte").Range("D65536").End(xlUp).Offset(1, 0) = Range("B10")
Sheets("Alle-Werte").Range("E65536").End(xlUp).Offset(1, 0) = Range("B11")
Sheets("Alle-Werte").Range("F65536").End(xlUp).Offset(1, 0) = Range("B13")
nachricht = MsgBox("neue Eingabe?", vbYesNo, "Weiter?")
If nachricht = vbYes Then
Range("B5:B13").ClearContents
Range("B5").Select
Else
Range("B3").Select
End If
End If
Else
Exit Sub
End If
End Sub
das Makro kommt in das Tabellenmodul Werte-Eingabe im VBA-Editor (Alt+F11).
Gruß
Chris