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
1008to1012
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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel per VBA eintragen ?

Formel per VBA eintragen ?
15.09.2008 16:23:00
Selma
Hallo Leute,
wie kann in aktive Zeile in Spalte U per VBA die Formel:
=WENN(ODER(B31="";C31="");"";o_gerade(B31;C31;D31;E31;F31;G31;H31;I31;J31;K31;L31;M31;N31;O31;T31))
eintragen?
Wobei 31 ist im Beispiel die aktive Zeile ist.
Vielen Dank im Voraus !
Liebe Grüße,
Selma

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel per VBA eintragen ?
15.09.2008 16:28:55
Rudi
Hallo,
warum nimmst du nicht einfach den Recorder?
Gruß
Rudi
was ist o_gerade?
AW: Formel per VBA eintragen ?
15.09.2008 16:46:00
Selma
Es funktioniert prima....
Vielen Dank Tino !
Gibt es die Möglichkeit die durch Makro-Aufzeichnung generierte FormulaR1C1 in FormulaLocal per VBA umzuwandeln?
LG,
Selma
AW: Formel per VBA eintragen ?
15.09.2008 16:51:53
Rudi
Hallo,

Gibt es die Möglichkeit die durch Makro-Aufzeichnung generierte FormulaR1C1 in FormulaLocal per VBA umzuwandeln?


Wozu?
Das Ergebnis ist das gleiche. Letztlich ist R1C1 sogar besser einsetzbar, da man die Bezüge leichter anpassen kann.
Gruß
Rudi

Anzeige
nur mal zum Spaß.
15.09.2008 17:08:00
Tino
Hallo Selma,
Rudi hat recht!
Deine Formel würde so ausehen.
Modul Modul1 
Option Explicit 
 
Sub Nur_mal_so() 
Dim MeineZelle As Range 
Set MeineZelle = Cells(ActiveCell.Row, "U") 
 
MeineZelle.FormulaLocal = _
"=WENN(ODER(B" & MeineZelle.Row & "="""";C" & MeineZelle.Row & "="""")" & _
";"""";o_gerade(B" & MeineZelle.Row & ";C" & MeineZelle.Row & ";D" & _
MeineZelle.Row & ";E" & MeineZelle.Row & ";F" & MeineZelle.Row & _
";G" & MeineZelle.Row & ";H" & MeineZelle.Row & ";I" & MeineZelle.Row & _
";J" & MeineZelle.Row & ";K" & MeineZelle.Row & ";L" & MeineZelle.Row & _
";M" & MeineZelle.Row & ";N" & MeineZelle.Row & ";O" & MeineZelle.Row & _
";T" & MeineZelle.Row & "))" 
 
End Sub


Kommst du damit zurecht?
Hast Du noch den Durchblick?

Anzeige
AW: nur mal zum Spaß.
15.09.2008 22:20:00
Selma
Hallo Tino,
meine Frage zum Umwandlung der FormulaR1C1 in FormulaLocal bezieht sich nicht auf dein Makro.
Das war eine allgemeine Frage. Für mich ist es leichter eine Formel zu kopieren und falls ich sie in VBA brauche über FormulaLocal einzufügen (ohne vorher das Makro aufzuzeichnen). Leider funktioniert dieser Weg nicht immer da z.B. ein """ durch " & Chr(34) & Chr(34) & " ersetzt werden muss.
Liebe Grüße,
Selma
AW: Formel per VBA eintragen ?
15.09.2008 16:36:00
Tino
Hallo, ,
so könnte es gehen.
Habe noch einen Zusatz eingebaut, damit die Formel immer in der richtigen Spalte landet. ;-)
Sub Test()
Dim MeineZelle As Range
Set MeineZelle = Cells(ActiveCell.Row, "U")
MeineZelle.FormulaR1C1 = _
"=IF(OR(RC[-19]="""",RC[-18]=""""),"""",o_gerade(RC[-19],RC[-18],RC[-17],RC[-16],RC[-15],RC[-14],RC[-13],RC[-12],RC[-11],RC[-10],RC[-9],RC[-8],RC[-7],RC[-6],RC[-1]))"

End Sub


Gruß Tino

Anzeige
AW: Formel per VBA eintragen ?
15.09.2008 16:44:00
David
Hallo Selma,
als Muster (da ich deine vorhandenen Gegebenheiten nicht alle kenne):

Sub test()
Const Standard As String = "=WENN(ODER(B|="""";C|="""");"""";summe(B|;C|;D|;E|;F|;G|;H|;I|;J|;K| _
;L|;M|;N|;O|;T|))"
For i = 1 To 10
With Range("A1:A" & i)
.ClearContents
.FormulaLocal = Replace(Standard, "|", i, 1)
End With
Next i
End Sub


würde für die Zellen A1:A10 die entsprechende Formel eintragen. Wenn du die "richtige" Zeile anderweitig ermittelst, müsste man das entsprechend einbauen.
Gruß
David

299 Forumthreads zu ähnlichen Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Anzeige
Untergenze in VBA
Axel

Hallo alle miteinander,
ich nicht weiß einfach nicht wie ich die Untergrenze Funktion in mein UserForm einbinden kann.
Kurze Erklärung:
Ich habe ein UserForm mit einem Drehfeld zum durchblättern der Zeilen, in Spalte 27 ist ein Zahlenwert mit zwei Kommastellen eingetragen, das nach...
11.08.2008 10:10:47
Thread-ID: 1000733
7 Beiträge
Mit VBA umrechnen Stunden Minuten Dezimal
chris


Hallo zusammen,
erst einmal allen einen schönen guten morgen.
Jetzt zu meinem problem.Ich habe mir ein VBA Programm erstellt das mir auswertungen macht.
Aber ich verzweifle mit der richtigen umrechnung Stunden minuten und der Dezimalangabe der zeit.
habe unten einen teil me...
12.08.2008 08:12:00
Thread-ID: 1001041
3 Beiträge
Anzeige
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Eingabemaske für Tabelle via VBA ?
kiwi279

Hi Ihr,
habe eine größere Adressdatenbank als Excel-Datei.
Der Inhalt sind normale Adressen, zu denen in jeder Spalte separat bestimmte Informationen (Nachname, Vorname, Email, Geburtstag, Beruf etc.) abgelegt sind.
Da die Datensätze immer wieder ergänzt und aktualisiert werden, ist...
13.08.2008 21:10:00
Thread-ID: 1001661
17 Beiträge
mit Find (VBA) nach Datum suchen
Werner

Hi!
Ich habe folgendes Problem:
Ich habe eine Spalte mit Datumseinträgen (z.B.:13.04.1953, 17.12.1970, ...)
Suche ich mit
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(What:="17")
bekomme ich ein Ergebnis
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(W...
13.08.2008 23:54:00
Thread-ID: 1001685
8 Beiträge
Liste "definierter Namen" per VBA?
David

Hallo zusammen,
ist es per VBA möglich, die in einer Tabelle definierten Namen auszulesen, in einem neuen Sheet aufzulisten und daneben den/die mit dem Namen verbundene(n) Bereich bzw. Formel?
Ich würde mir gern bei umfangreichen Namensdefinitionen das Nachschauen im Menü ersparen, da j...
14.08.2008 12:15:44
Thread-ID: 1001809
5 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
2
2
6
2
5
3
12
16
7
4
1
3
1
1
7
2
16
1
1
6
5
2
16
11
4