Herbers Excel-Forum - das Archiv
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
- 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
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
| |