Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
1808to1812
1808to1812
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

inhalt Listbox1 in bestimmten Bereich

Forumthread: inhalt Listbox1 in bestimmten Bereich

inhalt Listbox1 in bestimmten Bereich
06.02.2021 14:40:43
Benedikt
Hallo zusammen
Der angewählte Artikel in einer listbox soll in die nächste freie Zelle im Bereich B24:B49 eingefügt werden.
Wenn zusätzlich Checkbox1 angeklickt ist soll zudem in der gleichen Zeile eine Formel in Spalte L eingetragen werden.
Ich habe es so versucht ist aber nicht 100 befriedigend:
Private Sub ListBox1_Click() ' Einfügen nächste freie Zelle in definiertem Bereich
a = Range("B24:B49").End(xlDown).Row
Range("B" & a).Offset(1, 0).Select
ActiveCell = ListBox1
If CheckBox1.Value = True Then
ActiveCell.Offset(0, 10).Select
ActiveCell.Font.ColorIndex = 3
ActiveCell.FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC[-10],'2020.xlsm'!Daten,6,FALSE)),0,VLOOKUP(RC[-10],'2020.xlsm'!Daten,6,FALSE))"
End If
CheckBox1 = False
Vielen dank für Hilfe
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: inhalt Listbox1 in bestimmten Bereich
06.02.2021 15:03:13
Hajo_Zi
in Deinem Code vermisse ich Find um die nächste freie Zelle zu finden.

AW: inhalt Listbox1 in bestimmten Bereich
06.02.2021 15:27:11
Werner
Hallo,
meinst du so was? 
Private Sub ListBox1_Click()
Dim a As Long
a = Cells(Rows.Count, "B").End(xlUp).Offset(1).Row
Cells(a, "B") = ListBox1
If CheckBox1 Then
Cells(a, "L").FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-10],'2020.xlsm'!Daten,6,FALSE)),0,VLOOKUP(RC[-10]," _
& "'2020.xlsm'!Daten,6,FALSE))"
Cells(a, "L").Font.ColorIndex = 3
CheckBox1 = False
End If
End Sub
Gruß Werner
Anzeige
AW: inhalt Listbox1 in bestimmten Bereich
06.02.2021 16:56:35
Benedikt
Besten Dank Werner für deine Arbeit
Er liest die Daten ein, Checkbox funktioniert auch aber er liest nicht im Bereich B24:B49 ein, sondern eben in die erste freie Zelle in der Spalte B
AW: inhalt Listbox1 in bestimmten Bereich
06.02.2021 17:49:52
Werner
Hallo,
es soll also immer die erste freie Zelle im Bereich B24:B49 als Ausgabe genommen werden.
Sprich erste Möglichkeit wäre B24 und die letzte Möglichkeit wäre dann B49?
Was ist, wenn der Bereich komplett gefüllt ist?
Gruß Werner
Anzeige
AW: inhalt Listbox1 in bestimmten Bereich
06.02.2021 18:23:10
Benedikt
Danke Werner, da war noch was
Dann dürfte eigentlich keine Eingabe mehr möglich sein
AW: inhalt Listbox1 in bestimmten Bereich
06.02.2021 18:34:38
Werner
Hallo,
so: 
Private Sub ListBox1_Click()
Dim a As Long, boLeer As Boolean
For a = 24 To 49
If Cells(a, "B") = "" Then
Cells(a, "B") = ListBox1
If CheckBox1 Then
Cells(a, "L").FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-10],'2020.xlsm'!Daten,6,FALSE),0)"
Cells(a, "L").Font.ColorIndex = 3
CheckBox1 = False
End If
boLeer = True
Exit For
End If
Next a
If Not boLeer Then
MsgBox "Fehler: Im Bereich B24 bis B49 ist alles belegt."
End If
End Sub
Gruß Werner
Anzeige
Vielen herzlichen Dank, läuft perfekt
06.02.2021 19:52:13
Benedikt
Vielen dank Werner, du hast mir riesig geholfen
Gerne u. Danke für die Rückmeldung. o.w.T.
06.02.2021 20:24:22
Werner
Formel hab ich...
06.02.2021 18:36:24
Werner
Hallo,
...geändert. Wenn du Excel2016 hast dann einfacher mit WENNFEHLER.
Gruß Werner
Anzeige
;

Forumthreads zu verwandten Themen

Datei im bestimmten Pfad öffnen - mein Skript
Jürgen

Hallo Excel-Forum,
habe hier ein Skript um eine rtf-Datei zu öffnen. Möchte aber festlegen, dass sich sofort einebestimmter Pfad öffnet. In diesem Fall N:\Versand.
fFile = Application.GetOpenFilename("RTF-Dateien (*.rtf), *.rtf")
fPfad = "N:\Versand\"
With ActiveSheet.QueryTabl...
02.09.2008 12:01:00
Thread-ID: 1006720
4 Beiträge
Anzeige
Kästchengröße in cm
Rudi

Hallo Ihr Lieben,
wie kann ich die einzelnen Excel-Felder in cm-Größe einstellen?
Ich möchte Etiketten für kleine Plastikschachteln in der Größe 3,7 cm x 2 cm machen und dann beschriften. Müsste eigentlich in Excel so gehen, leider weiß ich nicht, wie mann die Excel Felder gleich in cm...
28.09.2008 11:11:00
Thread-ID: 1012896
8 Beiträge
Caption eines CommandButton im UserForm ändern
Lenhard

