Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zeilenumbruch in Formel; zur Übersichtlichkeit

VBA Zeilenumbruch in Formel; zur Übersichtlichkeit
Bernd
Hallo Forumsmitglieder,
versuch in VBA Formel abzubilden. Klappt eigentlich super! Funktioniert aber nur wenn alles in einer Zeile steht. Habe in den Archiven gesucht, wie ich in VBA einen Zeilenumbruch innerhalb einer Formel hinbekomme. Scheitere aber immer wieder. Die Formel zwischen" "IF(And(RC........R6c1, """"))))))" " steht in VBA in einer Zeile. Würde gerne bei den If Abfragen einen Zeilenumbruch machen.
Sub Tarif_Variante1()
With Sheets("kundendaten").Range("aa2:aa100")
.FormulaR1C1 = _
"=IF(AND(RC[-1]=""bp"",RC[-3]Verkaufspreise!R9c2),Verkaufspreise!R9c1,IF(AND(RC[-1]=""bp"",RC[-3]>Verkaufspreise!R10C2),Verkaufspreise!R10C1,IF(AND(RC[-1]=""allg"",RC[-3]Verkaufspreise!R5c2),Verkaufspreise!R5c1,if(AND(RC[-1]=""allg"",RC[-3]>Verkaufspreise!R6C2),Verkaufspreise!R6c1, """"))))))"
.Value = .Value
End With
End Sub
hier hast du doch einen...
19.04.2010 12:40:43
robert
.FormulaR1C1= _
gruß
robert
AW: VBA Zeilenumbruch in Formel; zur Übersichtlichkeit
19.04.2010 12:46:35
firmus
Hallo Bernd,
Vielleicht ein passender Ansatz für Dich.
wenn ich Gefahr laufe, dass eine Formel unübersichtlich wird, mache ich das so:
ftext as string definiert.
ftext = ""
ftext = ftext & "1. Teil der Formel........"
ftext = ftext & "2. Teil der Formel........"
ftext = ftext & "3. Teil der Formel........"
Am Ende weise ich ftext der entsprechenden Zelle zu.
Gruß
Firmus
AW: VBA Zeilenumbruch in Formel; zur Übersichtlichkeit
19.04.2010 12:57:39
Bernd
Hallo Firmus,
hört sich für mich nicht schlecht an. Allerdings tue ich mich mit VBA noch schwer, insbesondere wenn ich irgendetwas definieren muss. Kannst du mir das anhand der Formel etwas genauer zeigen.
Gruß Bernd
Anzeige
AW: VBA Zeilenumbruch in Formel; zur Übersichtlichkeit
19.04.2010 13:26:34
firmus
Hallo Bernd,
etwa so sieht das aus.
Ausriß aus einem Makro, das eine bestimmte Spalte sucht
Die der Spaltenbuchstabe wurde in offC_find geschrieben.
in cSAM steht auch ein Buchstabe. In dieser Spalte soll jede Zeile "=VLOOKUP(........ en..." als
Formel eingesetzt bekommen.
Anschließend werden die Formeln durch die erhaltenen Werte ersetzt.
sub testmacro()
dim cSAM as String
dim offC_find as String
dim tempformel as String
....
....
Range(cSAM & "2").Select
tempformel = "=VLOOKUP(RC" & offC_find & ",'[VX_Team.xls]ALL_Assigned_Sites'!SAMsiteIDs,2,FALSE)"
ActiveCell.FormulaR1C1 = tempformel
ActiveCell.Copy
Range(cSAM & "2:" & cSAM & VXFILanzze).Select
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
...
...
Die Lösung mit dem Zeilenumbruch direkt im Editor gefällt mir auch gut.
Es kommt jeweils darauf an welche Lösung zur Anforderung besser paßt (effizient ist).
Gruß
Firmus
Anzeige
AW: VBA Zeilenumbruch in Formel; zur Übersichtlichkeit
19.04.2010 12:57:06
Rudi
Hallo, 
With Sheets("kundendaten").Range("aa2:aa100")
.FormulaR1C1 = _
"=IF(AND(RC[-1]=""bp"",RC[-3]Verkaufspreise!R9c2),Verkaufspreise!R9c1," _
& "IF(AND(RC[-1]=""bp"",RC[-3]>Verkaufspreise!R10C2),Verkaufspreise!R10C1," _
& "IF(AND(RC[-1]=""allg"",RC[-3]Verkaufspreise!R5c2),Verkaufspreise!R5c1," _
& "if(AND(RC[-1]=""allg"",RC[-3]>Verkaufspreise!R6C2),Verkaufspreise!R6c1, """"))))))"
.Value = .Value
End With

Gruß
Rudi
AW: VBA Zeilenumbruch in Formel; zur Übersichtlichkeit
19.04.2010 14:13:18
Bernd
Hallo Rudi,
Hallo Firmus,
die Lösung von Firmus muss ich erst mal testen. Ich würde die Lösunge mit dem Zeilenumbruch direkt im Editor bevorzugen. Doch bringt er mir Laufzeitfehler 1004; Anwendungs- oder objektdefinierter Fehler.
Hab den Teil mit der Formel in VBA reinkopiert, liegt es vielleicht daran?.
Anzeige
AW: VBA Zeilenumbruch in Formel; zur Übersichtlichkeit
19.04.2010 14:17:52
Rudi
Hallo,
möglicherweise hat die Forensoftware was verschluckt.
Beim 1. und 3. Verkaufspreise fehlt ein <.
Gruß
Rudi
AW: VBA Zeilenumbruch in Formel; zur Übersichtlichkeit
19.04.2010 15:07:48
Bernd
Hallo Rudi,
hätte ich eigentlich gleich sehen sollen, dass die Forensoftware nicht alles dargestellt. Jetzt hat es funktioniert. Eine weitere Frage wäre: Kann bei einer Wenn Abfrage in VBA auch nur 7 Verschachtelungen abfragen?
Gruß Bernd
AW: VBA Zeilenumbruch in Formel; zur Übersichtlichkeit
19.04.2010 15:44:39
Rudi
Hallo,
natürlich auch nur 7, da du ja eine Formel in die Zellen schießt.
Wenn du auch mit ner 0 als Erg. leben kannst nach diesem Schema: 
=WENN(UND(Z2="bp";X2Verkaufspreise!$B$10);Verkaufspreise!$A$10;0)+WENN(UND(Z2="allg";X2Verkaufspreise!$B$6);Verkaufspreise!$A$6;0)
Gruß
Rudi
Anzeige
AW: VBA Zeilenumbruch in Formel; zur Übersichtlichkeit
20.04.2010 11:49:27
Bernd
Hallo Rudi,
hat geklappt. Allerdings nur mit Umwegen. Da das 1. Ergebnis einen Text als Wert wiedergibt, und der Sonst-Wert 0 ausgibt, erhalte ich den Fehler #Wert. Habe dann die Abfragen nummeriert und danach mit einem Sverweis wieder den Text erhalten. War zwar etwas aufwendig, aber funktioniert.
Danke nochmals für deine Hilfe
Gruß Bernd

300 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Bestimmtes Zeichen in Zellen einfügen VBA
Thomas

Hallo guten Morgen liebe Helfer,
ich habe eine sehr große Tabelle mit vielen Angaben. Nun muss aber für einen Import dieser Daten in einem anderen Programm vor jedem Eintrag in meiner Excel-Tabelle in ganz bestimmten Spalten ein Zeichen eingefügt werden. Das Zeichen ist das ' (über dem #...
26.02.2009 11:05:37
Thread-ID: 1054273
5 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 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
16
5
3
3
2
2
1
2
4
2
4
4
4
5
2
2
2
3
8
2
2
2
8
6
3