Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1632to1636
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
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisch Range mit Eingabewert multiplizieren

Automatisch Range mit Eingabewert multiplizieren
18.07.2018 08:43:57
Torsten
Hallo,
ich habe ein paar Fragen.
1. Ich habe eine Excel-Liste erstellt und möchte das eine bestimmte Range mit einem Eingabewert multipliziert wird. Bei mir funktioniert dieser Befehl allerdings nur für die erste Zelle, danach kommt eine Fehlermeldung. Was ist hier falsch?
Range("C10:C19").Select
Selection.Copy
Range("F10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("F10:F19").Select
Dim Eingabewert As Long
Eingabewert = InputBox("Wieviel Stück sollen produziert werden?")
For Each Zelle In Selection
If Not (Zelle.HasFormula) Then
Zelle.Formula = "=" & Zelle.Value & "*" & Val(Eingabewert)
End If
Next Zelle
End Sub
2. Möchte ich das die Eingabe des Wertes per Touchscreen möglich ist. Also wenn man auf den Knopf "Menge" drückt, müsste ein Zahlenblock aufploppen wo man die Menge eingeben kann... Geht sowas überhaupt?
Sonnige Grüße aus dem hohen Norden.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Rückfrage
18.07.2018 08:51:17
Bernd
Servus Torsten,
in welchen Spaltenabständen sollen die Ranges eingefügt werden?
von "C" bis "F" sind es 3. Interpretiere ich richtig, dass dann die nächste zu befüllende Range als "I" sein soll?
Lade im Idealfall eine Beispielmappe hoch.
Grüße, Bernd
AW: Automatisch Range mit Eingabewert multiplizieren
18.07.2018 08:59:15
Hajo_Zi
bei mir läuft der Code. 
Option Explicit
Sub kopieren()
Dim zelle As Range
Dim Eingabewert As Long
Range("C10:C19").Copy
Range("F10").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Eingabewert = InputBox("Wieviel St?ck sollen produziert werden?")
For Each zelle In Range("F10:F19")
If Not (zelle.HasFormula) Then
zelle.Formula = "=" & zelle.Value & "*" & Val(Eingabewert)
End If
Next zelle
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Anzeige
AW: Automatisch Range mit Eingabewert multiplizieren
18.07.2018 09:13:10
Bernd
Servus Torsten,
bitte ohne Kennwort nochmal hochladen.
Grüße, Bernd
AW: Automatisch Range mit Eingabewert multiplizieren
18.07.2018 09:17:09
Torsten
617TORPOL sorry :D
AW: Automatisch Range mit Eingabewert multiplizieren
18.07.2018 09:19:07
UweD
Hallo
ohne select (braucht mal in 99% der Fälle nicht)
und auf einmal ohne Schleife
Sub tt()
Dim Eingabewert As Integer
Dim RNG As Range
'Zielbereich
Set RNG = Range("F10:F19")
'Werte kopieren
RNG.Value = Range("C10:C19").Value
'Sind überhaupt Zahlen vorhanden
If WorksheetFunction.Count(RNG) = 0 Then
MsgBox "keine Werte enthalten"
RNG.ClearContents
Exit Sub
End If
'Multiplikator erfassen
Eingabewert = InputBox("Wieviel Stück sollen produziert werden?", , 30)
'Hilfszelle füllen und copieren
With Cells(1, Cells.SpecialCells(xlCellTypeLastCell).Column + 1)
.Value = Eingabewert
.Copy
'Alle Zahlen auf einmal multiplizieren
RNG.SpecialCells(xlCellTypeConstants, 1).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
'Hilfszelle löschen
.ClearContents
End With
End Sub

LG UweD
Anzeige
AW: Automatisch Range mit Eingabewert multiplizieren
18.07.2018 09:27:33
Torsten
Danke UweD, das ist schon perfekt.
Gibt es denn noch die Möglichkeit den Eingabewert über Touch (also Nummernblock einblenden) einzugeben? Habe sowas schonmal gesehen, allerdings weiss ich nicht ob sowas in dieser Kombination funktioniert.
AW: Automatisch Range mit Eingabewert multiplizieren
18.07.2018 10:26:03
Torsten 

Sub tt()
Dim Eingabewert As Integer
Dim RNG As Range
'Zielbereich
Set RNG = Range("F10:F19")
'Werte kopieren
RNG.Value = Range("C10:C19").Value
'Sind überhaupt Zahlen vorhanden
If WorksheetFunction.Count(RNG) = 0 Then
MsgBox "keine Werte enthalten"
RNG.ClearContents
Exit Sub
End If
 'Multiplikator erfassen
Eingabewert = InputBox("Wieviel Stück sollen produziert werden?", , 30)
'Hilfszelle füllen und copieren
With Cells(1, Cells.SpecialCells(xlCellTypeLastCell).Column + 1)
.Value = Eingabewert
.Copy
'Alle Zahlen auf einmal multiplizieren
RNG.SpecialCells(xlCellTypeConstants, 1).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
'Hilfszelle löschen
.ClearContents
End With
End Sub

Den "fett" markierten Bereich würde ich jetzt gerne über UserForm1 eingeben. Das ist ein Zahlenblock der hier schonmal für mich erstellt wurde. Ist das möglich? Habs versucht irgendwie einzubauen, allerdings versteckt sich die Userform hinter der Inputbox, oder poppt gar nicht erst auf... :(
Anzeige
AW: Automatisch Range mit Eingabewert multiplizieren
18.07.2018 10:31:13
Bernd
Servus Torsten,
probier mal...
https://www.herber.de/bbs/user/122755.xlsm
müsstest du noch auf deine Tabelle anpassen, aber bekommst du sicher allein hin :-)
Grüße, Bernd
AW: Automatisch Range mit Eingabewert multiplizieren
18.07.2018 10:50:30
Torsten
Wahnsinn... Mega fettes Dankeschön!!!!!

306 Forumthreads zu ähnlichen Themen

Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
Anzeige
Spalte mit x = Wert möglich ?
Petra

Hallo
Ich möchte gerne wenn in Spalte B3 ein x eingetragen wird, das dann in Spalte B3 der Wert aus Spalte B1 eingetragen wird.
Ich weiß das es per Formel =Wenn(B3="x";B1;0) geht, aber dann müßten wir hier Behelfsspalten einbauen was nicht gewünscht wird.
Habe es per Bedingter Forma...
23.09.2008 15:34:17
Thread-ID: 1011775
21 Beiträge
immer gleicher zellen wert aus untersch. reg
Jessi

hallo zusammen,
ich bin mir sicher es ist kein hexenwerk:
ich habe ein problem und zwar habe ich ein übersichtssheet aus verschiendenen werten, die immer aus der gleiche zelle eines anderen register stammen.
z.b.
register100, wert spalte a, zeile 1
register100a, wert spalte...
06.11.2008 11:12:00
Thread-ID: 1022199
10 Beiträge
Anzeige
Spalten mit mehrfachen Datumswerten löschen
Claudia

Hallo zusammen,
ich brauche mal wieder Eure Hilfe. Ich habe eine Tabelle die folgenden Aufbau hat.
Zeile 1 = Überschrift
Ab Zeile 2 stehen Werte (in Spalte A jeweils Datumswerte, die Tabelle ist chronologisch sortiert, das jüngste Datum steht unten).
Jetzt möchte ich - da am Tag...
19.01.2009 10:29:01
Thread-ID: 1041331
5 Beiträge
Zahlen mit . auf Spalten übertragen
ZekA

Hallo,
ich habe in Spalte L Zahlen stehen mit dem Trennzeichen .
Also in Spalte L steht
7 . 3 . 38 . 45 . 43 . 8
Wie bekomm ich mit einer Formel die Zahlen in Spalte B-G
Also Spalte B = 7
Spalte C = 3 usw.
Freu mich auf Hilfe. Danke
Gruß
06.02.2009 11:18:30
Thread-ID: 1047676
3 Beiträge
Spalte mit Wert aus einer Zelle füllen
schneidrian

Hallo Forum,
Ich habe folgendes Problem, ich habe einige hundert Zellen untereinander. In diese (alle) will ich genau den gleichen Wert eintragen lassen, der in einer gesonderten Zelle steht. Irgendwie finde ich hier keine passendes Mittel.
Viele Grüße
Florian
16.02.2009 17:06:00
Thread-ID: 1051222
2 Beiträge
Formel nur einmal berechnen
Andre

Hallo!!
Ich habe eine Spalte mit Zellen in denen eine Formel steht die sich aber nur einmal berechnen soll, da sich der Bezug aus dem sich die Formel zusammensetzt hin und wieder ändert. Darum soll das Ergebnis nur einmal berechnet werden. Ändert sich nun aber der Wert in der Bezugszelle, ä...
25.02.2009 16:39:21
Thread-ID: 1054049
25 Beiträge
Werte addieren mit Bezug auf andere Spalten
Dennis

Hallo,
in Spalte A steht entweder KAUF oder VERKAUF, Spalte B ist WARE1 oder WARE2, Spalte C ist die Stückzahl.
Nun würde ich gern in eine Zelle den aktuellen Bestand von Ware1 und in einer anderen Zelle den Bestand von Ware2 sehen. Aber wie addiere ich die Bestände mit Berücksichtigung...
26.05.2009 15:53:26
Thread-ID: 1077452
9 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm InputBox

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
7
4
20
9
1
4
2
1
24
8
13
4
7
4
1
2
3
6
6
7
3
6
9
10
2