Moin Excellianer!
Ich habe ein UserForm mit einer TextBox1 und einem CommandBotton1.
Wenn in der TextBox1 kein Text steht, dann soll die Caption des CommandButton "ABC" anzeigen...
...und wenn in der TextBox1 Text steht, dann soll die Caption des CommandButton "XYZ" anzeigen.
Ge...
16.12.2008 22:01:00
Thread-ID: 1033444
3 Beiträge
Anzeige
Öffnen eines Diagrammtabellenblatt kyperlink/macro
moritz

Hallo Zusammen,
ich habe eine Datei und würde von dort gerne auf andere Dateien und weiter direkt auf versch. Diagrammtabellenblätter öffnen.
1.) kann mir jemand helfen wie das per hyperlink geht... wenn es geht.... weil ja der Zellbezug fehlt
2.) oder wie sieht das macro dafür aus?...
22.01.2009 10:59:00
Thread-ID: 1042493
2 Beiträge
Word Vba in Optionen ein Häkchen setzen/löschen
Reinhard

Hallo Wissende,
mit ActiveWindow.View.ShowFieldCodes = False kann man in Word das Häkchen bei
Extras--Optionen--Ansicht--Feldfunktionen entfernen.
Nun wollte ich mich aber der Sache so nähern:
MsgBox CommandBars("Menu Bar").Controls("E&xtras").Controls("&Optionen...").Ca...
29.01.2009 18:35:33
Thread-ID: 1045134
5 Beiträge
Excel fummelt selbstständig in den Optionen herum
Udo

Hallo zusammen !
Schon seit längerem nervt folgendes:
Unter Excel-Optionen-erweitert-beim scrollen mit intellimouse zoomen ist das Häckchen nicht gesetzt, weil ich die Angewohnheit mich mit dem Mittelrad meiner Maus durch Exceltabellen zu bewegen.
In unregelmäßigen Zeitabständen s...
16.03.2009 16:12:57
Thread-ID: 1060813
3 Beiträge
CommandButton -> Caption in Programm verwenden
Florian

Hallo,
ich habe nach langem mal wieder ein Problem auf dem Tisch liegen.
Ich habe eine Excel-Datei erstellt und 32 CommandButton's angelegt.
Klassisch lege ich jetzt für jeden CommandButton folgenden Private Sub an: Private Sub CommandButton01_Click() Workbooks.Open Filename:=Ar...
24.03.2009 09:55:53
Thread-ID: 1063177
7 Beiträge
Anzeige
Zeilen- und Spaltenbreite in cm
Hartwig

Hallo Leute,
ich habe untenstehendes Makro mal von einem guten Helfer im Forum bekommen.
Ich weiß aber nicht mehr von wem. Nun weichen die Ergebnisse aber von der Eingabe ab.
Wenn ich z.B. 3,00 cm Spaltenbreite eingebe, erhalte ich 2,80 cm, bei 3,00 cm Zeilenhöhe
erhalte ich 3,3...
29.04.2009 09:49:17
Thread-ID: 1071787
4 Beiträge
Anzeige
Diagramm und einzelen Zellen nach PPT kopieren
Mandy

Hallo,
ich habe eine Excelmappe mit Daten und Diagrammen. Meine Frage dazu, ist es möglich, mit einem Makro aus Excel heraus, Diagramme (Diagramm 1", "Diagramm 2") und / oder ein kopierter Range (zB A1 : D10)
in ein Powerpointdokument zu bringen ?
Ich stelle mir das so vor, dass nac...
02.10.2009 09:57:53
Thread-ID: 1106620
2 Beiträge
OptionButton7 aktiv dann Text X in Listbox1
Wolfgang

Hallo,
auf einer Multipage befinden sich u.a. Listboxes und OptionButton; Wie kann ich erreichen, dass, wenn OptionButton7 aktiviert wird, automatisch in Listbox1 der Text z.B. "Test3", der sich an dritter Stelle in der Listbox befindet, die wiederum aus einer Tabelle "gespeist" wird, angez...
24.10.2009 08:56:56
Thread-ID: 1111782
5 Beiträge
Seite skalieren auf 1 Seite (inkl. Diagramm)
MikeM

Hallo zusammen,
Ich hoffe, ihr könnt mir bei meinem kleinen Problem weiterhelfen. ich bekomme es einfach nicht hin.
Ich habe eine Tabelle und drunter ein Diagramm. Nun möchte ich das auf 1 Seite drucken.
Seite einrichten - auf 1 Seite anpassen funktioniert zwar, allerdings wird das...
04.12.2009 08:37:35
Thread-ID: 1121745
4 Beiträge
| HERBERS Excel Forum
Ilka

Hallo,
in Spalte A1 bis A1000 stehen Artikelnummern.
In C1, C2 und C3 werden Artikelnummern eingetragen, nach denen in Spalte A gesucht wird.
Werden diese gefunden, soll in B1 bis B1000 neben der gefundenen ArtikelNr in Spalte A eine 1 eingetragen werden, im anderen Fall sollen die...
06.12.2009 16:32:34
Thread-ID: 1122075
3 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