Microsoft Excel

Herbers Excel/VBA-Archiv

Wenn in A String, dann Rahmen unten | Herbers Excel-Forum


Betrifft: Wenn in A String, dann Rahmen unten von: Kai
Geschrieben am: 17.11.2009 17:06:15

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

  

Betrifft: AW: Wenn in A String, dann Rahmen unten von: hary
Geschrieben am: 17.11.2009 17:30:08

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


  

Betrifft: Bedingte Formatierung von: Beate Schmitz
Geschrieben am: 17.11.2009 17:31:49

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


  

Betrifft: Geht das in xl11, BedingtRahmen nur unten,... von: Luc:-?
Geschrieben am: 17.11.2009 19:58:53

...Beate?
Xl9 kennt nur Vollrahmen.
Gruß Luc :-?


  

Betrifft: sicher geht das von: Uduuh
Geschrieben am: 17.11.2009 22:26:53

Hallo Luc.
sonst hätte Beate das nicht geschrieben.

Gruß aus’m Pott
Udo



  

Betrifft: Das es in xl12 geht, war für mich kein... von: Luc:-?
Geschrieben am: 18.11.2009 00:46:34

...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 :-?


Beiträge aus den Excel-Beispielen zum Thema "Wenn in A String, dann Rahmen unten"