Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1752to1756
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
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

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
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
Anzeige

340 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige