Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel einkopieren per VBA???

Formel einkopieren per VBA?
Peter
Hallo Ihr draussen,
damit sich die Zeilenangabe um 1 erhöht habe ich folgende Formel eingesetzt:
in A10 steht die Formel =WENN( ISTLEER(B9);""; A9+1)
in A11 =WENN) ISTLEER(B10;""; A10+1) usw.
das ist ja auch net weiter unüblich; funktoniert.....jedoch möchte ich, dass sich die Formel in A10 erst dann reinkopiert, wenn B9 nicht mehr leer ist;
sich die Formel in A11 erst dann reinkopiert, wenn B10 nicht mehr leer ist;
usw...
Hintergrund ist wegen einer Abfrage Maske soll immer nur das nächste Feld Axx mit der Formel belegt sein, da sonst das Feld ja nicht als leer erkannt wird.
Kann jemand helfen?
Danke
Peter S.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formel einkopieren per VBA?
IngoG
Hallo Peter,
wenn Du das ganze per Macro füllst, brauchst Du eigentlich ja keine Formel, sondern kannst den wert fest zuweisen mit:
zelle=zelle.offset(-1,0)+1
wenn Du aber wirklich eine Formel drinstehen haben möchtest geht das mit:
zelle.formulalocal="=wenn(istleer(" & zelle.offset(-1,1).address & ");"""";" & zelle.offset(-1,0).address & "+1)"
die variable zelle ist vom typ range und enthält einen Verweis auf die zu füllende zelle.
Hab den code zwar nicht getestet sollte aber so funzen
Gruß Ingo
PS eine Rückmeldung wäre nett...
AW: Formel einkopieren per VBA?
Peter
Hallo Ingo,
mal vielen Dank für Deine Hilfe.... und zunächst was in eigener Sache....Rückmeldung ist für mich obligatorisch da dies meiner Meinung die Höflichkeit und der Respekt vor Helfenden gebietet.
aber noch eine kleine Bitte....wenn das schon ohne Formel geht, kannst du mir das Sub_() bitte schreiben (bin da leider noch etwas unbedarft; gelobe aber schrittweise Besserung:). Das "Virus" VBA hat seine Faszination auf mich begonnen.
Danke Dir
Peter S.
Anzeige
AW: Formel einkopieren per VBA?
Peter
Hallo Ingo, Hallo Ihr
Ich habe noch etwas weiter probiert und doch tatsächlich die Lösung erreicht, die auch funktioniert:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count = 1 And Target.Column = 2 Then
Application.EnableEvents = False
Target.Offset(1, -1).Formula = "=" & 1 & "+" & Target.Offset(0, -1).Address
Application.EnableEvents = True
End If
End Sub

Aber trotzdem Danke und weiterhin viel Spaß
Peter S.
Danke für die Rückmeldung
IngoG
Hallo Peter,
freut mich, dass du eine Lösung gefunden hast, die für Deine Anforderung ausreicht.
ME mußt Du jedoch sicherstellen, dass die spalte B nicht ausser der Reihe gefüllt wird, sprich, dass wenn Du b5 füllst b4 auch gefüllt ist und somit auch a5 schon mit der Formel bestückt ist.
Dies jedoch nur als anmerkung
Gruß Ingo
Anzeige
AW: Formel einkopieren per VBA?
IngoG
Hallo Peter,
Du schreibst in Deiner Anfrage, dass die Daten über eine Maske in die Tabelle übertragen werden (?)
wie sieht denn diese eingabemaske aus bzw wie sieht der code aus, über den die Daten in Deine Spalte B gelangen?
Vielleicht meldest Du dich dazu nochmal...
Gruß Ingo
AW: Formel einkopieren per VBA?
Peter
Hallo Ingo,
genau da habe ich ja noch mein Problem......ich versuchs mal zu schildern:
A)Gebe ich in meiner Tabelle einen Wert in B10 ein, so schreibt das o.a.Makro selbstverständlich den Wert A10+1 nach A11......alles klar
jedoch
B)Im Endresultat will ich aber nicht direkt in B10 eingeben, sondern über eine Eingabemaske aus einem anderen Tabellenblatt heraus.....das Problem dabei scheint mir jedoch, daß das notwendige "Change-Ereignis" fehlt um das Makro auszuführen......
denn ich habe über Eingabe in die Maske zwar den nächsten Wert dann in B11 stehen, aber keinen Wert in A12....
Das ist noch zu lösen
Danke
Peter S.
Anzeige
AW: Formel einkopieren per VBA?
Peter
Hallo Ingo, und Ihr alle da draußen,
damit es vielleicht verständlicher wird, was hier vorher alles gesagt wurde, poste ich hier mal die Mappe wo ich auch die Erklärungen eigefügt habe.
https://www.herber.de/bbs/user/5390.xls
Danke für Hilfe
Peter S.
AW: Formel einkopieren per VBA?
IngoG
Hallo Peter
wenn Du doch eine Eingabemaske hast, kannst Du doch explizit nach eingabe der Daten in diese maske das Macro anstossen und den wert nach b4 (bzw nächste freie zelle in spalte b) übertragen.
in diesem Fall benötigst Du also garkeine ereignisgesteuerte Prozedur sondern du erweiterst einfach die Routine beim eingeben in die maske um den bekannten code
Gruß Ingo
Anzeige

306 Forumthreads zu ähnlichen Themen

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
Anzeige
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Formel in VBA
steffen

Hallo Leuts,
ich bekomme meine Formel, die in ein Tabellenblatt eingetragen werden soll, einfach nich hin:
ActiveSheet.Range("A4").Formula = "=Büromaterial!R?x?C?"
Wie stelle ich es jetzt an, dass R mit einer Zählvariablen x verbunden wird, sozusagen als Zähler, der bei jedem Durch...
17.09.2008 11:35:00
Thread-ID: 1010306
4 Beiträge
Anzeige
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Formel in VBA
balta

Hallo,
habe ein Problem mit meinem Code
Sub Testi() Dim lngZeile As Long For lngZeile = 2 To 100 Worksheets("Daten").Cells(lngZeile, 6).Formula = "=WENN($M2" & Chr(34) & ";ANZAHL2($M$ _ 2:$M2);"")" Next lngZeile End Sub
das Code soll Indexzahl ausgeben, also wenn Zelle M...
28.09.2008 00:15:02
Thread-ID: 1012872
5 Beiträge
Formel in VBA
steffen

Hallo,
ich komme mal wieder nicht mit meiner Formel in VBA zurecht.
Activesheet.Range("A4").Formula = "=INDIRECT(""Tabelle1!B"" &" & x + 1 & ")"; Formel gehört zu einem anderen Tabellenblatt
Das Problem besteht im Namen "Tabelle1". Da dieser Blattname steht's anders laut...
06.10.2008 11:46:00
Thread-ID: 1014389
9 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 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
5
11
4
3
2
8
4
8
2
12
4
2
6
1
3
14
5
5
8
4
8
4
6
8
4