Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Meikel vom 14.06.2019, 09:33 Options
Änderungen protokollieren
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
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
Antwort 1 von hmmm_tja vom 14.06.2019, 10:34 Options
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
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.2019, 10:46 Options
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 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
Ähnliche Themen
Datenstrom des Routers protokollieren?
wed7 07.02.2007 - 99 Hits - 2 Antworten
zugriffsverweigerungsfehler bei änderungen der Systemkonfiguration
asio 22.03.2007 - 725 Hits -
MySQL Datenbank-Queries protokollieren?
svensen 07.07.2007 - 99 Hits - 6 Antworten
Zugriffsschutz
beppy 31.08.2007 - 48 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
