Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Probleme mit excel

Forumthread: Probleme mit excel

Probleme mit excel
08.11.2004 14:09:49
joeschi
Hallole,
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme mit excel
xule
So klappt es bei mir

Private Sub CommandButton1_Click()
Dim SheetName As String
Letzte = Sheets(ActiveWorkbook.Sheets.Count).Name
SheetName = InputBox("Neues Arbeitsblatt", "Name des neuen Arbeitsblattes?")
If SheetName <> "" Then
Sheets("Muster").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = SheetName
End If
Sheets(SheetName).Range("A1").Value = Sheets(Letzte).Range("A1").Value
End Sub

Anzeige
AW: Probleme mit excel
joeschi
scheint zu funktionieren - muss noch die Zellen anpassen, dann scheint es zu gehen.
ich habe auch versucht irgendwie das letzte arbeitsblatt zu definieren und das neu erstellte mit sheetname anzusprechen, aber das hat nicht funktioniert.
Trotzdem Vielen Dank für die rasche und kompetente Hilfe
Gruss joeschi
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige