Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform aus ListBox Zeile in Tabelle farbig markieren

Forumthread: Userform aus ListBox Zeile in Tabelle farbig markieren

Userform aus ListBox Zeile in Tabelle farbig markieren
28.04.2024 01:34:12
br0xy
Hallo zusammen,

ich hoffe man kann mir hier mit meinem Problem helfen :)

Und zwar wenn ich die Userform "Reparatur/Sperren" anwähle, wird mir in der Listbox alle Zeilen aufgelistet die in Tabelle1 sind, soweit funktioniert auch alles. Wenn eine Zeile Gesperrt wird, wird die Sperrung in Tabelle2 eingefügt, so ist es auch gewollt. Meine Frage nun: Besteht die Möglichkeit die Zeilen die in Tabelle2 zur Reparatur verschoben wurden in der Tabelle1 noch rot zu markieren?

https://www.herber.de/bbs/user/169108.xlsm
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Userform aus ListBox Zeile in Tabelle farbig markieren
28.04.2024 08:18:43
Alwin Weisangler
Hallo,

das sollte deine Frage beantworten. 


Private Sub CommandButtonSperren_Click()

'Erste freie Zeile ausfindig machen

    Dim last As Integer, iZeile&

    last = Sheets("Reparatur - Gesperrt").Cells(Rows.Count, 1).End(xlUp).Row + 1

    If ListBox1.ListIndex = -1 Then Exit Sub

    iZeile = ListBox1.ListIndex

    

    Tabelle1.ListObjects(1).DataBodyRange.Rows(iZeile).Interior.Color = vbRed



    

    'Nummer

    Sheets("Reparatur - Gesperrt").Cells(last, 1).Value = TextBox1.Value

    '.x

    Sheets("Reparatur - Gesperrt").Cells(last, 2).Value = TextBox2.Value

    'Kategorie

    Sheets("Reparatur - Gesperrt").Cells(last, 3).Value = TextBox3.Value

    'Herstellerbezeichnung

    Sheets("Reparatur - Gesperrt").Cells(last, 4).Value = TextBox4.Value

    'Lagerort

    Sheets("Reparatur - Gesperrt").Cells(last, 5).Value = TextBox5.Value

    'Bemerkung

    Sheets("Reparatur - Gesperrt").Cells(last, 6).Value = TextBoxGrundSperrung.Value

    'Gesperrt durch

    Sheets("Reparatur - Gesperrt").Cells(last, 7).Value = ComboBoxGesperrtdurch.Value

     

    Unload ReparaturSperren

End Sub

Eigentlich kann man es viel simpler haben, als die Krücke über die Textboxen zu benutzen.
Des Weiteren ist der Code nicht für formatierte Tabellen (Listobjects) geschrieben worden, welchen du aus dem Netz gefischt hast.
Ich baue dir das nachher mal so um.

Gruß Uwe
Anzeige
AW: Userform aus ListBox Zeile in Tabelle farbig markieren
28.04.2024 10:06:54
Alwin Weisangler
Hallo,

anbei mal mein Vorschlag wie ich es machen würde.
Dazu habe ich den Code für die Verarbeitung von Listobjects geschrieben.
Die Markierung der gesperrten Werkzeuge ist mit bedingter Formatierung angelegt und reagiert auf "Ja" in der letzten Spalte.
Im Eingabeformular war noch eine Textbox "Artikelnummer". Die fehlende Spalte habe ich in der Tabelle ergänzt.
Teste mal.
https://www.herber.de/bbs/user/169110.xlsm

Gruß Uwe
Anzeige
AW: Userform aus ListBox Zeile in Tabelle farbig markieren
28.04.2024 10:23:35
br0xy
Guten Morgen Uwe,

vielen Dank, so habe ich mir das vorgestellt! Ja habe gestern Stunden hier im Forum verbracht und mir so einige Codes zusammen gefischt :D Aber ein sehr Interessantes Thema das VBA, werde da mal dran bleiben. Dir nochmals vielen Dank und ein schönen Sonntag. LG
AW: Userform aus ListBox Zeile in Tabelle farbig markieren
28.04.2024 10:45:06
br0xy
Hallo Uwe, ich bin's doch nochmal. Leider markiert er mir nicht die richtige Zeile in der Tabelle die in der Listbox angewählt wurde. Könntest du dir es nochmal anschauen?
Anzeige
AW: Userform aus ListBox Zeile in Tabelle farbig markieren
28.04.2024 11:39:02
Alwin Weisangler
Hallo,

ja du hast recht. Ich hatte die Werte der Spalte "Nr" als Index verwendet. Da sind aber Mehrfachvorkommen drin.
Jetzt wird die Zeilennummer mitgegeben, so dass eine eindeutige Zuordnung sichergestellt ist.

ins Modul der Userform ReparaturSperren: 


Option Explicit

    Private arrSperre()



Private Sub CommandButtonSperren_Click()

    If ListBox1.ListIndex = -1 Then Exit Sub

    With ListBox1

        arrSperre = Array(.List(.ListIndex, 1), .List(.ListIndex, 2), .List(.ListIndex, 3), .List(.ListIndex, 4), .List(.ListIndex, 6), TextBoxGrundSperrung.Value, ComboBoxGesperrtdurch.Value)

    End With

    

    Tabelle5.ListObjects(1).ListRows.Add.Range.Resize(1, UBound(arrSperre) + 1) = arrSperre

    Tabelle1.ListObjects(1).DataBodyRange.Cells(ListBox1.List(ListBox1.ListIndex, 0), 7) = "Ja"

End Sub



Private Sub UserForm_Initialize()

    Dim i&, arrSP(), arr(): arr = Tabelle1.ListObjects(1).DataBodyRange.Value: arrSP = Array(0, 25, 50, 125, 210, 0, 100, 0)

    arr = Application.Index(arr, Evaluate("row(1:" & UBound(arr, 1) & ")"), Array(1, 1, 2, 3, 4, 5, 6, 7))

    For i = 1 To UBound(arr)

        arr(i, 1) = i

    Next i

    With ListBox1

        .List = arr

        .ColumnCount = UBound(arrSP) + 1

        .ColumnWidths = Join(arrSP, "; ")

    End With

    ComboBoxGesperrtdurch.List = Array("MA1", "MA2", "MA3")

End Sub


Gruß Uwe

Anzeige
AW: Userform aus ListBox Zeile in Tabelle farbig markieren
28.04.2024 15:17:37
br0xy
Vielen Dank nochmals! Hat alles super geklappt und es sieht jetzt auch sehr ordentlich Codiert aus :)

Forumthreads zu verwandten Themen

ausgewählte Zelle hervorheben
Frank

Hallo Cracks,
ich suche eine Möglichkeit eine markierte Zelle auf einem Arbeitsblatt kenntlich zu machen. Habe schon mal gesehen das die Zeile und Spalte in der die markierte Zelle liegt farblich hervorgehoben werden. Da die Zellen in meinem Arbeitsblatt aber alle farblich ausgefüllt sind k...
26.08.2009 13:29:39
Thread-ID: 1098756
13 Beiträge
Zeile farbig markieren
Peter

Hallo,
ich möchte die Zeile, in der ich etwas verändere, farbig hervorheben. Mit _
Worksheet_SelectionChange geht das ja recht einfach. Die zuvor markierte Zeile soll dabei _ wieder entmarkiert werden. Wenn ich aber die Anweisungen Private Sub Worksheet_SelectionChange … benutze ka...
29.08.2009 20:01:11
Thread-ID: 1099349
7 Beiträge
Zeilen farbig markieren
Frank

Guten Abend und Hallo,
Ich habe eine ComboBox die mit Werten Zahlen gefüllt ist. Wenn ich nun einen Wert auswähle wird diese entsprechende Zeile in Excel markiert. ABer wie erreiche ich, dass sobald ich die nächste wähle, die alte Zeile ohne Farbe angezeigt wird?
Private Sub ComboBox1_C...
22.09.2009 21:39:28
Thread-ID: 1104753
7 Beiträge
Zeilen farbig markieren
Martin

Hallo,
ich habe folgendes Problem und zwar habe ich in Excel eine Liste mit Namen, Anschrift etc. in Excel, alles Zeilenweise angeordnet. Ich möchte nun die Zeilen farbig markieren wo ich selbst immer ein X dahinter setze, die Zeilen wo dann kein X auftaucht sollen nach Möglichkeit eine an...
11.01.2010 04:29:54
Thread-ID: 1128778
2 Beiträge
Anzeige
Zeilen teilweise farbig markieren
reiner

guten Morgen,
die Variable "MarkZeile" enthält Zeilennummern die aufgrund vorgegebener Kriterien in folgender Form (Beispiel) "$10:$10,$27:$27,$52:$52,$80:$80" ermittelt wurden.
Mit Range(MarkZeile).EntireRow.Select
werden diese Zeilen komplett markiert und farbig eingefärbt. Ich...
11.01.2013 09:30:21
Thread-ID: 1293781
9 Beiträge
ausgewählte Zellen farbig markieren
Klaus

Hallo,
ich habe hier im Forum das Modul gefunden mit dem man die ausgewählten Zellen farbig unterlegen kann. Ich habe nur ein Problem damit. Die Arbeitsmappe mit der ich diese Funktion nutzen möchte ist geschützt. Ist es irgendwie möglich, das wenn geschützte Zellen angewählt werden der Sta...
27.01.2014 10:08:54
Thread-ID: 1346811
5 Beiträge
Zeile Farbig markieren Wenn Wert 1250 & Höher Ist
Leo

Tag Excel Cracks,
ich raff es einfach nicht,
was ich wie machen muss damit mir die E SPALTE bei einem Wert von 1250 & höher farbig (am besten in ROT) selbstständig automatisch aufgefüllt wird !?
Hier meine Vorarbeit ...
@ https://www.herber.de/bbs/user/93321.xls
Für Eur...
23.10.2014 17:44:34
Thread-ID: 1388295
5 Beiträge
Zeile farbig markieren bei jedweder Änderung
Montimontt

Hallo,
in eine leere Tabelle einer xlsx werden aus einer anderen Datei Werte hinein kopiert (Strg + V in Zelle A1).
Wenn anschließend in einer der Zellen eine Änderung des Inhalts vorgenommen wird, soll die gesamte jeweilige Zeile farbig markiert werden.
Ist dies möglich?
Danke...
03.09.2015 15:06:15
Thread-ID: 1445821
2 Beiträge
Zeile farbig markieren bei jedweder Änderung
Montimontt

Hallo,
in eine leere Tabelle einer xlsx werden aus einer anderen Datei Werte hinein kopiert (Strg + V in Zelle A1).
Wenn anschließend in einer der Zellen eine Änderung des Inhalts vorgenommen wird, soll die gesamte jeweilige Zeile farbig markiert werden.
Ist dies möglich?
Danke...
03.09.2015 15:25:08
Thread-ID: 1445831
4 Beiträge
Zeilen farbig markieren
Heinz Bucher

Hi Profis,zur optischen Unterstützung wäre es äußerst hilfreich, wenn die Zeile, in welcher ich mich gerade befinde, farblich hervorgehoben
wäre.Gibt es irgendetwas, was automatisch beim Start von Excel (also ohne
viel rumgeklicke und nachfragen ob ´Ja´ oder ´Nein´)so eine
Farbunterstü...
05.08.2002 19:24:07
Thread-ID: 145059
8 Beiträge
Zeile / Spalten Problem beim farbigen markieren
Tom

Hallo,
hab folgendes Problem:
Die Zaheln aus den Zellen in zwei Zeilen sollen auf verglichen werden und basierend auf dem Ergebnis soll dann in einer Spalte ein Eintrag rot oder grün hinterlegt werden.
Also Bsp.:
Zeile 1:
E4 F4 G4 H4 usw.
3 4 1 5
Zeile 2:
02.02.2016 09:11:28
Thread-ID: 1472600
5 Beiträge
Bestimmte Zelle in aktiver Zeile markieren
Micha

Hallo Exceler,
habe ein kleines Problem vieleicht könnt ihr mir helfen!?
Ich habe ein Marko mit dem ich in einer aktiven Zeile 2 bestimmte Zellen markiere.
Das 1. Problem ist, wenn die Datei gespeichtert und wieder geöffnet wird, bleibt die alte Markierung aktiv, sobald man in eine...
09.02.2016 11:44:56
Thread-ID: 1474271
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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