Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1692to1696
1692to1696
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nicht für jede Zelle eine Formel zuweisen

Forumthread: Nicht für jede Zelle eine Formel zuweisen

Nicht für jede Zelle eine Formel zuweisen
26.05.2019 12:05:54
Tobias
Huhu .. schönen guten Tag
Ich habe in den Zellen C18 bis C37 fortlaufend Formeln drinnen stehen
C18 : "=Eingabe.xls!Menge1"
C19 : "=Eingabe.xls!Menge2"
...
C37 : "=Eingabe.xls!Menge20"
Nun soll jenachdem ob der Wert
Wahl entweder Verkauf oder Gutschrift ist *-1 genommen wird
Ich mache es jetzt für alle 20 Zeilen einzeln und das dann zweimal.. geht das auch einfacher?
Sub Test()
Dim Wahl As String
If Wahl = "Barverkauf" Then
Range("C18").Select
ActiveCell.FormulaR1C1 = "=Eingabe.xls!Menge1"
Range("C19").Select
ActiveCell.FormulaR1C1 = "=Eingabe.xls!Menge2"
' und so weiter
ElseIf Wahl = "Gutschrift" Then
Range("C18").Select
ActiveCell.FormulaR1C1 = "=Eingabe.xls!Menge1*-1"
Range("C19").Select
ActiveCell.FormulaR1C1 = "=Eingabe.xls!Menge2*-1"
' und so weiter
End Sub
Cu TObi
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nicht für jede Zelle eine Formel zuweisen
26.05.2019 12:14:08
onur 

Sub Test()
Dim Wahl As String
Dim z
For z= 18 to 37
If Wahl = "Barverkauf" Then
Cells(z,3).FormulaR1C1 = "=Eingabe.xls!Menge1"
ElseIf Wahl = "Gutschrift" Then
Cells(z,3).FormulaR1C1 = "=Eingabe.xls!Menge2"
end if
Next z
End Sub

AW: Nicht für jede Zelle eine Formel zuweisen
26.05.2019 12:26:58
Tobias
Hi Onur .. vielen Dank für den Ansatz.
Aber die Zahl von Menge soll sich ja von 1 bis 20 erhöhen.
Habe mich mal daran versucht ... aber so steht immer "=Eingabe.xls!Menge20" drinnen
Wie muss ich denn die zweite Schleife einbinden?
Sub Test()
Dim Wahl As String
Dim z, i
Wahl = "Barverkauf"
i = 1
For z = 18 To 37
For i = 1 To 20
If Wahl = "Barverkauf" Then
Cells(z, 3).FormulaR1C1 = "=Eingabe.xls!Menge" & i
ElseIf Wahl = "Gutschrift" Then
Cells(z, 3).FormulaR1C1 = "=Eingabe.xls!Menge2" & i & "*-1"
End If
Next i
Next z
End Sub

Anzeige
AW: Nicht für jede Zelle eine Formel zuweisen
26.05.2019 12:33:33
onur
Was genau ist denn Menge1 oder Menge20 und befindet es sich auf "Eingabe.xls"?
AW: Nicht für jede Zelle eine Formel zuweisen
26.05.2019 12:42:55
Tobias
Hallo Onur
Hier geht es um die Ausdruckdatei "Druck.xls"
In der Datei Eingabe.xls habe ich den Zellen die Namen Menge1 bis Menge20 gegeben.
Da steht die Anzahl der Produkte drinenn
In der Druckdatei soll dann z.B in der Zelle C18 der Wert der Eingabe drinnen stehen.
ALso
C18 "=Eingabe.xls!Menge1"
C19 "=Eingabe.xls!Menge2"
bis
C37 "=Eingabe.xls!Menge20"
Wenn aber Wert "Gutschrift ist sollen jeweils mit *-1 genommen werden
Bei Gutschrift lautet es dann so:
C18 "=Eingabe.xls!Menge1*-1"
C19 "=Eingabe.xls!Menge2*-1"
bis
C37 "=Eingabe.xls!Menge20*-1"
Vielen Dank TObias
Anzeige
AW: Nicht für jede Zelle eine Formel zuweisen
26.05.2019 12:49:29
onur 

Sub Test()
Dim Wahl As String
Dim z
For z= 1 to 20
If Wahl = "Barverkauf" Then
Cells(z+17,3).FormulaR1C1 = "=Eingabe.xls!Menge"&z"
ElseIf Wahl = "Gutschrift" Then
Cells(z+17,3).FormulaR1C1 = "=-Eingabe.xls!Menge&z"
end if
Next z
End Sub

AW: Nicht für jede Zelle eine Formel zuweisen
26.05.2019 12:56:12
onur
Was ist nicht verstehe:
Variable "Wahl" ist doch immer ="" (Leerstring), da sie frisch dimensioniert wurde und ihr kein Wert zugewiesen wurde.
Anzeige
;

Forumthreads zu verwandten Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 Beiträge
Anzeige
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Anzeige
Fehler bei Formel per Makro in Zelle eintragen
Born

Hallo Forum,
ich habe folgendes Problem:
Ich schreibe per Makro in Zellen eine Formel. Als Ergebnis bekomme ich jedoch nur die Fehlermeldung #NAME?. Wenn ich dann mit F2 in den Bearbeiten-Modus gehe und Enter drücke, kommt das richtige Ergebnis. Meine Formel scheint also richtig zu sein...
23.10.2008 10:15:00
Thread-ID: 1018538
11 Beiträge
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
Spalte ausblenden, wenn in Zeile 7 der Zelleninhal
Selma

Hallo Leute,
wie kann ich die Spalten ausblenden, die in Zeile 7 als Zelleninhalt "x" oder "D" haben?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
29.10.2008 15:41:00
Thread-ID: 1020332
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige