Problem mit Dateiname

• Problem mit Dateiname von Christine vom 17.03.2005 20:26:46
• AW: Problem mit Dateiname - von Mischa Richter am 17.03.2005 20:32:41
  • AW: Problem mit Dateiname - von Christine am 17.03.2005 21:03:02
• ActiveWorkbook.Sheets(sheetname).Unprotect - von Luc :-? am 17.03.2005 22:07:33

Betrifft: Problem mit Dateiname von: Christine
Geschrieben am: 17.03.2005 20:26:46

Hallo,

ich habe ein Problem mit dem Dateinamen. Ich moechte etwas zwischen mehreren Exceldateien kopieren, kann also nicht "ActiveWorkbook" oder so nehmen.
Nun habe ich folgendes gemacht:

Dim filename As String
Dim sheetname As String

filename = ActiveWorkbook.Name
sheetname = ActiveSheet.Name

sheetname.Unprotect

hier bekomme ich aber bereits eine Fehlermeldung "Invalid Qualifier". Wie kann ich denn meine Strings filename und sheetname verwenden?

Vielen Dank schon mal in Voraus :)
Christine

Betrifft: AW: Problem mit Dateiname von: Mischa Richter
Geschrieben am: 17.03.2005 20:32:41

hi,
mit: sheetname = ActiveSheet.Name
haste in der variablen ja nur den string, kein objekt, mit demdu arbeitenkannst.

versuche folgendes:

Sub t1()
    Dim xlwkb As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Set xlwkb = ActiveWorkbook
    'MsgBox xlwkb.Name
    
    Set xlSheet = ActiveWorkbook.ActiveSheet
    'MsgBox xlSheet.Name
    '######################################
    xlSheet.Unprotect
    '######################################
    
    Set xlwkb = Nothing
    Set xlSheet = Nothing
End Sub

Betrifft: AW: Problem mit Dateiname von: Christine
Geschrieben am: 17.03.2005 21:03:02

Vielen Dank Mischa! :)

Es funktioniert. Da waere ich im Leben nicht drauf gekommen.

LG
Christine




Betrifft: ActiveWorkbook.Sheets(sheetname).Unprotect von: Luc :-?
Geschrieben am: 17.03.2005 22:07:33

Hallo Christine & Mischa,
das würde reichen. Es fehlte ja nur das Objekt wie bereits erkannt!
Gruß Luc

Beiträge aus den Excel-Beispielen zum Thema "Problem mit Dateiname"