Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
10.05.2024 16:31:37
Wenn Zelle gleich Leer dann nicht 0
10.05.2024 13:34:11
Prozentuale Auswertung
10.05.2024 13:04:04
Stundenberechnung ohne 22:00 - 06:00 & Sonntag
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
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
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wert statt formel aus zelle übernehmen

wert statt formel aus zelle übernehmen
20.09.2004 08:54:06
Marcel
guten morgen,
ich habe folgendes problem. ich versuchs mal so zu umschreiben.
zellen a1 und a2 werden in a3 multipliziert (dies geschieht in tabelle1)
der wert aus a3 soll nach a4 in tabelle2 übertragen werden.
das ganze mache ich mit einem makro.
problem:
das makro überträgt mir immer die formel also =a1*a2 anstatt den wert. wie kann ich das abändern?
gruß
marcel

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wert statt formel aus zelle übernehmen
Andre
Wie sieht dein Code aus?
mfg Andre
AW: wert statt formel aus zelle übernehmen
ypsilon
hi marcel,
kann ich nicht nachvollziehen,
zeig mal den relevanten teil deines codes
cu Micha
AW: wert statt formel aus zelle übernehmen
Harald
Hallo Marcel,
beim Kopieren schreibst Du etwa so:
Zielzelle.Value = Quellzelle.Value
Dann sollte nur der Wert kopiert werden.
Gruß Harald
AW: wert statt formel aus zelle übernehmen
20.09.2004 10:38:29
Marcel
hallo zusammen,
danke schon mal für die antworten. sorry, ich muss mein problem mal ein bisschen besser umschreiben, sonst komm ich nit weiter.
ich habe eine vorlage um rechnungen zu schreiben.
schritt 1) (makro in der vorlagedatei)
wenn ich die vorlage öffne wird erst mal per automatischem makro eine rechnungsnummer und das aktuelle datum vergeben und eine zweite datei geöffnet (sowas wie ein rechnungsbuch). in diesem rechnungsbuch wird dann das datum und die rechnungsnummer hineingeschrieben, gespeichert und geschlossen. danach geht das 'speichern unter' fenster in der vorlage auf und die datei wird unter der eben vergebenen rechnungsnummer gespeichert.
- bis hier hin klappt das wunderbar
schritt 2) (makro in der rechnungsdatei)
nun wird die rechnung manuell fertig geschrieben und auf den von mir erstellten button "speichern" geklickt. hierdruch wird wieder ein makro aktiviert das folgendes tun soll:
- das makro von schritt 1 löschen - klappt
- wieder das rechnungsbuch öffnen - klappt
- den bearbeiter in das rechnungsbuch schreiben - klappt
- den nettowert in das rechnungsbuch schreiben - HIER IST MEIN PROBLEM
in das rechnungsbuch soll aus der rechnung der 'nettowert' sowie der 'bearbeiter' gespeichert werden. dies kann ich ja nur so lösen, indem ich die werde aus der rechnung in das rechnungsbuch kopiere, da der name der rechnung ja laufend variiert (verschiedene nummern). wenn ich die zelle in der der bearbeiter steht in der rechnung kopiere und ins rechnungsbuch einfüge klappt das wunderbar, da es nur text ist.
will ich aber den 'nettowert' (der sich aus einer summenformel zusammensetzt) kopieren und ins rechnungsbuch einfüge wird die summenformel kopiert und nicht der wert der in der zelle angezeigt wird.
hoffe es konnte wenigstens irgendjemand verstehen was ich vermitteln wollte :)
danke schon mal!
gruß
marcel
Anzeige
AW: wert statt formel aus zelle übernehmen
yps
hi marcel,
deine erklärungen sind ja sehr hübsch aber wie sollen wir dir helfen wenn du nicht deinen code zeigen willst ?
zitat:
will ich aber den 'nettowert' (der sich aus einer summenformel zusammensetzt) kopieren und ins rechnungsbuch einfüge wird die summenformel kopiert und nicht der wert der in der zelle angezeigt wird.
zeige uns doch einfach diese zeile in deinem code
cu Micha
AW: wert statt formel aus zelle übernehmen
20.09.2004 10:55:12
Marcel
hallo micha,
hier der code...
teil der nicht klappt:
ThisWorkbook.Activate
ActiveWindow.ScrollRow = 21
Range("E30:F30").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Daten.xls").Activate
Range("D3").Select
ActiveSheet.Paste
komplett:
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\m.strassburger\Desktop\Daten.xls"
ThisWorkbook.Activate
Range("D17").Select
Selection.Copy
Windows("Daten.xls").Activate
Range("C3").Select
ActiveSheet.Paste
ThisWorkbook.Activate
ActiveWindow.ScrollRow = 21
Range("E30:F30").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Daten.xls").Activate
Range("D3").Select
ActiveSheet.Paste
Rows("3:3").Select
Application.CutCopyMode = False
With Selection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Rows("3:3").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Range("C10").Select
ActiveWorkbook.Save
ActiveWindow.Close
ThisWorkbook.Activate
End Sub
gruß
marcel
Anzeige
AW: wert statt formel aus zelle übernehmen
yps
hi Marcel,
ohne mich weiter mit deinem code zu beschäftigen (man muss nicht unbedingt selecten um zu kopieren)
ersetze mal "deinen teil der nicht klappt" mit dem dem hier:
ThisWorkbook.Activate
Workbook("Daten.xls").Range("D3:E3").Value = ActiveWorkbook.Range("E30:F30").Value
cu Micha
fehlt ein klitzekleines "s"
y
ThisWorkbook.Activate
Workbooks("Daten.xls").Range("D3:E3").Value = ActiveWorkbook.Range("E30:F30").Value
AW: fehlt ein klitzekleines "s"
yps
hi marcel,
ich konnte das garnicht mitansehen hier mal komplett (hätte ich auch gleich machen können)

Sub test()
Workbooks.Open FileName:= _
"C:\Dokumente und Einstellungen\m.strassburger\Desktop\Daten.xls"
ThisWorkbook.Activate
With Workbooks("Daten.xls").Sheets("Tabelle1") 'hier musst du eventuell die tabelle anpassen
.Range("C3") = ThisWorkbook.Sheets("Tabelle1").Range("D17") 'hier musst du eventuell die tabelle anpassen
.Range("D3:E3") = ThisWorkbook.Sheets("Tabelle1").Range("E30:F30") 'hier musst du eventuell die tabelle anpassen
With .Rows("3:3")
.VerticalAlignment = xlBottom
.Orientation = 0
.Font.Name = "Arial"
.Font.FontStyle = "Standard"
.Font.Size = 10
.Font.ColorIndex = xlAutomatic
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
End With
End With
Workbooks("Daten.xls").Save
Workbooks("Daten.xls").Close
End Sub

cu Micha
Anzeige
geht leider nicht
20.09.2004 11:50:16
Marcel
hallo micha,
geht leider noch nicht.
wenn du ggf. zeit hättest und mir deine email sagen würdest, würde ich dir die dateien mal schicken. ich denke es ist nur ein sehr kleines problem. ich weiss nur nicht wie ich es lösen soll.
danke gruß
marcel
AW: geht leider nicht
yps
guckst du in der profilliste ;-)
dann wirds allerdings erst heute nachmittag was
cu Micha
hast du post bekommen?
20.09.2004 12:21:07
Marcel
nur zur sicherheit...
wäre sau cool wenn du es hin bekommst!
danke schon mal!
du hast mail
y
wie in der mail schon angegeben:
so richtig werde ich aus deinem vorhaben nicht schlau aber wenn dir was fehlt musst du dich eben nochmal melden
cu mIcha
Anzeige
erledigt m.t.
y
sorry to all wegen abwicklung per mail,
aber ich kann mir nicht vorstellen das genau diese fragestellung bei einem anderen nochmals auftauchen wird
cu Micha

317 Forumthreads zu ähnlichen Themen

Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
x ersetzen durch wert aus bestimmter zelle
Ingolf

hallo,
ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...
22.08.2008 09:08:22
Thread-ID: 1003727
5 Beiträge
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Wert aus Zelle holen für VBA
Oliver

Hallo eine kleine Frage,
wollte folgendes umsetzen, ein Benutzer fügt in der Excelobelfläche im ersten Blatt eine Zahl ein. Diese soll jetzt wie folgt verwendet werden:
falls ... größer als dem Zellinhalt, dann ...
meine Idee:
Dim Wert As Integer
Wert = cells(20, 2)
If.....
25.09.2008 10:06:31
Thread-ID: 1012241
6 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
3
16
4
2
5
1
4
4
1
5
30
4
8
3
2
5
2
4
4
2
9
5
5
9
8