Excel Index
VBA Index
Online Excel Forum
Excelformeln Forum
Das etwas andere Excel Forum
Liebevoll moderiert
www.Excelformeln.de
Startseite Forum Excel Jeanie Html Zum Sonstiges Forum Zum Test Forum


About 10B + 1 R Fragen Wie Fragen? 10B + 1 R Antworten Hilfe !!! DOWNLOADS Links 
Nicht eingeloggt :   Einloggen  Noch keinen Benutzernamen :   Benutzernamen beantragen  Passwort vergessen :   Neues Passwort
Forum <> Neues Thema <> Suche <> Mods

 
Beim Lösch-Vorgang 12mal der Spruch: "gibt es schon"
Von:  Samurei22  Am: 06.01.2017 10:00:47
Excel 2013 - Lösung bitte nur mit Makro(VBA) - vielen Dank
Hallo zusammen, ich habe die Tabellenblätter Jan bis Dez, deren Zellen über einen Button autom. Gelöscht werden. So auch die Zelle AG26. Bei jedem Durchlauf der Lösch-Routine kommt der Spruch: „gibt es schon“ 12 mal. Was ja, wenn AG26 mit gleichen Werten eingetragen wird, richtig ist . Aber eben nicht beim Lösch-Vorgang. Was kann ich tun, um das zu unterbinden? Hier der Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim Monate As Variant, objKont As Range


Monate = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember") '...bitte anpassen

If Not IsError(Application.Match(Sh.Name, Monate, 0)) Then

    If Target.Address = "$AG$26" Then ' Zelle geändert
           Set objKont = Worksheets("Jahresübersicht").Range("X7:X18")
            
        If WorksheetFunction.CountIf(objKont, Target.Value) > 1 Then
            MsgBox Target.Text & " gibt es schon!", vbOKOnly + vbExclamation, "Hinweis"
        End If
        
        Set objKont = Nothing
        
      
    End If
    
     If Range("AC26").Text = "Amt" Then Range("AG26").ClearContents     ' RechnungsNr Feld löschen    

End If


End Sub

Danke für eure Antwort. Gruß Friedhelm

   Antworten  +++  Forum 
Excel verstehen bei: Online-Excel Zum Beispiel: Langsam - Bedingte Formatierung (aus Excel Standard)



Alle Lesen


Alle Lesen

Forum <> Neues Thema <> Suche <> Mods


Impressum: Impressum - Datenschutz - Forumstechnik: Peter Haserodt - Farbgestaltung: Uwe Küstner
Alle innerhalb des Forums genannten und ggf. durch Dritte geschützten Marken- und Warenzeichen unterliegen uneingeschränkt den Besitzrechten der jeweiligen eingetragenen Eigentümer Alle Beiträge stammen von dritten Personen u. dürfen geltendes Recht nicht verletzen.