Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Einfügen letzte Zelle in Bereich

Einfügen letzte Zelle in Bereich
18.04.2020 23:25:18
Benedikt
Guten Abend zusammen
Nachfolgender Code fügt den Inhalt einer ComboBox in die letzte freie Zelle der Spalte B
Sheets("Daten").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Bericht.ComboBox1
Wie kann man das Beschränken, das nur in den Zellen B7 : B30 in die letzte freie Zelle eingefügt wird
Besten Dank für eure Hilfe
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einfügen letzte Zelle in Bereich
19.04.2020 06:16:48
Werner
Hallo,
meinst du so was?
Public Sub ccc()
On Error GoTo Meldung
With Worksheets("Daten")
.Range("B7:B30").SpecialCells(xlCellTypeBlanks).Cells(1, 1) = Bericht.ComboBox1
Exit Sub
End With
Meldung:
On Error GoTo 0
MsgBox "Es gibt keine leere Zellen im Bereich."
End Sub
Gruß Werner
Anzeige
Vielen Dank Werner
19.04.2020 06:50:31
Benedikt
Vielen Dank, genau so sollte es sein
Gerne u. Danke für die Rückmeldung. o.w.T.
19.04.2020 09:02:18
Werner
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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