Probleme mit excel
08.11.2004 14:09:49
joeschi
ich möchte auch mal um hilfe nachfragen zu folgendem problem:
ich habe eine arbeitsmappe mit einem ursprungstabellenblatt und einem musterblatt.
dann habe ich ein makro das ein neues blatt basierend auf Muster kopiert und hinter das ursprungstabellenblatt einfügt und umbenennt. Das funktioniert auch so weit, jetzt zu dem problem.
Der Wert aus einer Zelle des letzten Tabellenblattes soll in die Zelle in dem neu eingefügten Blatt kopiert werden. Also ein Zugriff auf das letzte Tabellenblatt (active.sheet.count) und das neuerstellte (sheet.sheetname) aber das funktioniert nicht.
Ich füge mal die Kopierfunktion an, vielleicht hilfts.
>>
Private Sub CommandButton1_Click()
>>Dim SheetName As String
SheetName = InputBox("Neues Arbeitsblatt", "Name des neuen Arbeitsblattes?")
If SheetName <> "" Then
Sheets("Muster").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = SheetName
End If
>>End Sub