Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Selection.Borders() Problem in vbs

Forumthread: Selection.Borders() Problem in vbs

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
Anzeige

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

Betreff
Benutzer
Anzeige
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
Anzeige
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
Anzeige
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)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige