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 Elhamplo vom 24.10.2019, 11:10 Options
Hilfe zu einem Code: automatisch speichern sobald was in Spalte C eingetragen wird
Hallo,
ich brauch Eure Hilfe.
Habe folgenden Code erstellt. Da die Datei Freigegeben ist, möchte ich, das bei jedem Eintarg in Spalte C die Datei gespeichert wird. So kann man das ein bisschen doppelte Eintragungen zu verhindern.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Then
Else
Target.Offset(0, 11).Value = Date
End If
If Target.Column = 3 Then
On Local Error Resume Next
Cells(Target.Row, 4) = Application.WorksheetFunction.VLookup(Cells(Target.Row, 3), _
Workbooks("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A1", "B" & Workbooks _
("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A65536").End(xlUp).Row), 2, False)
Cells(Target.Row, 5) = Application.WorksheetFunction.VLookup(Cells(Target.Row, 3), _
Workbooks("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A1", "C" & Workbooks _
("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A65536").End(xlUp).Row), 3, False)
Cells(Target.Row, 6) = Application.WorksheetFunction.VLookup(Cells(Target.Row, 3), _
Workbooks("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A1", "D" & Workbooks _
("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A65536").End(xlUp).Row), 4, False)
Cells(Target.Row, 7) = Application.WorksheetFunction.VLookup(Cells(Target.Row, 3), _
Workbooks("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A1", "F" & Workbooks _
("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A65536").End(xlUp).Row), 6, False)
End If
End Sub
Vielleicht hat jemand ja noch eine bessere Idee.
Ich danke Euch im voraus.
Gruß
Elhamplo
ich brauch Eure Hilfe.
Habe folgenden Code erstellt. Da die Datei Freigegeben ist, möchte ich, das bei jedem Eintarg in Spalte C die Datei gespeichert wird. So kann man das ein bisschen doppelte Eintragungen zu verhindern.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Then
Else
Target.Offset(0, 11).Value = Date
End If
If Target.Column = 3 Then
On Local Error Resume Next
Cells(Target.Row, 4) = Application.WorksheetFunction.VLookup(Cells(Target.Row, 3), _
Workbooks("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A1", "B" & Workbooks _
("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A65536").End(xlUp).Row), 2, False)
Cells(Target.Row, 5) = Application.WorksheetFunction.VLookup(Cells(Target.Row, 3), _
Workbooks("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A1", "C" & Workbooks _
("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A65536").End(xlUp).Row), 3, False)
Cells(Target.Row, 6) = Application.WorksheetFunction.VLookup(Cells(Target.Row, 3), _
Workbooks("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A1", "D" & Workbooks _
("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A65536").End(xlUp).Row), 4, False)
Cells(Target.Row, 7) = Application.WorksheetFunction.VLookup(Cells(Target.Row, 3), _
Workbooks("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A1", "F" & Workbooks _
("Turbolader Anfragen.xls").Worksheets("Debitorenliste").Range("A65536").End(xlUp).Row), 6, False)
End If
End Sub
Vielleicht hat jemand ja noch eine bessere Idee.
Ich danke Euch im voraus.
Gruß
Elhamplo
Antwort 1 von coros vom 24.10.2019, 13:25 Options
Hallo Elhamplo,
eigentlich sollte es reichen, wenn Du den Befehl
in Dein Makro vor dem letzten "End If" einfügst.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
eigentlich sollte es reichen, wenn Du den Befehl
[b]ThisWorkbook.Save[/b]in Dein Makro vor dem letzten "End If" einfügst.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Prüfung mit fortlaufender Nummerierung
m-o-m 04.04.2007 - 152 Hits - 1 Antwort
Excel Formel Wenn_Dann ?
Petra1205 01.05.2007 - 124 Hits - 2 Antworten
Excel, Zeilen beim Autostart automatisch über einen Wert in einer Spalte löschen
torsten110 09.11.2007 - 110 Hits - 4 Antworten
Formel für Suche in verschiedenen Tabellenblättern
smokie 26.03.2008 - 25 Hits - 3 Antworten
Rechnen mit Zellen mit Formeln
krissi08 28.03.2008 - 24 Hits - 6 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
