Formel vereinfachen

Bild

Betrifft: Formel vereinfachen
von: Alex
Geschrieben am: 28.05.2015 11:13:03

Hallo zusammen,
wie kann ich folgende Formel vereinfachen?
Sheets("Verkaufstext").Range("B8").Value = Sheets("Portal 2Tore-fix").Range("K26").Value & "mm " & "x " & Sheets("Portal 2Tore-fix").Range("Q26").Value & "mm"
Sheets("Verkaufstext").Range("F8").Value = Sheets("Portal 2Tore-fix").Range("K26").Value & "mm " & "x " & Sheets("Portal 2Tore-fix").Range("Q26").Value & "mm"
Also die Ranges "B8" und "F8" sollen die gleiche Werte zugewiesen bekommen.
Vielen dank für eure Hilfe
Grüße
Alex

Bild

Betrifft: AW: Formel vereinfachen
von: Michael
Geschrieben am: 28.05.2015 11:20:35
Hi Alex,
schreib doch in Excel direkt in F8 rein: =B8
Oder im Makro:
Sheets("Verkaufstext").Range("B8").Value = Sheets("Portal 2Tore-fix").Range("K26").Value & "mm " & "x " & Sheets("Portal 2Tore-fix").Range("Q26").Value & "mm"
Sheets("Verkaufstext").Range("F8").Value=Sheets("Verkaufstext").Range("B8").Value
Schöne Grüße,
Michael

Bild

Betrifft: AW: Formel vereinfachen
von: Matthias L
Geschrieben am: 28.05.2015 11:22:56
Hallo
Option Explicit

Sub alex()
Dim wksQ As Worksheet
Set wksQ = Sheets("Portal 2Tore-fix")
Sheets("Verkaufstext").Range("B8,F8").Value = wksQ.Range("K26").Value & " mm " & "x " & wksQ. _
Range("Q26").Value & " mm"
End Sub
 BCDEF
840 mm x 80 mm   40 mm x 80 mm


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

Bild

Betrifft: AW: Formel vereinfachen
von: Alex
Geschrieben am: 28.05.2015 11:24:50
Super vielen Dank das habe ich gesucht.

Bild

Betrifft: etwas verkürzt
von: Matthias L
Geschrieben am: 28.05.2015 11:25:53
Hallo

Dim wksQ As Worksheet, wksZ As Worksheet
Set wksZ = Sheets("Verkaufstext")
Set wksQ = Sheets("Portal 2Tore-fix")
With wksZ
.Range("B8,F8").Value = wksQ.Range("K26").Value & " mm " & "x " & wksQ.Range("Q26").Value & "  _
mm"
End With
Gruß Matthias

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Formel vereinfachen"