Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Excel Makro Code Optimierung Rahmenlinien

Forumthread: VBA Excel Makro Code Optimierung Rahmenlinien

VBA Excel Makro Code Optimierung Rahmenlinien
16.12.2014 10:06:59
braun
Range("CA2:CH2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("CI2:CP2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Guten Morgen :)
Ich habe dieses Makro aufgezeichnet, finde aber für ein paar Rahmenlinien den Code zu lange. Wie kann man diesen optimieren? :)
Vielen Dank im Voraus!

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Excel Makro Code Optimierung Rahmenlinien
16.12.2014 10:14:55
ChrisL
Hi
Sub tt()
Call MachLinien(Range("CA2:CH2"))
Call MachLinien(Range("CI2:CP2"))
End Sub 
Private Sub MachLinien(rng As Range)
With rng
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End Sub

cu
Chris

Anzeige
AW: VBA Excel Makro Code Optimierung Rahmenlinien
16.12.2014 10:47:14
Rudi
Hallo,
z.B. 
  With Range("CA2:CH2")
.Borders.LineStyle = xlContinuous
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
Gruß
Rudi

Anzeige
AW: VBA Excel Makro Code Optimierung Rahmenlinien
16.12.2014 11:17:50
braun
Danke, dass probiere ich gleich mal aus :)
Kann mir noch jemand sagen, warum es mir bei diesem Code die Zeile mit .Font.Color anstreicht?
'Formatierung Rahmenlinien
Zeile = 3
'Bezugsspalte Länge Rahmenlinien
Spalte0 = 78 'frachtpflichtiges Gewicht
Spalte = 82 ' Differenz IE US/HK/MX/SG/KR
Spalte2 = 86 ' Differenz IE CN/BE/AT/PT/RO/IT
Spalte3 = 90 ' Differenz IEF US/HK/MX/SG/KR
Spalte4 = 94 ' Differenz IEF CN/BE/AT/PT/RO/IT
Spalte5 = 79
Do Until Cells(Zeile, Spalte0) = ""
Cells(Zeile, Spalte0).Borders(xlEdgeRight).LineStyle = xlContinuous
Cells(Zeile, Spalte).Borders(xlEdgeRight).LineStyle = xlContinuous
Cells(Zeile, Spalte2).Borders(xlEdgeRight).LineStyle = xlContinuous
Cells(Zeile, Spalte3).Borders(xlEdgeRight).LineStyle = xlContinuous
Cells(Zeile, Spalte4).Borders(xlEdgeRight).LineStyle = xlContinuous
Cells(Zeile, Spalte5).Font.Color = 12712918
Zeile = Zeile + 1
Loop
End Sub

Anzeige
AW: VBA Excel Makro Code Optimierung Rahmenlinien
16.12.2014 12:54:29
Rudi
Hallo,
dafür sehe ich keinen Grund.
Blattschutz?
Gruß
Rudi

AW: VBA Excel Makro Code Optimierung Rahmenlinien
16.12.2014 14:04:44
braun
Nein, Blattschutz ist nicht drin.Ich kann mir einfach nicht erkären, wieso das Makro nicht ausgeführt wird.
Viele Grüße

läuft owT
16.12.2014 14:34:46
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

vba codes verbinden??
alex

Hallo zusammen,
Wie kann man diese Codes kombinieren?
Code 1 (per CommandButton): wird der Bereich A16:L16 im Tabellenblatt „Grundformular“ kopiert und schaltet dann in das Tabellenblatt Übersicht
Sub Eintragungenübernehmen()
Range("A16:L16").Select
Selection.Copy
Sheets...
13.10.2008 23:37:49
Thread-ID: 1016202
5 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
wo VBA code einfuegen? ins modul?
maxx_1985

Hey Leute,
wo muss ich diesen Code einfuegen, damit er funktioniert? doch in kein modul oder?
Private Sub Open_workbook() Const Blattname = "Overview" Dim z As Range With Sheets(Blattname) .Activate Set z = .Range("a:a").Find(What:="=Tue", LookIn:=xlFormulas) If Not z Is Nothing Then...
03.12.2008 16:10:39
Thread-ID: 1029882
10 Beiträge
Anzeige
Brainfuck Code umsetzen in Vba-Code
Reinhard

Hallo Wissende, Brainfuck Code sieht so aus: >++++++++++[-]++++++[-].>++[-].>+++[-]+++[-]+++[-].>++[-].>++++[-]++++ usw. Wobei nur diese acht Regeln gelten: > Inkrementiert den Zellzeiger, quasi Activecell.offset(0,1) http://de.wikipedia.org/wiki/Brainfuck _ In dieser Mapp...
25.12.2008 18:17:00
Thread-ID: 1035219
7 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
VBA-Code für "Suchen in: Formeln"
Wolfango

Hallo Experten,
ich habe folgenden VBA-Code:
Sub nach_DokNr_suchen() Columns("A:A").Select Application.Dialogs(xlDialogFormulaFind).Show End Sub
Leider habe ich von VBA keine Ahnung!!!
Wie muss ich diesen Code ergänzen bzw. erweitern, dass im erscheinenden "Suchen-Dialogfeld...
20.04.2009 14:58:48
Thread-ID: 1069849
5 Beiträge
Schutz von VBA-Codes in Excel
VBA-Codes

Mal eine Frage an die Excel-Profis unter Euch. ;)
Habe nach einer Möglichkeit gesucht für eine umfangreichere VBA-Arbeit meine Codes zu schützen, da Excel selber ja nur rudimentären Schutz bietet der von jedem der sich ein wenig besser auskennt in Sekunden auszuhebeln ist.
Dabei bin ich...
22.04.2009 11:22:36
Thread-ID: 1070279
6 Beiträge
Anzeige
Beim erstellen Tabellenblatt VBA Code eintragen | Herbers Excel-Forum
Robert
Guten morgen Leute,
wer kann mit helfen?
Ich möchte per VBA Code in dem neuer erstellten Tabellenblatt mit Namen XY einen Quellcode
reinschreiben z.b.
in einer Spalte AF addiere Zellen wenn die eine Zahl enthalten.
Mit dank im Voraus
Robert
23.05.2009 09:00:32
Thread-ID: 1076816
22 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Anzeige
VBA Code in Modul der gleichen Datei einfügen
Micha

Hallo,
ich möchte VBA Code in ein Modul der gleichen Datei einfügen. Ich finde überall nur die Möglichkeit, VBA-Code in eine andere Datei einzufügen. (s. Beispiel unten)
Sub neuertest() Open "Probe.txt" For Output As #1 Print #1, "Das ist ein Test" Close #1 End Sub Jemand eine Idee ?
02.11.2009 16:44:25
Thread-ID: 1113889
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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