Clever-Excel-Forum

Hallo @all,

Ich habe 2 Herausforderungen...
Die Erste:
folgender Code in meiner Userform löscht Zelleninhalte:

Code:
Private Sub cmd_Formular_löschen_Click()

    Range("D7:G143").Select

    Range("G143").Activate

    Selection.ClearContents

    Range("D22").Select

End Sub

das klappt auch alles wunderbar, ABER ich möchte auch das eingefügte Bilder mit gelöscht werden. Folgender Code ist für das einfügen von Bildern zuständig:

Code:
Private Sub cmd_Bild_9_quer_Click()

    Dim dat

    ChDrive "C:\"

    ChDir "C:\Users\******\Pictures\Bilder_*****_A_Telefon"

    dat = Application.GetOpenFilename("Bilddateien (*.jpg), *.jpg")

    If dat <> False Then

        With ActiveSheet.Shapes.AddPicture(dat, True, True, Range("A211").Offset(0, 0).Left, _

                Range("A211").Offset(0, 0).Top, 213, 160)

            .Name = "PIC " & Range("A211").Address(False, False)

        End With

    End If

End Sub

ich weiß nicht ob der für mein Problem überhaupt relevant ist ;)

Ziel soll es sein, die Bilder nicht per Einzelklick in der Tabelle zu löschen, sondern per Einmalklick auf einem Button in meiner Userform. Benötige ich dafür einen separaten Code oder muss der erste Code entsprechend umgeschrieben werden??

Die zweite Herausforderung könnt Ihr Euch in einem anderen Thema anschauen. Verlinkung folgt... Blush

https://www.clever-excel-forum.de/thread-31648.html

Hallo,

für deinen Löschcode der Zellinhalte könntest du schreiben:

Code:
Private Sub cmd_Formular_löschen_Click()

    Range("D7:G143").ClearContents

End Sub

Für die Bilder:

Code:
ActiveSheet.Pictures.Delete

Das löscht aber alle Bilder auf dem gerade aktiven Tabellenblatt. Wenn du das nicht willst, mache es über eine Schleife.

Für beide Codes gilt - sie löschen auf dem aktiven Tabellenblatt. Willst du das nicht, gib es mit an, statt "ActiveSheet" bzw. Keines.

Hallo Case,

das ging ja fix!! Besten Dank - ich probiere es heute Abend gleich mal aus und melde mich

Soo....das klappt einwandfrei!!
Danke

StefanB

Case

StefanB

StefanB