Thema: Änderungen protokollieren


Seite durchsuchen:
Home


zurück zur Übersicht

Diskussionsgruppe: Tabellenkalkulation

Schönen guten morgen zusammen,

darf ich Euch um Hilfe bitten, der Code für den 2. Fall funktioniert nicht richt:

Ich möchte folgendes tun:

1. Wenn in Spalte 12 eine Änderung ist, dann schreibe Datum und User in Spalte 27+28, funktioniert einwandfrei

2. Wenn in Spalte 25 eine Ämderung ist, dann schreibe Datum in Spalte 29, funktioniert nicht !

Hier der Code:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Select Case Target.Column

Case 12 To 12:

Cells(Target.Row, 27).Value = Now
Cells(Target.Row, 28) = Application.UserName

Case Else:

Select Case Target.Column

Case 25 To 25:

Cells(Target.Row, 29).Value = Now

Case Else:

End Select

End Sub

Danke vielmals für Eure Hilfe, Gruß meikel

 Von: Meikel Datum: 14.06.2007, 09:33

alle Antworten zu dieser Frage


Antwort 1 von hmmm_tja vom 14.06.2007, 10:34
Vielleicht irre ich mich aber fehlt evtl. einmal End Select?

Select Case Target.Column //select1 anfang

Case 12 To 12: //case1 select1

Case Else: //select1 else

Select Case Target.Column // select2 anfang

Case 25 To 25: //case1 select2

Case Else: //select2 else

End Select //select2 ende

//select1 ende?

End Sub

Antwort 2 von Meikel vom 14.06.2007, 10:46
Hi,

ich hab' es doch lösen können und es funktioniert:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Select Case Target.Column

Case 12 To 12:

Cells(Target.Row, 27).Value = Now
Cells(Target.Row, 28) = Application.UserName

Case 25 To 25:

Cells(Target.Row, 29).Value = Now
Cells(Target.Row, 30) = Application.UserName

Case Else:

End Select

End Sub

Danke für Deine prompte Info und einen schönen Tag,

Gruß, meikel

Antworten der Gruppe: Tabellenkalkulation
www.supportnet.de



Office 365 stellt vertraute Microsoft Office-Tools für die Zusammenarbeit und Produktivität über die Cloud bereit. So können alle ganz einfach von nahezu überall zusammenarbeiten und auf E-Mails, Webkonferenzen, Dokumente und Kalender zugreifen.