Datum

Titel

20.04.2024 07:57:54

Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1624to1628

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Nur bestimmte Zellen einer Zeile löschen

Forumthread: Nur bestimmte Zellen einer Zeile löschen
4 Beiträge zu diesem Forumthread
Anzeige
329 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

04.06.2018 13:10:56

Seph

Hallo Zusammen,
ich stehe seit Tagen vor einem Problem und komme nicht weiter...
Ich will in einer Datei (reduziertes Beispiel siehe Anhang) per Makro in einer Tabelle nach einer Kundennummer suchen. Wenn die Kundennummer in der vorgegebenen Spalte D irgendwo gefunden wird, sollen bestimmte Zellen der jeweiligen Spalte geleert werden, aber nicht alle. Im Beispiel sollen nur die entsprechenden Einträge in den Spalten B,C,D und F geleert werden.
Hintergrund: In den anderen Spalten/Zellen liegen Formeln, die für spätere, neue Einträge in der Liste erhalten bleiben sollen.
Hier der Link zur Datei:
https://www.herber.de/bbs/user/121950.xlsx
Danke Euch im Voraus!
Viele Grüße,
Seph

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Nur bestimmte Zellen einer Zeile löschen

04.06.2018 13:42:28

ChrisL
AW: Nur bestimmte Zellen einer Zeile löschen

04.06.2018 14:32:27

Seph
AW: Nur bestimmte Zellen einer Zeile löschen

04.06.2018 14:29:24

UweD
AW: Nur bestimmte Zellen einer Zeile löschen

04.06.2018 14:33:46

Seph

AW: Nur bestimmte Zellen einer Zeile löschen

04.06.2018 13:42:28

ChrisL

Sub t()
Call LoescheKN(22222)
End Sub

Private Sub LoescheKN(KN As Long)
Dim lZ As Long
Do While WorksheetFunction.CountIf(Columns(4), KN) > 0
lZ = Application.Match(KN, Columns(4), 0)
Range("B" & lZ & ":D" & lZ & ",F" & lZ).ClearContents
Loop
End Sub

cu
Chris

AW: Nur bestimmte Zellen einer Zeile löschen

04.06.2018 14:32:27

Seph

Hi Chris,
tausend Dank! Genial, habe es an meine Tabelle angepasst und es funktioniert perfekt! Danke Dir!
VG

AW: Nur bestimmte Zellen einer Zeile löschen

04.06.2018 14:29:24

UweD

Hallo
hier noch eine Lösung:

Sub Löschen()
    Dim C As Range, KuNu As Integer, firstAddress As String
    
    With Worksheets("Tabelle1").Range("D:D")
        KuNu = InputBox("Suchen nach ...?", "Kundennummer", "11111")
        Set C = .Find(KuNu, LookIn:=xlValues)
        If Not C Is Nothing Then
            firstAddress = C.Address
            Do
                C.Offset(0, -2).Resize(1, 6).SpecialCells(xlCellTypeConstants, 3).ClearContents
                Set C = .FindNext(C)
                If C Is Nothing Then
                    GoTo DoneFinding
                End If
            Loop While Not C Is Nothing 'And C.Address <> firstAddress 
        End If
DoneFinding:
    End With

End Sub

LG UweD

AW: Nur bestimmte Zellen einer Zeile löschen

04.06.2018 14:33:46

Seph

Uwe, Danke Dir ebenfalls! Habe mit Chris Lösung gut arbeiten können, bzw. sie noch um eine Input-Box ergänzt, wie auch von Dir vorgeschlagen.
VG,
Seph