Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1116to1120
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
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn in A String, dann Rahmen unten

Wenn in A String, dann Rahmen unten
Kai
Hi,
ich möchte mit einer Schleife die Spalte A durchsuchen. Überall, wo in Spalte A "Planung" gefunden wird, soll in dieser Zeile die Spalten A bis K mit einem Rahmen (nur unten) versehen werden. Ich habe das mal versucht mit aufzeichnen, das war aber nicht so das wahre:
Dim i
For i = 1 To 20
If ActiveSheet.Cells(i, 1).Value = "Planung" Then
Range("A:K").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End If
Next i
Kann mir jemand weiter helfen ?
Danke

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wenn in A String, dann Rahmen unten
17.11.2009 17:30:08
hary
Hallo Kai
teste mal 

Sub unten()
Dim i
'----löscht erstmal die Rahmen unten--------
With Rows("1:20")
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
' Schleife für Zeile 1 bis 20
For i = 1 To 20
If ActiveSheet.Cells(i, 1).Value = "Planung" Then
Range("A" & i & ":K" & i).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
End If
Next i
End Sub

Gruss hary
Bedingte Formatierung
17.11.2009 17:31:49
Beate
Hallo,
dafür brauchst du kein Makro. Das geht mit bedingter Formatierung:
 ABCDEFGHIJK
1Planung          
2Hallo          
3Hallo          
4Planung          
5Hallo          
6Hallo          
7Hallo          
8Hallo          
9Planung          
10Hallo          

Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
A11. / Formel ist =$A1="Planung"Abc

Guckst du:
Bedingte Formatierung (1) - Grundlagen
Bedingte Formatierung (2) - Beispiele allgemein
Bedingte Formatierung (3) - Weitere Anwendungsbeispiele
!Langsames Excel (2) - Bedingte Formatierung

Gruß,
Beate
Anzeige
Geht das in xl11, BedingtRahmen nur unten,...
17.11.2009 19:58:53
Luc:-?
...Beate?
Xl9 kennt nur Vollrahmen.
Gruß Luc :-?
sicher geht das
17.11.2009 22:26:53
Uduuh
Hallo Luc.
sonst hätte Beate das nicht geschrieben.
Gruß aus’m Pott
Udo

Das es in xl12 geht, war für mich kein...
18.11.2009 00:46:34
Luc:-?
...Maßstab, deshalb meine Frage, Udo!
Allerdings kam mir der Rahmen in xl9 dicker vor als in xl12 (nur dünne Striche), aber das ist ja viell eh wurscht, falls es - wie anzunehmen - in xl11 genauso sein sollte... ;-)
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige