Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
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
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn in A String, dann Rahmen unten

Forumthread: 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
Anzeige

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
Anzeige
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 :-?
Anzeige
;

Forumthreads zu verwandten Themen

Jüngstes Datum in Textstring ausgeben
Markus

Hallo zusammen,
nachdem meine Netzrecherchen nicht zum Ziel führten, anbei mein erster Beitrag in Form einer Frage...
Zum Hintergrund: Für meine Diplomarbeit hab ich ein Makro geschrieben, welches die Pressemitteilungen (ca. 3000) der Firmen einer Industrie aufbereitet. Hierbei bereinig...
25.08.2008 18:19:00
Thread-ID: 1004535
17 Beiträge
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Blank in String einfügen, wenn ...
Günter

Liebe Excelfreunde,
Freitag und habe noch ein Problem:
In einer Exceldatei mit 40.000 Einträgen habe ich
in Spalte Namen stehen:
z.B. FranzMüller BergischGladbach Neufundland
Jetzt fehlen teilweise Blanks, wie in diesem Beispiel.
Müßte eigentlich, wie folgt aussehen:
...
26.09.2008 13:27:00
Thread-ID: 1012613
15 Beiträge
Anzeige
Teile eines Strings auslesen
Joachim

Hi,
wie kann ich denn einen Teil eines Strings auf dem Sheet "data" in der Zelle B10 auslesen. und zwar folgender massen:
Die Einträge könnten so aussehen:
GBm123456
ATU12478
GM123587
Dabei interessieren mich aber nur die Buchstaben, ABER der wahrscheinlich Hauptproblem:...
05.12.2008 09:10:18
Thread-ID: 1030353
6 Beiträge
Anzeige
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 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
Variable korrekt als String definieren
Tobias

Hallo Experten,
Ich möchte diese Abfolge als einen String definieren
"ftp -s:" & shortpath & "\sync.txt " & Worksheets("Einstellungen").[A3], showshell

Dim ftp_command As string ftp_command= ?
(Statt der ? die Abfolge in korrekter Syntax)
Oder geht sowa...
07.03.2009 18:59:26
Thread-ID: 1057738
4 Beiträge
Kommagetrente strings in zelle trennen
Tobias

Hallo Profis,
Ich hab was gebastelt, das mir die werte in B als Ordner erstellt
MkDir ThisWorkbook.path & "\" & Cells(i, 1).Value & "\" & Cells(i, 2).Value
funktioniert auch gut, wenn nur 1 ordnername in spalte B steht.
in cells(i.2) stehen aber manchmal auch me...
16.03.2009 03:16:26
Thread-ID: 1060585
3 Beiträge
Anzeige
Mehrere Funde in string unterschiedlich ersetzen
guitarslinger

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in Text in Zellen, in dem an unterschiedlicher Position bis zu zwei Platzhalter eingefügt sind. Diese sehen so aus: {INSERTANS:77822X8X645}
Nun möchte ich den ersten Fund einer solchen Zeichenkette (Identifikation über die Klammer...
22.04.2009 14:20:08
Thread-ID: 1070362
4 Beiträge
Zeichenfolge im Dateinamen ersetzen
Dirk

Hallo Forumsmitglieder,
ich hoffe jemand hat (mal wieder) Lust mir zu helfen!!!!
Der unten teilweise aufgeführte Code benennt Bilddateien.
Der Code funzt soweit auch super. Leider gibt es Dateien, die haben im Namen Text, der noch mit "" ersetzt werden müsste.
Als Beispiel:
...
11.05.2009 15:54:39
Thread-ID: 1074392
6 Beiträge
Nur 50 Zeichen eines Strings auslesen
Kai

Hi,
ich habe in A1 einen String stehen, den möchte ich auslesen und weiter verwerten. Wenn der String aber über 50 Zeiche hat, sollen nur die ersten 50 Zeichen ausgelesen werden, der Rest kann ignoriert werden.
String = Sheets("Daten").Range("A1")
Wie lesen ich diese aus ?
Dank...
20.05.2009 08:15:40
Thread-ID: 1076201
15 Beiträge
Reststring nach bestimmtem String finden
Daniel

Hallo,
wie finde ich den restlichen String nach einem bestimmten String?
z.B. abcdef/xy1
und ich will den rest nach "/xy" finden, in dem fall also 1
oder
abcdef/xy1511
soll 1511 zurück geben.
Wie macht man das via VBA?
Danke,
Daniel
23.07.2009 16:22:42
Thread-ID: 1090868
4 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