Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1148to1152
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
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel automatisch einfügen

Formel automatisch einfügen
claudia
Hallo zusammen,
ich nutze bislang folgenden Code, der reibungslos klappt.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Intersect(Range("i2:i1000"), Target)
If Not Bereich Is Nothing Then
Application.EnableEvents = False
With Bereich
ActiveSheet.Unprotect
.Offset(0, 2).Value  = "0:30"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Application.EnableEvents = True
End If
End Sub

Nun möchte ich aber, wenn ich in der Spalte I etwas ändere, folgende Formel in die Spalte K eintragen.
ActiveCell.FormulaR1C1 = _
"=IF(R[1]C[-1] = ""Excel"","".xls"",IF(R[1]C[-1] = ""Word"","".doc"",IF(R[1]C[-1] = ""Powerpoint"","".ppt"",IF(R[1]C[-1] = ""Outlook"","".msg"",""""))))"
Ich weiß aber nicht, wie das geht. Bei mir kommt immer statt der Formel das Ergebnis falsch.
Manno!
Wer kann mir helfen?
LG
Claudia
Formel automatisch am richtigen Ort einfügen
14.04.2010 19:49:13
Luc:-?
Hi Claudia,
…wenn ich in der Spalte I etwas ändere, folgende Formel in die Spalte K…, also liegt die normalerweise mit Target identische ActiveCell in Spalte I, wo dann eigentl auch die Fml eingetragen wdn würde. Hier ist überflüssigerweise auch noch Bereich mit Target identisch, denn der kann nach Intersect nur Nothing oder Target sein. Die Offset-Operation verändert Target (⇒ActiveCell) nicht, da die Events-Reaktion zeitweise abgeschaltet wurde.
Außerdem finde ich die vom Makro-Recorder herrührende Verwendung von R1C1 einfach nur grässlich, denn die ist (fast) nur dann sinnvoll, wenn Excel auch auf Z1S1 eingestellt ist. Dem VBA-Standard entspricht das nicht!
Richtig müsste Target.Offset(0, 2) = … sein…
Außerdem würde deine Fml im TabBlatt bei dt Excel und Einstellung Z1S1 so erscheinen…
=WENN(Z(1)S(-1) = "Excel";".xls";WENN(Z(1)S(-1) = …
Wenn die Fml (richtig) bspw in Zelle K2 ankommen würde, würde sie sich so relativ auf Zelle J3 beziehen. Wenn das deine Absicht war, wäre die Fml sonst ok…
Gruß Luc :-?
Anzeige
AW: Formel automatisch am richtigen Ort einfügen
14.04.2010 20:34:20
Claudia
Hallo Luc,
ich habe leider gar nichts verstanden.
Ich habe aber meine Datei hochgeladen.
https://www.herber.de/bbs/user/69087.xls
Vielleicht kannst Du mir da zeigen, was ich machen muss. Ich bin kein VBA-Profil, sondern suche mir im Archiv was zusammen bzw. bitte um Hilfe!.
Vielen Dank!
LG
Claudia
offen vergessen
14.04.2010 21:09:15
Claudia
Warum so kompliziert u.VBA,...
15.04.2010 00:55:57
Luc:-?
…Claudia,
wenn du doch offensichtlich davon gar nicht genug verstehst? Das ist dann immer ein Risiko und du bist von anderen abhängig…!
Die Fml in K muss doch erst erscheinen, wenn in I und J etwas eingetragen wurde! (Nebenbei, die Werte für die Gültigkeit scheinst du einer anderen Mappe zu entnehmen → #BEZUG!) Da kann man doch Xl so einstellen, dass die Fml in K automatisch übernommen wird, wenn keine Leerzellen bleiben. Falls in I nein eingetragen wird und deshalb dann auch nichts in J, würde das wohl nicht fkt. Deshalb wäre es wohl angeraten, I und J zu tauschen, damit immer etwas in der Zelle vor der Fml steht.
Was die Ereignisprozedur betrifft und ich dir zuvor sagen wollte ist, die Fml enthält einen falschen Bezug — nämlich auf die (leere) Zelle in der Folgezeile (richtig wäre (RC[-1]) und der Eintragsort dürfte nicht stimmen. Richtig wäre wohl Target.Offset(0, 2).FormulaR1C1 statt ActiveCell.FormulaR1C1…
Gruß Luc :-?
Anzeige
AW: offen vergessen
15.04.2010 01:14:32
fcs
Hallo Claudia,
die Zuweisung der Formel schaut dann wie folgt aus: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Intersect(Range("i2:i1000"), Target)
If Not Bereich Is Nothing Then
Application.EnableEvents = False
With Bereich
ActiveSheet.Unprotect
.Offset(0, 2).FormulaR1C1 = _
"=IF(RC[-1] = ""Excel"","".xls"",IF(RC[-1] = ""Word"","".doc"",IF(RC[-1] " _
& "= ""Powerpoint"","".ppt"",IF(RC[-1] = ""Outlook"","".msg"",""""))))"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Application.EnableEvents = True
End If
End Sub
Gruß
Franz
Anzeige
@ Franz: Vielen Dank für Deine Hilfe! :-)
15.04.2010 12:33:43
Claudia
Dich merk ich mir! :-( owT
15.04.2010 16:18:25
Luc:-?
:-?
Abgesehen von deinem unpassenden,...
15.04.2010 16:25:53
deinem
…weil unbesehen übernommenen Betreff, Franz,
hättest du, wenn du mit meinen Vorgaben einer offensichtlich Ahnungslosen eine irgendwie zusammengeklaubte EventProc korrigierst, auch noch die nicht nur von mir als überflüssig monierte, sondern tatsächlich sinnlose Variable Bereich beseitigen können. So entspricht die Proc wohl kaum deinem Level… ;->
Gruß Luc :-?
AW: Probleme wenn Target mehrspaltig!
15.04.2010 17:54:04
fcs
Hallo Luc,
ich hatte auch erst gedacht, dass Target.Offset(0, 2)......
reicht. Aber es gibt Probleme, wenn Target nicht nur eine Zelle in Spalte I ist, sondern wenn eine Zeile kopiert wird oder eine Markierung über mehrer Spalten inklusive Spalte I kopiert und dann eingefügt wird.
Mit der Set Bereich = Intersect(... )- Anweisung enthält Bereich dann nur die Zellen aus Target, die in Spalte I liegen und die Formeln werden korrekt eingefügt. Alternativ müsste man in die Prüfung von Target (Columns.Count=1, etc) mehr Aufwand stecken, um gegen alle Eventualitäten gewappnet zu sein.
Um deinen Vorschlag, "RC[-1]" in der Formel zu verwenden, kam ich dann hier nicht herum, da Excel hier wenig Spielraum läßt. "R[0]C[-1]" hätte ich noch nehmen können.
Deine Abneigung gegen die R1C1-Schreibweise unter VBA für das Einfügen von Formeln kann ich auch nicht nachvollziehen.
1. So gibt es keine Probleme bei unterschiedlichen Länder/Spracheinstellungen.
2. Versuche die Formel doch mal in der A1-Schreibweise im Code abzubilden. Da wird dir aber auch schnell schwindlig. Da muss du nämlich den Ausdruck zerpflücken und für die Zeilennummer immer " & Target.Row & " oder einen anderen passenden Ausdruck einfügen. 
      .Offset(0, 2).Formula = _
"=IF(J" & Target.Row & " = ""Excel"","".xls"",IF(J" & Target.Row & " = ""Word"","".doc"" _
," _
& "IF(J" & Target.Row & " = ""Powerpoint"","".ppt"",IF(J" & Target.Row & "= ""Outlook"", _
"".msg"",""""))))"
Da gefällt mir die kurze R1C1-Schreibweise dann deutlich besser.
Gruß
Franz
Anzeige
Ja, mit dem Letzten hast du recht, das ist...
15.04.2010 21:23:38
Luc:-?
…fast die einzige sinnvolle Anwendung von R1C1, Franz,
zumindest bei solchen fmlstandortabhängigen Bezügen (deshalb habe ich das auch beibehalten), wenn ich auch immer erst überlegen muss, wie das war — Claudia hat's ja offensichtl auch nicht kapiert (genau so wenig wie die Proz oder allgem Höflichkeitsregeln)…
Im hier fktsrelevanten Fall sollte Target nur 1 Zelle repräsentieren. Andere Fälle, wie die von dir genannten, schließe ich bei Vglbarem ganz aus, d.h., die Proc wird sofort (ohne Aktion) wieder verlassen.
Eigentl habe ich etwas dagg, Leuten, die nur 'ne schnelle, weitestgehend eigendenk-freie Lösung suchen, mit EventProcs unter die Arme zu greifen, aber wenigstens hatte die hier, trotz aller Ungereimtheiten, einen Kettenreaktionsschutz…
Gruß Luc :-?
Anzeige

300 Forumthreads zu ähnlichen Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Brüche mit kleiner Schrift formatieren
Siegfried

Hallo Excelianer,
der Betreff sagt sicher wenig aus. Ich möchte Zeiten, die auf Viertelstunden gerundet sind, als Brüche darstellen - soweit kein Problem. Jetzt hätte ich aber gern die Viertelstunden nicht in der Standardformatierung, also 1 1/4 z. B., sondern mit kleingeschriebenen Ziffern...
25.08.2008 11:32:00
Thread-ID: 1004409
7 Beiträge
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Excel-Daten in ein Excel-Formular übertragen
Martin

Hallo
Ich habe folgende Problemstellung: Ich habe einerseits eine Datenbank mit Adressfeldern (Tabelle "Daten") und ich habe ein Excel-Formular (Tabelle "Protokoll") kreiert. Nun möchte ich eine Art Serienbrief im Excel erstellen, d.h. jede Zeile in der Daten-Tabelle soll ein eigenes Protok...
08.09.2008 17:43:25
Thread-ID: 1008225
7 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
3
4
3
5
6
1
6
3
2
2
1
1
1
3
5
7
3
6
15
3
3
1
14