Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel automatisch weiterschreiben

Formel automatisch weiterschreiben
18.05.2018 08:01:07
chris58
Hallo !
Ich habe bei dem u.a. File versucht mit diesem u.a. Makro eine Formel automatisch weiterzuschreiben, wenn in Spalte A ein Eintrag erfolgt. Leider ohne Erfolg. Weiß jemand, wie ich das machen könnte, um Erfolg zu haben.
Danke
https://www.herber.de/bbs/user/121688.xls
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
Range(Cells(Target.Row - 1, 4), Cells(Target.Row - 1, 18)).AutoFill _
Destination:=Range(Cells(Target.Row - 1, 4), Cells(Target.Row, 5)), _
Type:=xlFillDefault
Application.EnableEvents = True
End If
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel automatisch weiterschreiben
18.05.2018 08:31:35
ChrisL
Hi
Die Spaltenzahl der beiden Bereiche muss übereinstimmen. Ein kleines Fehlerhandling würde zudem nicht schaden...
Gemäss Vorlage:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
Range(Cells(Target.Row - 1, 4), Cells(Target.Row - 1, 18)).AutoFill _
Destination:=Range(Cells(Target.Row - 1, 4), Cells(Target.Row, 18)), _
Type:=xlFillDefault
Application.EnableEvents = True
End If
End Sub
Mit Fehlerhandling:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
On Error GoTo errorhandler:
Application.EnableEvents = False
Range(Cells(Target.Row - 1, 4), Cells(Target.Row - 1, 18)).AutoFill _
Destination:=Range(Cells(Target.Row - 1, 4), Cells(Target.Row, 18)), _
Type:=xlFillDefault
Application.EnableEvents = True
End If
Exit Sub
errorhandler:
Application.EnableEvents = True
MsgBox "Fehler"
End Sub
cu
Chris
Anzeige
schaut Euch mal die Tel.Nr.an :-)..owT
18.05.2018 08:39:12
robert
und PLZ und Strassennr. :)
18.05.2018 08:44:29
ChrisL
Userbild
AW: Danke - geht alles
18.05.2018 09:00:26
chris58
Danke - passt nun
chris
AW:sind doch nur 2 Zellen mit Formeln
18.05.2018 09:07:27
hary
Moin
Du hast doch nur 2 Zellen mit Formeln drin. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
Cells(Target.Row - 1, 4).Copy Cells(Target.Row, 4)
Cells(Target.Row - 1, 18).Copy Cells(Target.Row, 18)
Next
End If
Application.EnableEvents = True
End Sub

oder wenn mehr Formeln vorhanden: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
For Each zelle In Range(Cells(Target.Row - 1, 4), Cells(Target.Row - 1, 18)).SpecialCells( _
xlCellTypeFormulas)
zelle.Copy Cells(Target.Row, zelle.Column)
Next
End If
Application.EnableEvents = True
End Sub

gruss hary
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige