Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1696to1700
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
1696to1700
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farblich unterlegte Zeilen rückgängig machen

Farblich unterlegte Zeilen rückgängig machen
22.06.2019 16:43:32
chris58
Hallo !
Ich habe diesen Code im Internet gefunden und will nachfragen ob Ihr mir helfen könntet. Ich möchte nach dem Eintragen in die Liste und anschliessendem Suchen einer Rechnung, welche die Zeile in Geld hinterlegt, das die Zeile nach dem schliessen keine Markierung enthält, jedoch der Eintrag bestehen bleibt. Die Zeile sollte von Spalte A bis Spalte F gelb hinterlegt sein. Ersuche um Hilfe
Danke
chris
Hier die Datei:
https://www.herber.de/bbs/user/130536.xls

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farblich unterlegte Zeilen rückgängig machen
22.06.2019 16:48:57
Hajo_Zi
Hallo Chris,
bei mir wird kein Bereich markiert, da Variable markRange Leer.
Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Farblich unterlegte Zeilen rückgängig machen
22.06.2019 20:57:41
chris58
Hallo !
Danke, das geht perfekt. Eines Bitte hätte ich noch.
Kann man in den Code noch einbauen, das beim Schliessen sortiert wird. Also der jüngst Eintrag oben steht und dann beim schliessen ohne Nachfrage gespeichert wird ?
Danke im voraus chris
AW: Farblich unterlegte Zeilen rückgängig machen
22.06.2019 22:21:39
onur
Für die Zukunft: Ein Problem - Ein Thread.
https://www.herber.de/bbs/user/130540.xls
Ich habe noch geändert, daß Groß-/ Kleinschreibung unwichtig für die Suche ist.
Anzeige
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 08:30:23
chris58
Hallo !
Das geht nicht. Beim schliessen wird auf den VBA Code verwiesen. 
Sub sort()
Dim rng, lz
With Worksheets("Rechnungen")
lz = .Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range(.Cells(1, 1), .Cells(lz, 6))
Worksheets("Rechnungen").sort.SortFields.Clear
Worksheets("Rechnungen").sort.SortFields.Add2 Key:=Range("A2:A" & lz), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
End With
With ActiveWorkbook.Worksheets("Rechnungen").sort
.SetRange Range("A1:F" & lz)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Anzeige
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 11:47:00
onur
WELCHE FEHLERMELDUNG?
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 16:01:42
chris58
Hallo !
da bleibt der Code stehen.
Worksheets("Rechnungen").sort.SortFields.Clear
chris
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 16:02:24
onur
NOCH MAL: WELCHE FEHLERMELDUNG?
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 16:04:37
chris58
Meinst du diesen ?
Laufzteitfehler 438
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 16:06:15
onur
Und weiter ?
Das ist doch nicht die GANZE Meldung.
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 16:12:20
chris58
Objekt unstützt diese Eigenschaft oder Methode nicht.
gehe dann auf Debuggen und dann steht der Code bei 
Sub sort()
Dim rng, lz
With Worksheets("Rechnungen")
lz = .Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range(.Cells(1, 1), .Cells(lz, 6))
  Bei dieser Zeile:
Worksheets("Rechnungen").sort.SortFields.Clear
Worksheets("Rechnungen").sort.SortFields.Add2 Key:=Range("A2:A" & lz), SortOn:=xlSortOnValues,  _
Order:=xlAscending, DataOption:= _
xlSortNormal
End With
With ActiveWorkbook.Worksheets("Rechnungen").sort
.SetRange Range("A1:F" & lz)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Dann geh ich auf Schliessen ohne speichern und die Datei ist geschlossen.
chris
Anzeige
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 16:16:37
onur
Was für eine Excel-version hast du?
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 16:27:53
chris58
Excel 2003
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 16:35:02
onur
Ersetze mal überall
.sort
durch das hier:
.Autofilter.sort
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 16:52:02
chris58
Leider, das geht auch nicht.
Danke jedenfalls für Deine Mühe
chris
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 16:56:03
onur
Dann nimm entweder Daniels Vorschlag oder sortiere mal mit dem Makrorecorder und nimm das als Makro.
Sortieren in Excel 2003
23.06.2019 16:46:01
Daniel
Hi
in Excel 2003 gilt noch die alte Sortierfunktion mit maximal 3 sortierkriterien.
da reicht dann folgender Code:
With Sheets("Rechnungen").Range("A:F")
.Sort Key1:=.Cells(1, 1), order1:=xlascending, header:=xlyes, Orientation:=1
End with
Gruß Daniel
Anzeige
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 08:31:19
chris58
Hallo !
Das geht nicht. Beim schliessen wird auf den VBA Code verwiesen. 
Sub sort()
Dim rng, lz
With Worksheets("Rechnungen")
lz = .Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range(.Cells(1, 1), .Cells(lz, 6))
Worksheets("Rechnungen").sort.SortFields.Clear
Worksheets("Rechnungen").sort.SortFields.Add2 Key:=Range("A2:A" & lz), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
End With
With ActiveWorkbook.Worksheets("Rechnungen").sort
.SetRange Range("A1:F" & lz)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Anzeige
AW: Farblich unterlegte Zeilen rückgängig machen
23.06.2019 16:20:53
Daniel
Hi
die Frage ist, warum du für das ganze überhaupt einen Makrocode verwendest.
1. markiere die Spalten A:F und richte für sie folgende Bedingte Formatierung ein, mit dieser Formel als Regel und dem gelben Hintergrund als Format:
=ZählenWenn($C1;$G$1)
2. schreibe in die Zelle G1 den Namen der gesuchten Firma, auch mit Jokerzeichen.
wenn die Makierung wieder weg soll, einfach die Zelle G1 wieder leeren.
Gruß Daniel

