Selection.Borders() Problem in vbs

Forumthread: Selection.Borders() Problem in vbs

Harald

Hallo ihr,
hoffe Ihr könnt mir bei einem Problem helfen.
Programmiere eine Excel Tabelle in vbs!
Bei den folgenden Codezeilen gibt es einen Fehler:
Unbekannter Laufzeitfehler
Exsheet....Excel-Application
Exsheet.Range("A1:U42").Select
Exsheet.Selection.Borders(xlDiagonalDown).LineStyle = xlNone'|
Exsheet.Selection.Borders(xlDiagonalUp).LineStyle = xlNone '|- Fehler
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Hoffe Ihr könnt mir helfen ist sehr dringend!
im voraus danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Selection.Borders() Problem in vbs

ANdreas

Hallo Harald,
mal im voraus, versuch ohne Select zu arbeiten:
With Exsheet.Range("A1:U42")
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeLeft).ColorIndex = xlAutomatic
End With
Zu Deinem Problem, also bei mir funktioniert der Code. Welcher Fehler taucht denn genau auf? Wie hast Du Exsheet deklariert und gesetzt? Eventuell Blattschutz?
Gruß
Andreas

AW: Selection.Borders() Problem in vbs

Harald

Hi habe deinen vorschlag ausprobiert! Funktioniert nicht bei mir!
Es tritt der Fehler auf: Unbekannter Laufzeitfehler Zeile 38 Zeichen 1
Hier mein Programmcode:
Dim Exsheet 'Excelfile
Dim Saveform 'Filename
Dim InpStr
Dim aktDate
'****************Erstellen des Filenamens***************************************
Saveform = CStr(year(date)) + "_" + CStr(month(date)) + "_Regelblatt13.xls"
'****************Datumseingabe**************************************************
'InpStr = InputBox("Bitte gewünschtes Monat eingeben (MM.YYYY)!", "Monatseingabe")
aktDate = InpStr
'****************Excel file erstellen********************************************
Set Exsheet = WScript.CreateObject("Excel.Application")
'****************Excel File Visible schalten*************************************
Exsheet.Visible = TRUE
'****************Arbeitsmappe erstellen******************************************
Exsheet.WorkBooks.Add
'****************Tabellenblatt erstellen*****************************************
Exsheet.Worksheets.Add
'****************Tabellen umbenennen*********************************************
Exsheet.Worksheets(1).Name = "Blatt 1"
Exsheet.Worksheets(2).Name = "Blatt 2"
Exsheet.Worksheets(3).Name = "Blatt 3"
Exsheet.Worksheets(4).Name = "Blatt 4"
'++++++++++++++++Blatt 1 einrichten++++++++++++++++++++++++++++++++++++++++++++++
'****************Außenrand erstellen*********************************************
With Exsheet.Range("A1:U42")
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeLeft).ColorIndex = xlAutomatic
End With
mfg
Harald

AW: Selection.Borders() Problem in vbs

06.04.2004 11:37:57

ANdreas

Hallo Harald,
der Fehler liegt vermutlich an fehlerhafter Referenzierung.
versuch mal:
with Exsheet.ActiveWorkbook.Worksheets(1).Range("A1:U42")
Hoffe das hilft weiter,
Andreas

Beliebteste Forumthreads (12 Monate)

Selection.Borders() Problem in vbs

Forumthread: Selection.Borders() Problem in vbs

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread