AW: Werte per Button übernehmen
03.08.2012 00:58:33
Franc
Eventuell so.
Es kopiert die Daten wie du willst und wenn das Blatt in das du die Daten speichern willst nicht existiert kommt eine msgBox und man kann entscheiden ob das Blatt angelegt werden soll (mit kopieren) oder nicht.
Wichtig hieran ist das deine Tabelle1 / da wo die Quelldaten sind wirklich das 1. Blatt ist.
Sub Werte_speichern()
Dim strName As String, strFrage As String, i As Integer
strFrage = "Blatt """ & strName & """ existiert nicht." & Chr(13) & "Soll es angelegt werden?"
strName = Sheets(1).Range("A1")
If strName = "" Then Exit Sub
Sprungmarke1:
For i = 2 To Sheets.Count
If Sheets(i).Name = strName Then
Sheets(1).Range("B1").Copy Sheets(strName).Range("A1")
Sheets(1).Range("B2").Copy Sheets(strName).Range("B1")
Sheets(1).Range("C3").Copy Sheets(strName).Range("C1")
Sheets(strName).Range("E1") = Date
Exit Sub
End If
Next
If MsgBox(strFrage, vbYesNo) = vbYes Then
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = strName
Sheets(1).Select
GoTo Sprungmarke1
End If
End Sub