Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Änderungen protokollieren





Frage

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,[b] funktioniert einwandfrei[/b] 2. Wenn in Spalte 25 eine Ämderung ist, dann schreibe Datum in Spalte 29, [b]funktioniert nicht ![/b] 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

Antwort 1 von hmmm_tja

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

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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: