Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1624to1628
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
Letzte Wert einer Spalte suchen
29.05.2018 21:28:45
Simy
Hallo zusammen,
ich verzweifel :-|
Ich habe folgendes Problem. Ich fülle Zeilen aus einer Userform (Spalte A bis N). In der ersten Zeile steht immer die laufende Nummer. Jetzt will ich in der Spalte A die letzte Zeile mit einem Wert suchen und dann in der gleichen Zeile die Zellen der Spalten B,C,E,G löschen. Es soll nur der Inhalt in dieser Zeile für diese Spalten gelöscht werden, nicht die ganze Zeile.
Kann mir jemand helfen?
Dankeeee im voraus.
Gruß
Simy

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Wert einer Spalte suchen
29.05.2018 22:16:27
Rudi
Hallo,
Schema:
set rng=cells(rows.count,1).end(xlup)
rng.offset(,1).clearcontents
rng.offset(,2).clearcontents
rng.offset(,4).clearcontents
rng.offset(,6).clearcontents

Gruß
Rudi
AW: Letzte Wert einer Spalte suchen
29.05.2018 22:32:31
Simy
Hallo Rudi,
danke für die schnelle Antwort.
Leider habe ich immer noch das Problem, da in der Spalte A2:A30 die Formel =WENN(B2="";"";A1+1) steht, um die laufende Nummer zu generieren (A1=1). Gibt es eine Suchfunktion in der Spalte A, die wirklich nur nach sichtbaren Werten in der letzten Zeile sucht?
Danke im Voraus
VG
AW: Letzte Wert einer Spalte suchen
30.05.2018 08:44:15
UweD
Hallo
dann so....

Dim RNG As Range, LR As Double
LR = WorksheetFunction.Match("", Columns(1), 0)
Set RNG = Cells(LR, 1)
RNG.Offset(, 1).ClearContents
RNG.Offset(, 2).ClearContents
RNG.Offset(, 4).ClearContents
RNG.Offset(, 6).ClearContents
LG UweD
Anzeige
AW: Letzte Wert einer Spalte suchen
30.05.2018 20:27:58
Gerd
Hallo Simy,
das könnte man ggf. so auslegen.
Sub b()
On Error Resume Next
With Range("A2:A30").SpecialCells(xlCellTypeFormulas, xlNumbers)
.Cells(.Count).Range("B1:C1,E1:E1,G1:G1").ClearContents
End With
On Error GoTo 0
End Sub

Gruß Gerd

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige