Anzeige
Archiv - Navigation
1504to1508
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
Inhaltsverzeichnis

Formel mit Makro

Formel mit Makro
31.07.2016 15:08:12
Shadow
Guten Mittag, ich hab da noch eine Frage zum Thema VBA
Frage: ist es möglich eine Formal einzubringen sprich =Summe(zwei Werte) *1,19 ?
Allerdings müsstest die Werte gefunden werden da sie bei jedem Export wo anders stehen.
Machbar? Wenn ja, wie ?
Vielleicht so besser erklärt
Suchwort: "X" 3 Zellen nach rechts kopieren
Suchwort: "Y" 3 Zellen nach Rechts einfügen und *1,19
Gruß Kevin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ja, aber nicht so...
31.07.2016 16:01:18
Werner
Hallo Kevin,
...denn momentan lässt sich nicht mehr dazu sagen.
Wo soll gesucht werden? Was soll gesucht werden?
Suchwort? Mit einem Wort kann man nicht rechnen.
3 Zellen nach rechts Kopieren, 3 Zellen nach rechts einfügen?
Also zumindest bei mir nur Fragezeichen. Am besten eine kleine Beispielmappe hoch laden.
Gruß Werner
AW: ja, aber nicht so...
31.07.2016 16:55:21
Hajo_Zi
das geht nicht, da eine XLSX Datei kein Makro enthalten kann.

Anzeige
AW: ja, aber nicht so...
31.07.2016 17:09:10
Shadow
Dann eben so.
Habe jetzt nach dem Wort Beispiel netto gesucht und bin 3 Zellen nach Rechts gegangen habe diesen Wert/Zahl kopiert und möchte ihn in die Formel bringen...
Sub Makro1()
' Makro1 Makro
Cells.Find(What:="Beispiel netto", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.Offset(0, 3).Select
Selection.Copy
Cells.Find(What:="Beispiel brutto", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.Offset(0, 3).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(Zahl) *1.19"
End Sub

Anzeige
Erledigt
31.07.2016 18:07:16
Shadow
Geschlossen = Lösung hinbekommen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige