Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zeilen mit Formula beim einfügen von Daten Schützen
#11
Hallo,

mal zwei Links
https://www.online-excel.de/excel/singsel_vba.php?f=100
https://www.online-excel.de/excel/singsel_vba.php?f=44
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#12
Ja aber dort gib man doch sowas wie 

Code:

Code:
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' Tabellenblattname anpassen!!!!!!!
    With ThisWorkbook.Worksheets("Sheet1")
        ' Ist da überhaupt ein Filter?
        If .AutoFilterMode Then
            ' Filter gesetzt?
            If .FilterMode Then
                .ShowAllData
            End If
        End If
Antworten Top
#13
Hallo,

dieses von dir unvollständig gepostetes Ereignismakro wird ausgeführt, wenn Du auf speichern, also vor dem Speichervorgang. Es ist halt die Frage, was Du erreichen willst. Und das ist mir bei deinen Beiträgen unklar.
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#14
Ich möchte erreichen das Sobald in der bestimmter Zelle (AI16) der Wert "Wert1" erschein, daß dann Excel in die Zelle B16 eine Zahl reinschreib, ansonsten bleib die Zelle leer.
und das in VBA und nicht in der Formel direkt in Excel
Antworten Top
#15
Hallo,

der Code gehört in das Klassenmodul einer Tabelle und wird durch Eingabe in der Zelle AI16 und weitere ausgelöst.


PHP-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
 
  If Not Intersect(TargetRange("AI16:AI100")) Is Nothing Then
      Application
.EnableEvents False
      If Target
.Value "Wert1" Then
         Cells
(Target.Row2) = 9
      Else
         Cells
(Target.Row2).ClearContents
      End 
If
 
     Application.EnableEvents True
   End 
If
End Sub 
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#16
leider passiert da nichts.

Trotzdem Danke für die Hilfe
Antworten Top
#17
Hallo,

dann lade doch mal ein Datei hier hoch.
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#18
Hallo

Was soll an meinem Code denn nicht funktionieren??
Ich hatte es getestet gehabt, bei mir lief es, ausserdem hast du ja nicht gesagt wie, mein erster Gedanke war du machst es per Button.
Aber jetzt hast du ja schon zwei verschiedene funktionierende Code.
Gruß
Ivan 16
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste