angehangene Excel Tabelle benötigen wir zur Eingabe in unser Programm , Werdegang jetzt ist folgendermaßen :
1. Hilfstabelle oben ( mit hinterlegten Formel für Fläche in Spalte R ) 2. Eingabetabelle unten -> Bauteil KZ eintragen -> Werte eintragen -> Flächenformel aus Spalte R in Hilfstabelle kopieren
Ich würde dies gerne automatisiert haben, also wenn ich in die Hilfstabelle als bsp. KZ R eintrage er mir automatisch die hinterlegte Formel einfügt ( in diesem Fall R17 Formel kopiert in R65 ) ( Gelbe markierte Spalten in Hilfstabelle sind nötige Werte zur Berechnung )
Leider bin ich mit meinem "Wissen" am Ende - wenn ich einen Sverweis anlege erkennt er zwar das ich KZ R habe aber nimmt natürlich die Werte aus der hinterlegten Formel R17 und nicht aus R65.
Hallo, mir ist keine Möglichkeit bekannt, eine Formel in eine andere Zelle zu übertragen. Vielleicht geht das mit VBA, damit kenne ich mich aber nicht aus.
(min) 2 Voraussetzungen 1) Schreibe die Formeln in "Excel-Syntax" 2) statt Zeilennummern nimmst Du #, damit man die Zeilennummer flexibel mit WECHSELN einsetzen kann
Deine "Formelübersicht" sind bei mir rechts die beiden Spalten. In einer Hilfsspalte - bei mir hier Spalte A, holst Du die in der Zeile zutreffende Formel. Dabei wird das Zeichen # durch die Zeilennummer ersetzt. Du gehst in die erste Zelle der Ergebnisspalte - bei mir war das E1 - und definierst da den "Namen" Berechnen Dann kannst Du in der Zelle =Berechnen als Funktion eintragen
A
B
C
D
E
F
G
H
1
C1+D1
R
3
2
5
R
C#+D#
2
C2*D2
K
4
6
24
K
C#*D#
Name
Bezug
Berechnen
=AUSWERTEN(INDIREKT("Tabelle1!A"&ZEILE()))
Zelle
Formel
A1
=WECHSELN(SVERWEIS(B1;$G$1:$H$2;2;0);"#";ZEILE())
E1
=Berechnen
A2
=WECHSELN(SVERWEIS(B2;$G$1:$H$2;2;0);"#";ZEILE())
E2
=Berechnen
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Was soll mir Spalte H sagen bzw. welche Funktion soll Spalte H erfüllen ? wenn ich in Excel eine Funktion =C#+D# eingebe kommt da nur eine Fehlermeldung
Um es auf die angehangene Tabelle mal zu projezieren :
Spalte C - Suchkriterium - Spalte S Formel + Ausgabe der Summe
Namen definieren klar - Funktion hinterlegen hörts bei mir schon auf ( auswerten kenn ich garnicht - wird mir auch nicht von excel vorgeschlagen )
Hallöchen, Du hast doch eine Tabelle voller Funktionen... Das wäre hier meine Spalte H. Die schreibst Du erst mal so um dass Excel sie berechnen kann - mit den zutreffenden Spalten wo gerechnet wird. Dann nimmst Du das = weg und setzt das # statt der Zeilennummer und dann kopierst Du die in Deine Formelübersicht Die Buchstaben mit denen Du Formeln holen willst müssen eindeutig zugewiesen sein. Dann bau ich Dir das Auswerten auch noch in Deine Tabelle
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
04.04.2024, 16:21 (Dieser Beitrag wurde zuletzt bearbeitet: 04.04.2024, 16:24 von HKindler.)
Hi,
hier mal eine Lösung per VBA. Die Routine gehört ins Code-Modul des entsprechenden Tabellenblattes.
Code:
Private Sub Worksheet_Change(ByVal Target As Range) Dim Bereich As Range Dim Zelle As Range Dim A As Range Set Bereich = Intersect(Target, Columns("c")) 'Bei Änderung in Spalte C reagieren If Not Bereich Is Nothing Then For Each Zelle In Bereich If Zelle.Row > 63 Then 'ab Zeile 64 'Zelle im Bereich C7:C49 mit dem selben Eintrag suchen Set A = Range("C7:C49").Find(Zelle.Value, LookIn:=xlFormulas, lookat:=xlWhole) If Not A Is Nothing Then 'Formel aus Spalte R dieser Zeile kopieren, R = C+15 Zelle.Offset(, 15).FormulaR1C1 = A.Offset(, 15).FormulaR1C1 Else MsgBox Zelle.Value & " ist kein gültiges Kürzel" End If End If Next End If End Sub
Das passt jetzt genau auf deine Musterdatei. Wenn du daran etwas änderst, musst du die Routine entsprechend anpassen.
als Erstes sollte der Kollege mal alle seine Formeln überprüfen, da sind m.E. einige Fehler drin. Dann kann man einige Terme aus den Formeln herauslösen und separat als Name vergeben, da sie in mehr als der Hälfte der Formeln vorkommen. Dazu sind einige der Formeln deutlich verbesserungswürdig (fast alle WENN-Formeln).
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr! Über Rückmeldungen würde ich mich freuen.
ich arbeite seit knapp 1 Monat mit der Tabelle und hab selbst schon die Hände über den Kopf geschlagen ( es ging in erster Linie erst mal nur darum die Möglichkeiten abzuklappern ob es funktioniert ) - dass hier einiges verbessert werden muss ist außer Frage.
@shift-del
kannte diese Funktion garnicht - werde mich definitiv mal mit beschäftigen
@Hkindler
Vielen Dank für die Lösung in VBA - in der Theorie ist mein Anliegen damit erledigt