45 Forumthreads zu ähnlichen Themen

Einfügen und STRG+V funktioniert hier nicht mehr
Joachim

Hi,
ich habe auf einem sheet ein paar Buttons und möchte damit erreichen, das die Buttons, wenn ich in dem Sheet nach rechts scrolle, und ich auf das sheet klicke, dass sie sich immer innerhalb meines Monitors platzieren, also mitwandern:
Private Sub Worksheet_SelectionChange(ByVal Ta...
06.12.2008 21:34:12
Thread-ID: 1030749
8 Beiträge
Anzeige
laufzeitfehler 9: plötzlich gehts nicht mehr
Andreas

hallo, habe mal ein makro bekommen das auf knopfdruck daten von einer txt-datei in ein excel blatt übernimmt. hat alles prima funktioniert, jahre lang. jetzt habe ich excel neu installiert, und es kommt folgender fehler:
laufzeitfehler 9: index außerhalb des gültigen bereichs
und wenn i...
27.11.2009 18:12:20
Thread-ID: 1120603
6 Beiträge
Uhrzeiten-Shortcut STRG + UMSCH + : geht nicht
Elmar

Hallo,
ich sitze gerade an einem fremden REchner, muss ständig die aktuellen Uhrzeiten eintragen und habe das immer bisher mit der Tastenkombi gemacht.
STRG + . geht, da kommt das heutige Datum
STRG + UMSCH + : da kommt gar nichts
Der Doppelpunkt alleine kommt schon (UMSCH + :)...
28.01.2010 14:46:55
Thread-ID: 1133795
4 Beiträge
Anzeige
Zellen formatieren geht nicht mehr
Pepi

Hallo zusammen
Ich kopiere mit einem Makro Zellbereiche von einer Tabelle in eine Andere (neue Datei).
Nach dem ich die neue Datei gespeichert habe kann ich in den Menüs Start - Schriftart / Ausrichtung / Zahl
Bereiche meiner neuen Tabelle markieren und formatieren - doch sobald ich...
16.08.2010 14:33:40
Thread-ID: 1172430
6 Beiträge
Strg+f trotz Blattschutz
Dietmar

Hallo zusammen,
gibt es eine Möglichkeit die Suchfunktion "Strg+f" trotz Blattschutz zu nutzen?
Danke!
Viele Grüße
Dietmar aus Aachen
28.10.2010 16:03:17
Thread-ID: 1184310
8 Beiträge
Zellen formatieren geht nicht mehr
Pepi

Hallo zusammen
Bei der angehängten Tabelle kann innerhalb des Datenbereichs plus 1 Zeile/Spalte (rot) nicht formatiert werden
Start - Schriftart / Ausrichtung / Zahl oder rechte Maustaste
Die Tabelle wurde mit einem Makro erstellt - auch Speicherung unter Office 2007 ändert nichts....
16.11.2010 10:28:31
Thread-ID: 1187005
3 Beiträge
Modul Zeilenhöhe und Zeilenbreite geht nicht mehr
Paul

Hallo,
ich habe ein Problem mit einem Modul. Unter XP und Opice XP hat es noch einwandfrei funktioniert. Nun aber nicht mehr.
Kann jemand helfen?
Paul
--------------------------
Option Private Module
'Zeigt Spaltenbreite und Zeilehhöhe in cm an
'Die gewünschte Spalte...
23.01.2011 09:16:12
Thread-ID: 1196745
6 Beiträge
OnKey Belegung 'ALT + v' funktioniert nicht
Andreas

Hallo Herber Fans,
ich bin gerade auf ein krudes Problem gestoßen. Ich versuche in Excel den ShortCut Alt + v zu belegen, aber es klappt nicht. Wenn ich einen anderen Buchstaben verwende, dann funktioniert es. Aber ich habe durch Recherchen nicht ermitteln können, daß diese Tastaturkombinat...
17.10.2011 16:11:57
Thread-ID: 1234230
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
7
5
3
3
5
7
2
5
4
6
4
2
4
6
6
1
1
3
2
8
3
5
5
1