Eventuell noch in Arry
23.03.2012 14:53:27
Heinz
Hallo Günter
Eventuell geht das noch in Arry
Sheets(Array("Jänner", "Februar", "März", "April", _
"Mai", "Juni", "Juli", "August", _
"September", "Oktober", "November", "Dezember"))
Grund: Da noch mehrere Sheets mit den Namen existieren,dort sollte aber nicht gelöscht werden.
Danke & Gruß
Heinz
Option Explicit
Public Sub Gh_AusgewähltenMaLoeschenUndInZwischenablage()
Dim i, j
Dim Mitarbeiter, Adresse, MyData
For i = 1 To Sheets.Count
If Sheets(i).Name = ActiveSheet.Name Then
Mitarbeiter = Selection.Text
Set MyData = New DataObject
MyData.SetText Mitarbeiter
MyData.PutInClipboard
Adresse = Selection.Address
For j = i To Sheets.Count
Sheets(j).Range(Adresse).ClearContents
Next
Exit For
End If
Next
End Sub
Public Sub Gh_ZwischenablageAbHierEinfuegen()
Dim i, j
Dim Mitarbeiter, Adresse, MyData
For i = 1 To Sheets.Count
If Sheets(i).Name = ActiveSheet.Name Then
Adresse = Selection.Address
Set MyData = New DataObject
MyData.getfromClipboard
Mitarbeiter = MyData.getText(1)
For j = i To Sheets.Count
Sheets(j).Range(Adresse).Formula = Mitarbeiter
Next
Exit For
End If
Next
End Sub