Office: Aktuelle Arbeitsmappe

Hallo zusammen,

nachdem ich mit Hilfe von Euch mein vorheriges Problem so gut wie gelöst habe, bleibt doch noch eine Frage offen.

In meinem kleinen Excel-Tool lege ich per VBA und UserFormen einen kleinen Bericht an, der - wenn er fertig ist - als neues Sheet in der aktuellen Arbeitsmappe abgelegt (kopiert) wird.

Routine:

Sheets("Bericht").Activate
ActiveSheet.Select
ActiveSheet.Copy After:=Sheets("Autotexte")
Set wsSheetTemp = ActiveSheet
strName = TextBox17.Value
wsSheetTemp.Name = strName


Wie man vielleicht schon erkennen kann, gibt es da nur ein Problem. Wenn ich diesen Bericht zur weiteren Bearbeitung wieder aufrufe und nach Bearbeitung wieder abspeichern will, ist mir natürlich der zuvor abgelegte Bericht im Wege.

Ich möchte jetzt eine Routine anbringen, die erst mal kontrolliert, ob ein Sheet mit gleichem Namen in der Mappe schon vorhanden ist und dieses ggf. durch das Neue (geänderte) ersetzt.

Vielleicht kann mir da mal jemand auf die Sprünge helfen? Es geht im Grunde dann ja darum, das Alte wegzulöschen und dann erst das Neue reinzukopieren.

Ich habe schon Einiges versucht, komme aber nicht wirklich weiter.

Vielen Dank schon mal

Andreas

:)

 

Hallo Andreas,

Code:

 

Hallo Hajo,

vielen dank für die schnelle Antwort. Wenn ich Deine Routine richtig interpretiere, wird mir damit angezeigt, dass das zu speichernde(kopierende) Sheet bereits vorhanden ist.

Mir geht es eigentlich darum, das das bereits vorhandene Sheet mit dem gleichen Name einfach durch das neue zu ersetzen ist, also das alte weggelöscht wird und anstelle dessen das neue gespeichert wird (da dieses ja dann auf dem neuesten Stand ist)

Danke

Andreas

 

Hallo Andreas,

wo ist das Problem. Ist es nicht vorhanden kopiersrt Du die Tabelle. Ist es vorhanden kopierst Du nur den Inhalt.

 

Hallo Andreas,

Du solltest nicht mehrere Beiträge zu einem Problem eröffnen, da arbeitet dann einer für den Papierkorb.
http://www.ms-office-forum.net/forum...d.php?t=293008

 

Hallo Andreas,

Sub andreas()
Dim objSh As Worksheet
Dim strName As String

strName = TextBox17.Value

Application.DisplayAlerts = False
If SheetExist(strName) Then Sheets(strName).Delete
Application.DisplayAlerts = True

Sheets("Bericht").Copy After:=Sheets("Autotexte")

Set objSh = ActiveSheet

objSh.Name = strName

End Sub

Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean
Dim wks As Worksheet
On Error GoTo ERRORHANDLER
If Wb Is Nothing Then Set Wb = ThisWorkbook
For Each wks In Wb.Worksheets
If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function
Next
ERRORHANDLER:
SheetExist = False
End Function





« Gruß Sepp »

 

Hallo Hajo,

ich dachte, ich hätte durch die Kennzeichnung, dass das Thema erledigt ist, ausreichend klar gemacht, das sich da keiner mehr drum bemühen muß?!

Sollte ich da was falsch gemacht haben, bitte ich um Entschuldigung

Andreas

 

Hallo Andreas,

Dein Beitrag sagt da aber was anderes