Thema Datum  Von Nutzer Rating
Antwort
Rot Automatisches Ausfüllen von Spalten
28.02.2018 22:11:08 Gast72524
NotSolved
01.03.2018 20:01:53 Ben
NotSolved
01.03.2018 22:17:35 Gast69049
NotSolved

Ansicht des Beitrags:
Von:
Gast72524
Datum:
28.02.2018 22:11:08
Views:
342
Rating: Antwort:
  Ja
Thema:
Automatisches Ausfüllen von Spalten

Hallo zusammen,

komme leider nicht mehr weiter. Möchte gerne in eine Zelle eine Formel eintragen. Das funktioniert auch soweit, aber die ganze Spalte wird automatisch mit dieser Formel gefüllt.

 

Verwende folgenden Code

Private Sub Worksheet_Change(ByVal Target As Range)

With ActiveSheet

                 If InStr(Target, "1") > 0 Then
                 .Cells(Target.Row, 2).Formula = "=MID([@Scan],18,16)"
                 End If

End With

End Sub

Außerdem bekomme ich einen Laufzeitfehler 1004, kann zwar beenden und es funktioniert. Der Fehler nervt aber.
Hoffe ihr habt eine Idee.

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Automatisches Ausfüllen von Spalten
28.02.2018 22:11:08 Gast72524
NotSolved
01.03.2018 20:01:53 Ben
NotSolved
01.03.2018 22:17:35 Gast69049
NotSolved