Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige