Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel einfügen wenn in A:A Werte stehen

Forumthread: Formel einfügen wenn in A:A Werte stehen

Formel einfügen wenn in A:A Werte stehen
14.01.2009 21:28:00
Micha
Hallo zusammen,
ich bastle mal wieder an meinen Münzdateien und komme nicht so richtig weiter.
Mein Problem:
In Spalte A stehen Werte (z.B. 5 Pf), diese möchte ich nun trennen [in B2 soll per VBA die Funktion =Links(A2;1) / FormulaR1C1 = "=LEFT(RC[-53],1) ].
Diese Formel sollte solange in Spalte B eingetragen werden, wie in der Spalte A2 bis A? Werte vorhanden sind.
Des weiteren soll dann in der Spalte C =Rechts(A2;2) eingetragen werden - ebenfalls solange Werte Spalte A2 bis A? vorhanden sin.
Ich habe über die Suche nichts was mein Problem behandelt gefunden.
Ich Danke euch schon jetzt für eure Unterstützung.
Gruß
Micha
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel einfügen wenn in A:A Werte stehen
14.01.2009 21:52:00
Josef
Hallo Micha,
warum soll das per VBA geschehen?
Du brauchst doch nur B2:Bx markieren (B2 ist aktiv), die Formel für B2 eingeben und mit [Strg]+Enter die Formel abschliessen.
Gruß Sepp

AW: Formel einfügen wenn in A:A Werte stehen
14.01.2009 22:07:00
Micha
Hallo Sepp,
vielen Dank für deine Info.
ich dachte an eine VBA-Lösung, weil ich mit der Zeit sehr viele solcher Dateien "produziert" habe, in die ich nun gerne ein solches Makro einfügen würde.
Das mit dem "nach unten ausfüllen" habe ich schon gemacht. Mit einem Makro lässt sich das doch bestimmt besser machen.
Ich habe da nicht nur die Links und Rechts Formeln, sondern würde dann auch gerne das Makro - so ich das schaffe - für andere Formeln "umbauen".
Ich bekomme es nicht hin, das die Formeln per VBA geschrieben werden, solange in der Spalte A ein Wert vorhanden ist. Wenn in A nichts mehr steht, dann soll auch keine Formel in B eingetragen werden.
Falls das mit VBA nicht geht, dann muss ich das halt mit der anderen Methode machen.
Gruss & bis morgen
Micha
Anzeige
AW: Formel einfügen wenn in A:A Werte stehen
14.01.2009 22:18:27
Josef
Hallo Micha,
Sub FormelPerVBA()
    Dim rng As Range
    
    With ActiveSheet
        Set rng = Range("A2:A" & Application.Max(2, .Cells(Rows.Count, 1).End(xlUp).Row))
        'für B
        rng.Offset(0, 1).Formula = "=LEFT(A2,2)"
        ' 'oder
        ' rng.Offset(0, 1).FormulaLocal = "=LINKS(A2;2)"
        'für C
        rng.Offset(0, 2).Formula = "=RIGHT(A2,2)"
        ' 'oder
        ' rng.Offset(0, 2).FormulaLocal = "=RECHTS(A2;2)"
    End With
    
    Set rng = Nothing
End Sub
Gruß Sepp

Anzeige
AW: Formel einfügen wenn in A:A Werte stehen
15.01.2009 05:21:00
Micha
Hallo Sepp,
ganz vielen Dank.
Werde ich heute am Abend gleich probieren.
Gruß
Micha
AW: Formel einfügen wenn in A:A Werte stehen
15.01.2009 21:20:00
Micha
Hallo Sepp,
das funktioniert wirklich prima - ich danke dir.

Sub FormelPerVBA()
Dim rng As Range
With ActiveSheet
Set rng = Range("A2:A" & Application.Max(2, .Cells(Rows.Count, 1).End(xlUp).Row))
'für B
rng.Offset(0, 1).Formula = "=LEFT(A2,2)"
' 'oder
' rng.Offset(0, 1).FormulaLocal = "=LINKS(A2;2)"
'für C
rng.Offset(0, 2).Formula = "=RIGHT(A2,2)"
' 'oder
' rng.Offset(0, 2).FormulaLocal = "=RECHTS(A2;2)"
End With
Set rng = Nothing
End Sub


Noch eine Frage hätte ich - vielleicht hast dazu auch eine Lösung für mich:
rng.Offset(0, 1).FormulaLocal = "=LINKS(A2;2)" könnte diese Zelle dann evtl. auch im Zahlenformat 0# (z.B. 08) formatiert werden?
Mit dem Recorder aufzeichnen und dahintertippen funktioniert es nicht. 


Sub format_2_Ziffern()
Selection.NumberFormat = "0#"   ' diese Zeile habe ich hinter die LINKS Zeile von dir  _
geschrieben :-(
End Sub


Es wäre toll, wenn du mir das auch so toll erklären könntest, wie die Links/Rechts Sache.
Vielen Dank schon Mal.
Gruß
Micha

Anzeige
AW: Formel einfügen wenn in A:A Werte stehen
15.01.2009 21:42:48
Josef
Hallo Micha,
mit "Selection" kann es nicht funktionieren weil in meinem Code nichts selektiert wird.
Das geht ganz einfach mit

rng.Offset(0, 1).NumberFormat = "0#"


Gruß Sepp

Anzeige
AW: Formel einfügen wenn in A:A Werte stehen
16.01.2009 06:15:00
Micha
Hallo Sepp,
vielen Dank für deine Unterstützung.
Gruß
Micha
AW: Formel einfügen wenn in A:A Werte stehen
16.01.2009 14:27:50
Micha
Hallo Sepp,
ich stelle mich einfach zu doof an :-(
So habe ich es jetzt in Modul1:

Sub FormelPerVBA()
Dim rng As Range
With Worksheets("Euro_Deutschland") 'ActiveSheet
Set rng = Range("A2:A" & Application.Max(2, .Cells(Rows.Count, 1).End(xlUp).Row))
rng.Offset(0, 1).NumberFormat = "0#" 'hier das Format eigefügt - schreibt aber immer -z. _
B.- 5 stat 05
rng.Offset(0, 1).FormulaLocal = "=LINKS(A12;1)"
rng.Offset(0, 2).FormulaLocal = "=GROSS(RECHTS(A12;1))"
End With
Set rng = Nothing
End Sub


Das Format "0#" wird aber nicht "erkannt" - es bleibt eine einstellige Ziffer.
Sei doch bitte so nett, und hilf mir weiter. Dank im Voraus.
Gruß
Micha

Anzeige
AW: Formel einfügen wenn in A:A Werte stehen
16.01.2009 15:28:00
Josef
Hallo Micha,

rng.Offset(0, 1).NumberFormat = "00"


Gruß Sepp
AW: Formel einfügen wenn in A:A Werte stehen
16.01.2009 16:07:00
Micha
Hallo Sepp,
deine Antwort kam ja wieder schneller, als es die Polizei erlaubt.
Aber es funktioniert leider nicht. Auch mit "00" ("nullnull") wird nur eine Ziffer angezeigt.
Kann es vielleicht daran liegen, das 2x etwas in der Spalte B vom Makro geschrieben wird?
Es wäre nett, wenn du mir da noch 1x helfen würdest.
Gruß
Micha
Anzeige
AW: Formel einfügen wenn in A:A Werte stehen
16.01.2009 18:51:55
Josef
Hallo Micha,
jetzt dämmerts;-))
mit

rng.Offset(0, 1).FormulaLocal = "=LINKS(A12;1)"


steht ja ein Text in der Zelle, da kann das mit dem Format nicht klappen.
Ändere es in


rng.Offset(0, 1).FormulaLocal = "=LINKS(A12;1) * 1"


dann funzt es.

Gruß Sepp

Anzeige
AW: Formel einfügen wenn in A:A Werte stehen
16.01.2009 19:07:30
Micha
Hallo Sepp,
einfach P-E-R-F-E-K-T, jetzt klappt es. Vielen herzlichen Dank.
Gruß
Micha
;

Forumthreads zu verwandten Themen

Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
@ 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
Anzeige
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
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
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Formel in Makro umwandeln?
Josef_T

Guten Abend zusammen.
Habe mal wieder ein Problem, dass ich alleine nicht gelöst bekomme.
Es geht darum, einen Ausdruck zu machen wobei nur Zeilen gedruckt werden sollen, die in C einen Wert haben, der grösser Null ist.
Habe mal ein Muster hochgeladen, weil meine Fragen und Erklärun...
29.11.2008 19:08:00
Thread-ID: 1028896
6 Beiträge
Anzeige
Formel wird nicht ausgeführt
Andy

Hallo Leute,
Guten Abend. Ich habe ein ganz großes Problem.
Ich habe eine Exceldatei mit vielen Datensätzen (ca. 8000). In Spalte C habe ich eine Formel, die auf Spalte A und B Bezug nimmt und aus einer Matrix den entsprechenden Wert sucht. Das ganze hat bis jetzt super funktioniert. W...
19.02.2009 16:47:00
Thread-ID: 1052226
8 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Kann Formel nicht in Makro umwandeln. mit bsp xls
Julia


Gestern habe ich hier tolle Hilfe zu einer Berechnung bekommen. Dank der Tipps hab ich die Formeln bekommen
Jetzt hat sich die Ausgangstabelle geändert. Ich hab zwar die Formeln bekomme das aber nicht als Makro hin.
Habe eine Bsp.xls hochgeladen:
https://www.herber.de/bbs/user/...
13.03.2009 11:11:25
Thread-ID: 1059789
4 Beiträge
Formel eintragen bis letzer Wert in anderer Spalte
Jonathan

Hallo zusammen,
ich habe mal wieder eine Frage an euch.
In Spalte E wird in E4 via VBA eine Formel eingetragen. Diese soll nun nun nach unten kopiert werden. Ende sollte der letzte Wert der Spalte F sein.
Wie kann ich das am schnellsten via Makro realisieren? Oder darf ich die Forme...
17.03.2009 17:39:15
Thread-ID: 1061170
4 Beiträge
Wenn Formel einen Wert hat, dann....
Rob

Hallo miteinander!
Ich habe in einer Zelle folgende Funktion stehen:
{=INDEX(Abrechnungshistorie!$C$1:$C$100;KKLEINSTE(WENN(Abrechnungshistorie!$A$7:$A$100=$C$30; ZEILE(Abrechnungshistorie!$C$7:$C$100));1)) }
Diese Funktion möchte ich gerne mit einer "Wenn...Dann" Bedingung verknü...
25.03.2009 18:58:58
Thread-ID: 1063931
3 Beiträge
Zahlen in Text umwandeln
Thomas

Liebe Excelianer
Ich fülle per Excel ein Formular aus, welches ich anschliessend auf einen Check drucke. Darauf gibt es ein Feld mit einem Total, welches unten in Textform übertragen werden muss (Betrag in Worten).
Was kann ich tun, damit diese Zahl automatisch in Buchstaben umgewandelt...
01.04.2009 23:23:30
Thread-ID: 1066161
16 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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