Office: VBA: Mit MsgBox bestimmte Inhalte von Zeile leeren

Hallo Excel Freunde,

ich habe in der Tabelle, Spalte A fortlaufende ID Nummern hinterlegt (1-200).
Jetzt möchte den Inhalt (Zeile) z.B ID 180 leeren. Dabei soll nicht die ganze Zeile geleert werden, sondern nur die Zellen A bis O. Das ganze soll am besten mit eine MsgBox erfolgen, wo abgefragt wird , welche ID geleert werden soll und ob wirklich geleert werden soll. Ich habe folgende Code gefunden die aber ganze Zeile leert und auch nur die aktiv ausgewählte Zeile. Leider reicht mein Wissen nicht aus um den Code anzupassen und brauche euer mithilfe.

Code:

Sub AuswahlLeeren()

'Abfrage, ob wirklich geleert werden soll

Dim Antwort

Antwort = MsgBox("Soll wirklich Zellinhalte geleert werden?", vbYesNo + vbQuestion, "Auswahl Zellinhalte leeren:")

If Antwort = vbYes Then ActiveCell.EntireRow.ClearContents

End Sub

Danke

 

Code:

Option Explicit

Sub AuswahlLeeren()
    Dim Antwort
    Dim LoZeile As Long
    Antwort = MsgBox("Soll wirklich Zellinhalte geleert werden?", vbYesNo + vbQuestion, "Auswahl Zellinhalte leeren:")
    If Antwort = vbYes Then
        LoZeile = ActiveCell.Row
        Range("A" & LoZeile & ":O" & LoZeile).ClearContents
    End If
End Sub

Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Select - Hajo's Excelseiten
Online - Excel Programmierung VBA Makro: Performance (2) - Select Activate Bremsen und ein Beispiel
Online - Excel Programmierung VBA Makro: Achtung Makrorekorder oder Wer selektiert denn da?.

 

Hallo,

Code:

Option Explicit

Sub AuswahlLeeren()
  
  Dim Ws As Worksheet, SuchZelle As Range
  Dim Antwort As VbMsgBoxResult
  Dim strID As String, SuchBereich As Range
 
  Set Ws = ActiveSheet:  Set SuchBereich = Ws.Range("A:A")
 
  strID = InputBox(Prompt:="Welche ID soll gelöscht werden?", Title:="ID-Abfrage", Default:="100")
  If Len(strID) Then
     Antwort = MsgBox(Prompt:="Sollen wirklich die Zellinhalte der Zeile mit ID=" & strID & " geleert werden?", _
                      Buttons:=vbYesNo + vbQuestion, _
                      Title:="Auswahl Zellinhalte leeren")
     If Antwort = vbYes Then
        Set SuchZelle = SuchBereich.Find(What:=strID, LookIn:=xlValues, LookAt:=xlWhole)
        If SuchZelle Is Nothing Then
           'strID wurde in Spalte A nicht gefunden
           MsgBox Prompt:="Die Nummer " & strID & " wurde im Bereich " & SuchBereich.Address & " nicht gefunden." & vbNewLine & "-> Abbruch"
        Else
           'strID wurde in Spalte A gefunden:
           'Die Inhalte der Zellen der Spalten A-O leeren
           SuchZelle.Resize(1, 15).ClearContents
        End If
     End If
  End If
End Sub

 

@Exl121150: Vielen Dank, funktioniert bestens nur hab ich ein fehler gemacht.
Beim testen habe ich festgestellt,Zelle A (ID) darf ich nicht gelöscht werden sondern nur B - O.
Dachte ich kann das selbst noch anpassen aber komme auf keine Lösung.
Könntest du das bitte noch anpassen ?

Danke

 

Hallo,

Code:

Option Explicit

Sub AuswahlLeeren()
  
  Dim Ws As Worksheet, SuchZelle As Range
  Dim Antwort As VbMsgBoxResult
  Dim strID As String, SuchBereich As Range
 
  Set Ws = ActiveSheet:  Set SuchBereich = Ws.Range("A:A")
 
  strID = InputBox(Prompt:="Welche ID soll gelöscht werden?", Title:="ID-Abfrage", Default:="100")
  If Len(strID) Then
     Antwort = MsgBox(Prompt:="Sollen wirklich die Zellinhalte der Zeile mit ID=" & strID & " geleert werden?", _
                      Buttons:=vbYesNo + vbQuestion, _
                      Title:="Auswahl Zellinhalte leeren")
     If Antwort = vbYes Then
        Set SuchZelle = SuchBereich.Find(What:=strID, LookIn:=xlValues, LookAt:=xlWhole)
        If SuchZelle Is Nothing Then
           'strID wurde in Spalte A nicht gefunden
           MsgBox Prompt:="Die Nummer " & strID & " wurde im Bereich " & SuchBereich.Address & " nicht gefunden." & vbNewLine & "-> Abbruch"
        Else
           'strID wurde in Spalte A gefunden:
           'Die Inhalte der Zellen der Spalten B-O leeren
           SuchZelle.Offset(0, 1).Resize(1, 14).ClearContents
        End If
     End If
  End If
End Sub