Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - mehrere Zellwerte gleichzeitig auf- abwerten

Forumthread: VBA - mehrere Zellwerte gleichzeitig auf- abwerten

VBA - mehrere Zellwerte gleichzeitig auf- abwerten
31.10.2018 10:23:13
udo
Guten Morgen Forum
benötige etwas Hilfe bei folgendem Problem.
wenn ich einen Zellwert aufwerte ( einzelne Zelle ) mache ich das bislang über
[A1] = [A1].Value +1 oder minus 1
wie sieht das für einen Zellverband aus, gibt es da eine ähnlich einfache Schreibweise für zB [A1:B10] wenn in jedem dieser Zellen unterschiedliche Zahlenwerte stehen, und ich jede Zelle für sich um eine Zahl auf oder abwerten möchte.
Hat Jemand soetwas schon mal realisiert ( Beispiel ).
Wäre euch sehr dankbar für eure Unterstützung
LG Udo
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - mehrere Zellwerte gleichzeitig auf- abwerten
31.10.2018 10:28:58
Hajo_Zi
Hallo Udo,
schreibe die Zahl in eine Zelle. C1 z.B. -1
Range("C1").Copy
Range("A1:A14").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
Application.CutCopyMode = False

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
Ja prima - vielen Dank Hajo !
31.10.2018 10:36:11
udo
genau das was ich suchte ... Danke dir wiedermal sehr Hajo
;-)
LG Udo
AW: VBA - mehrere Zellwerte gleichzeitig auf- abwerten
31.10.2018 10:40:54
Daniel
Hi
direkt in VBA müsstest du jeden Zellwert einzeln ändern, dh mit einer Schleife über jede Zelle laufen und den Zellwert abändern.
in der einfachsten Version: 
Dim Zelle as Range
for each Zelle in Range("A1:B10")
Zelle.Value = Zelle.Value + 1
Next

bei größeren Datenmengen kann es hilfreich sein, die Werte in ein Array einzulesen, dann das Array zu bearbeiten und am Ende das Array als ganzes in die Zellen zurückzuschreiben:
dim arr
dim z as Long, s as Long
with range("A1:B10")
arr = .value
for z = 1 to ubound(arr, 1)
for s = 1 to ubound(arr, 2)
arr(z, s) = arr(z, s) + 1
next s
next z
.value = arr
End with
wie du siehst, alles recht aufwendig.
noch besser und schneller ist das die von Hajo gezeigte Variante mit dem Copy-Paste.
das kann man übrigens auch ohne VBA von Hand ausführen, wenn den Delta-Wert in eine Zelle schreibt, kopiert und dann mit dem Zielbereich die Kontextmenüfunktion (Rechte Maustaste) Inhalte einfügen - Inhalte Einfügen - Werte, Vorgang: addieren
Gruß Daniel
Anzeige
Vielen lieben Dank auch an Dich Daniel ...
31.10.2018 14:32:41
udo
einen Ansatz deiner Art hatte ich ansatzweise im Kopf, hätte ich so nicht hinbekommen alleine.
Danke dir, werde eure beiden Codes mal mit einbauen zum Testen
Schönen Gruß
Udo
und Danke nochmal !

Forumthreads zu verwandten Themen

Suchen und finden
oscar

Hallo zusammen, über folgenden VBA-Code suche ich in einer Spalte.
Sub CSVAuslesen() Dim i As Integer Dim s As Variant auswahl = InputBox("Auswahl Spalte 2 = GCode") s = auswahl If auswahl = "" Then Exit Sub For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 If Cells(i, 2).Value = s...
07.10.2008 09:46:29
Thread-ID: 1014618
3 Beiträge
Anzeige
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
Anzeige
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Funktion SUCHEN o.ä. mit mehreren Suchbegriffen
Nico

Morjen,
sacht mal, was ist an der Syntax falsch? Ich will eine Zelle nach mehreren Begriffen durchsuchen und wenn einer dieser Begriffe enthalten ist, soll der Inhalt der Zelle ausgegeben werden.
Folgende Syntax verwende ich bisher für den Teil der Funktion SUCHEN:
=Wenn(Oder(Suchen...
19.05.2009 09:17:25
Thread-ID: 1076059
8 Beiträge
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Max.Wert mehrerer Werte in einer Zelle
Peter

Hallo Forum,
wer kann helfen?
In einer Zelle sind (5 numer. Werte) gespeichert und duch ein
Semikolon getrennt. Die Zelle kann auch Leerstrings enthalten.
z.B. 4;33;;52;12
Ich möchte den max. Wert an die Textbox 'TxtAltKWo1'
übergeben.
Danke Peter
'Zellinhalt (5...
07.11.2009 20:59:50
Thread-ID: 1115285
3 Beiträge
Inhalt von mehreren Textboxen in einer Zelle speic
mehreren

Hallo Forum,
ich möchte per VBA den Inhalt von mehreren Textboxen in einer Zelle speichern.
(mit Semikolon getrennt)
Da gibt es bestimmt eine bessere Lösung als:
Wer kann helfen?
Cells(1,1).value=TextBox1.text & „;“ & TextBox2.Text……….
Danke Peter
08.11.2009 19:48:16
Thread-ID: 1115412
2 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
mehrere Werte suchen Match SCHWIERIG!!!
MarkusB.

Hallo allerseits!
Ich habe folgendes Problem:
Ich möchte das Workbook durchsuchen lassen. Die Werte die abgeglichen werden befinden sich auf dem ersten Sheets(1) in Spalte C. In diesem Fall 001 bis z.B. 321. Wenn eine Übereinstimmung auf den folgenden Sheets vorliegt (die Werte befinden...
02.02.2010 15:05:36
Thread-ID: 1134957
4 Beiträge
Mehrere kriterien in einer Zelle
Gallier1

Hallo
habe folgendes problem:
A1 =WENN(UND(A8=O$1;T8<=10000;U8<=10000;<b>C8="C"oder"B"oder"A</b>");O$3;"")
Der Fett dargestellte Bereich stimmt nicht in meiner Formel. Ohne diesem Bereich funktioniert sie problemlos (Dank des UMFANGREICHEN Forums) In C8 gibt es...
11.08.2010 16:15:53
Thread-ID: 1171752
11 Beiträge
TextBox Wert in Zellen suchen
urmila

Hallo zusammen,
ich habe zwar eine Lösung dafür aber es klappt nicht immer, hier die Beschilderung:
Ich habe ein USerform, da ist eine TextBox1 und einige Labels. Nun will ich wenn ich in der Textbox was eingebe, mir die Daten aus dem Tabellenblatt ausliest und die dazugehörige Daten in...
13.08.2010 08:49:26
Thread-ID: 1172069
4 Beiträge
Anzeige
mehrere werte in einer Zelle
knab

Hallo,
ich würde gerne in einer Zelle Ergebnisse aus mehreren zellen zusammenfassen.
Beispiel:
a1 = 30
a2= 40
a3 = 50
Ziel ist jetzt a4. Hier soll stehen 30,40,50
geht das und kann mir jemand die Formel hierfür geben.
Vielen Dank
16.09.2010 10:44:09
Thread-ID: 1178021
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige