Suche VBA-Code: Bedingte Eingabe in ListBox?

Hallo zusammen,

Ich habe eine Excel-Tabelle in der in Spalte M als Text "X" oder "Y" auftauchen. Da ich den Text als Wingdings formatiert habe, sieht man das in Form eines Hakens oder eines X-Symbols. Wenn nun in Zelle M2:M1000 ein "X" steht ist das Fahrrad (steht in Spalte L) schon vergeben und soll nicht in der ListBox angezeigt werden. Sollte z.B. das Dienstfahrrad 1 in einer Zeile ein X haben und in einer anderen Zeile ein Y, dann ist es trotzdem nicht verfügbar und darf nicht in der ListBox angezeigt werden.

Welcher Code muss in die ListBox eingegeben werden, damit diese alle Fahrräder, die ein X in Spalte M haben, aus dem Bestand löscht und nicht in der ListBox anzeigt?

Folgende Fahrräder sind im Bestand: Dienstfahrrad 1 Dienstfahrrad 2 Klapprad Pedelec 1 Pedelec 2

Folgende Fahrräder sollten also im Beispiel meines Screenshots angezeigt werden: Dienstfahrrad 2 Pedelec 2

Etwas kompliziert, aber ich hoffe, dass ihr mich verstehen konntet.

Danke im Voraus!

Beispiel - (programmieren, Microsoft Excel, VBA)

1 Antwort

Ninombre

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

28.12.2016, 13:53

Die Bedingung, ob zu einem bestimmten Fahrrad (bspw. in Spalte A) mindestens ein Eintrag mit X in Spalte B vorhanden ist, kannst Du mit VBA auch mit zählenwenns abfragen:

if WorksheetFunction.CountIfs(Range("A1:A10"), "Rad 1", Range("B1:B10"), "X")>0 then ...

in deinem Fall vermutlich eher mit =0 then ... hinzufügen zur Auswahl

Hallo zusammen,

Wie in den Screenshots zu sehen, programmiere ich aktuell eine Fahrradreservierung in Excel. Es ist soweit alles fertig, bis auf einen Code.

Folgender Code fehlt mir. Im Formular soll man die Daten der gewünschten Ausleihe eintragen (4 Felder --> Abholdatum und -zeit, sowie Rückgabedatum und - zeit). Danach soll mit Klick auf den Button "Verfügbarkeit prüfen" in der ListBox (unter den Eingabefeldern) die Fahrräder angezeigt werden, die an den angefragten Zeitpunkten noch verfügbar sind.

Die vorhandenen Datensätze (die geprüft werden müssen) befinden sich in Tabelle1.

Folgende Fahrräder gibt es allgemein: Dienstfahrrad 1 Dienstfahrrad 2 Klapprad Pedelec 1 Pedelec 2

Meine Bezeichnungen in UserForm 1: 1.TextBox hinter "Abholdatum" = Textbox4 2.TextBox hinter "Abholuhrzeit" = Textbox5 3.TextBox hinter "Rückgabedatum" = Textbox6 4.TextBox hinter "Rückgabeuhrzeit" = Textbox8 5.Button "Verfügbarkeit prüfen" = CommandButton5 6.Listbox mit verfügbaren Fahrrädern = ListBox2

Ich hoffe, mir kann da einer helfen und/oder sogar einen Code schicken.

Danke im Voraus!

...zur Frage

Excel VBA: Wie mach ich aus einem Textfeld ein Suchfeld?

Hallo zusammen,

ich versuche gerade eine Datenbank in Excel anzulegen.

Jetzt möchte ich, dass egal in welchem Textfeld ich einen Suchbegriff eingebe, die entsprechende Spalte in Excel durchsucht wird und mir die Ergebnisse in einer Listbox angezeigt werden. Idealerweise soll man dann auf die Zeile in der Listbox klicken können und die Textfelder in meiner Userform Maske werden automatisch ausgefüllt. Ich bin ein totaler Neuling in Excel VBA und freue mich wenn mir jemand weiterhelfen kann!

Liebe Grüße

...zur Frage

Wenn "Ja" erfüllt ist, Datum automatisch einsetzen lassen und einfrieren?

Moin!

Meine Frage:

Wie lautet der VBA-Code, wenn ich in Spalte S (Besetzte Zellen: S9:S157) "Ja" schreibe, soll in Spalte U in der jeweiligen Zeile das aktuelle Datum automatisch eingesetzt werden und eingefriert werden ohne das es sich am nächsten Tag aktualisiert. Wenn ich eine Zelle in Spalte S die Zelle freilasse, soll in Spalte U automatisch "Nein" erscheinen.

Danke schonmal im Voraus!

Gruß

Luka

...zur Frage

VB.net Listbox mit Access Datenbank verbinden?

Wie kann ich über eine Listbox eine zeile einer Access Datenbank auslesen lassen z. B. wenn ich in der Listbox "1" eingebe, dass mir die zeile mit der Bezeichnung 1 angezeigt wird.

...zur Frage

VBA nur die ersten Unterordner anzeigen lassen?

Hallo,

wie muss ich diesen Code hier umschreiben damit NICHT die Unterordner der Unterordner angezeigt werden, sondern nur die der 'ersten Stufe'.

Also angenommen auf dem Laufwerk C:\ sind die Ordner

A, B, C, D, E

und diese Unterordner von C:\ enthalten jeweils auch Unterordner Namens
aa, bb, cc, dd, ee,

Dann schreibt der bisherige Code

A - aa
bb
cc
dd
ee
B - aa
bb

und so weiter.
Ich brauche aber nur die Ordner A, B, C, D, E und nicht deren Unterordner.

Public Sub OrdnerListen_Start()

Dim fso As Object
Dim strPfad As String

strPfad = "C:\"

With ActiveSheet

.UsedRange.ClearContents

Set fso = CreateObject("Scripting.FileSystemObject")

Call OrdnerListen(fso, strPfad, .Range("A1")) ' Pfad anpassen!

Set fso = Nothing

End With

End Sub

Private Sub OrdnerListen(fso As Object, Ordnerangabe As String, rng As Range, Optional Zeile As Long, Optional Spalte As Long)

On Error Resume Next

Dim o, uo

Set o = fso.GetFolder(Ordnerangabe)

rng.Offset(Zeile, Spalte).Value = o.Name
Zeile = Zeile + 1

For Each o In o.SubFolders

Call OrdnerListen(fso, o.Path, rng, Zeile, Spalte)

Set o = Nothing
Set uo = Nothing

End Sub

...zur Frage

Zeile im VBA Code fixieren?

Hallo,

vielleicht kann mir mal wieder jemand bei einem Excel Problem helfen. Im Netz werde ich nicht fündig :-)

Ich habe in meiner Inventurliste (als Tabelle formatiert mit Ergebniszeile) einen Button eingefügt, der mir automatisch eine neue Zeile hinzufügt. In Zelle B8 zählt mir die Formel =Zeile(B1) die Positionen hoch. Damit er diese aber ordentlich zählt, müsste das Makro immer von der Ergebniszeile aus, eine neue Zeile hinzufügen - tut es aber nicht. Dadurch stimmen die Nummerierungen nicht. Kann man dem Makro sagen, dass er immer von der Ergebniszeile ausgeht, egal in welcher Zelle/Spalte diese steht?

Vielen Dank im Voraus :)

...zur Frage

Exel subtrahieren?

Hallo

Habe 2 Spalten mit Werten z.B. in Zeile 1 Spalte 3 eine Zahl(234567) in Spalte 4 eine Zahl mit (345678)

in Zeile 2 Spalte 3 456789 in Spalte 4 567890

in Zeile 3 Spalte 3 ist leer in Spalte 4 678901

in Zeile 4 Spalte 3 789012 in Spalte 4 890123

in Zeile 5 Spalte 3 901234 ist leer u.s.w.

Habe sie in einer anderen Spalte mit der Formel =INDEX(K:L;(ZEILE()-16)/2+16;REST(ZEILE()-16;2)+1) sortiert

sodas die Zahlen in der Reihenfolge untereinander angezeigt werden und ich sie

subtrahieren kann. Leider werden die

angezeigten Nullwerte mit gerechnet was zu einem falschen Ergebnis führt. Danke im Voraus.

...zur Frage

Excel VBA -> Spalten- und Zeilenlängen und Schriftgröße bestimmen

Hallo,

kleine Frage: (wie) kann man im Code Spalten- und Zeilengröße und Schriftgröße bestimmen? Ich meine damit nicht per Hand oben im Menü selber ändern, sondern direkt im Code eine Zeile und Spalte ansprechen (z.B. Range("A1") = ...) und ihre Zeilen- und Spaltenlängen bestimmen. Das selbe auch für die Schriftgröße!

Kann mir da jemand helfen? Google konnte nichts Produktives liefern -
Code zum Farben einstellen dagegen habe ich erfolgreich gefunden

MfG

...zur Frage

Excel Vba Wert in Bereich prüfen?

Hallo,

ich habe eine Excel Tabelle erstellt, mit verschiedenen Namen und Zeiträumen (von - bis) zu den Namen erstellt. Ich möchte, dass Excel durch einen CommandButton prüft, ob die Zeiträume korrekt eingetragen sind. Zum Beispiel habe ich beim Namen "Fireflice3" einen Zeitraum von 21.04.2016 bis 20.04.2016. Das ist ja aber kein gültiger Zeitraum, da das "von" Datum größer als das "bis" Datum ist. Vba soll hier eine Msgbox zur Warnung ausgeben. Ich weiß wie man diese Programmierung auf einzelne Zellen anwendet.

Bsp. If cells(Zeile, Spalte) >= cells(zeile, Spalte) then Msgbox("ungültiger Zeitraum") End If

Meine Frage bezieht sich darauf, wie ich diesen Code nicht auf einzelne Zellen anwende sondern auf ganze Bereiche. Kann mir da jemand weiterhelfen?

Besten Dank

...zur Frage

Excel-Funktion - Aus zwei Tabellen verschiedene Beträge mit einem Datum vergleichen?

Hallo zusammen,

ich bin Praktikant in einem Unternehmen und muss eine Auswertung durchführen mit einer Excel für meinen Team. Ich bin hier bereits seit einigen Stunden am ausprobieren und schaffe es selber nicht.

Ich habe eine Excel-Datei mit drei Tabellen:

Tabelle 1: Input

Besitzt folgende Spalten:

- Spalte B: Datum

- Spalte C: Time

- Spalte P: Beträge

In der Tabelle 1 habe ich die Ursprungsdaten. Hier kopiere ich alle Daten aus einer anderen Datei rein. Hier sind die Beträge Zeile für Zeile hinterlegt für das jeweilige Datum. (Siehe Bild 1)

Tabelle 2: Manuelle Eingabe

Besitzt folgende Spalten:

- Spalte A: Datum

- Spalte B: K1

- Spalte C: K2

- Spalte D: K3

- Spalte E-I: K4 bis K8

In der Tabelle 2 habe ich die Vergleichsdaten, die wir manuell eingeben müssen. Hier sind die Beträge Spalte für Spalte hinterlegt für das jeweilige Datum. Es kommt manchmal vor, dass am selben Datum mehrere verschiedene Beträge hinterlegt sind.

Tabelle 3: Auswertung

Besitzt folgende Spalten

- Spalte A: Datum

- Spalte C: Status K1

- Spalte E: Status K2

- Spalte G: Status K3

Spalte I, K, M, O, Q: Status K4 bis Status K8

Könntet Ihr mir dabei helfen eine Excel-Funktion aufzubauen, die Einträge aus der Tabelle 1 und Tabelle 2 mit dem jeweiligen Datum und Betrag zwischen Spalte P (Beträge-Tabelle 1) und Betrag Spalten B-I (K1-8 - Tabelle 2) vergleicht und eine Auswertung in die Tabelle 3 in die jeweilige Spalte C bis Spalte Q gibt.

Wenn der Betrag übereinstimmt mit "Korrekt" und wenn Falsch "Fehler"

Tabelle 1 - Input

Tabelle 2 - Manuelle Eingabe

Tabelle 3 - Auswertung

...zur Frage

VBA Code endet?

Hallo zusammen

Ich habe einen VBA Code erstellt, welcher die gesamte Zeile löscht, wenn in der Spalte L "Löschen" steht. Dieser funktioniert auch so weit jedoch endet das Makro bevor alle Zeilen mit "Löschen" gelöscht sind. Und ich muss das Makro mehre Male ausführen damit alle "Löschen" weg sind.

Vielen Dank für eure Antworten

...zur Frage

Hilfe: Java-Code?

Kann einer mir diesen Code ausführlich erklären?

public int gibBesitzer(int zeile, int spalte) {
        int index = zeile*3+spalte;
        return (spielInt>>>2*index & 0b11) - 1;
    }
public void besetzePosition(int zeile, int spalte, int spieler) {
        int index = zeile*3+spalte;
        spielInt &= ~(0b11 << 2*index); // clear
        spielInt |= (spieler+1) << 2*index;
    }

...zur Frage

Doppelte Werte suchen mit zusätzliche Bedingung dann eins löschen?

Hallo zusammen, ich hoffe dass jemand helfen kann weil ich weiß nicht weiter, danke.

Ich habe folgenden Code zum Suchen der Doppeltwerten in Spalte B und dann Löschung der Zeile:

Sub DoppelteZeilenLoeschen()

Dim letzteZeile As Long

Dim Zeile As Long

letzteZeile = Range("B" & Rows.Count).End(xlUp).Row

For Zeile = letzteZeile To 1 Step -1

If WorksheetFunction.CountIf(Range("B1:B" & Zeile), Range("B" & Zeile)) > 1 Then

Rows(Zeile).EntireRow.Delete

End If

End Sub

Jetzt meine Frage:

Was ich kann ich ergänzen, dass eine zweite Bedingung hier abgefragt wird vor der Löschung, also wenn Spalte "B" doppelwert hat dann Spalte "J" vergleichen, wenn Ergebnis der Spalte "J" gleich ist dann Zeile löschen, ansonsten weiter zählen.

Ein Bsp.

Spalte B Spalte J

ABCD 1234
ABCD 1234
ABCD 4567

Hier sollten nur Zeile2 gelöscht werden.

Vielen Dank im Voraus

...zur Frage

Excel Userform Combobox JA/NEIN?

Hallo, mit welchem Code kann ich in Excl Userform eine ComboBox mit JA/NEIN auswählen lassen und es dann automatisch in die letzte freie Zeile der Spalte C eintragen lassen?

Hoffe da kann mir jemand helfen.
LG

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen