Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten vergleichen, Zellwert übernehmen

Forumthread: Spalten vergleichen, Zellwert übernehmen

Spalten vergleichen, Zellwert übernehmen
18.07.2007 08:07:00
Burghard
Hallo,
ich möchte gerne per VBA zwei Spalten in demselben Tabellenblatt miteinander vergleichen lassen.
Werte in Spalte D (Bereich D2 bis D307) ungleich sind mit dem Wert in Spalte H (Bereich H2 bis H307).
Es soll zeilenweise verglichen werden, wenn der Wert in Spalte H ungleich dem Wert in Spalte D ist (gleiche Zeile), dann soll die jeweilige Zelle in D den Wert von H bekommen.
Dasselbe gilt für die die Spalten F und J (Bereich jeweils F2 bis F307 und J2 bis J307).
Ich weiß, dass man das auch mit der WENN-Funktion machen könnte, will aber das VBA Makro mit anderen MAkros zusammen verwenden.
Hilfe wäre nett.
Gruß
Burghard

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten vergleichen, Zellwert übernehmen
18.07.2007 08:30:42
Armin
Hallo Burghard,

Sub Vergleichen ()
DIM Rx as Range
For Each Rx In Range("D2:D307")
if Rx.Value  Rx.Offset(0,4).Value Then
Rx.Value=Rx.Offset(0,4).Value
end if
next
End Sub


Für die anderen Bereich dto.
Gruß Armin

AW: Spalten vergleichen, Zellwert übernehmen
18.07.2007 16:11:50
Burghard
Hallo Armin,
vielen Dank für die Programmierung / Hilfe. Funktioniert!
Schönen Gruß
Burghard

Anzeige
Beispiel
18.07.2007 08:31:10
Matthias
Hallo Burghard,
ein Beispiel für den ersten Bereich
um die anderen Bereiche ebenfalls zu prüfen ersetze den Rangebereich im Code
For Each c In Range("H2:H307") durch Range("J2:J307").

Sub ersetzen()
Dim c As Variant
For Each c In Range("H2:H307")
If c.Value  c.Offset(0, -4) Then
c.Offset(0, -4) = c.Value
End If
Next
End Sub


Beispielmappe
https://www.herber.de/bbs/user/44190.xls
Userbild

Anzeige
AW: Beispiel
18.07.2007 16:13:00
Burghard
Hallo Matthias,
vielen Dank für den Code. Funktioniert!
Schönen Gruß
Burghard

AW: Spalten vergleichen, Zellwert übernehmen
18.07.2007 08:31:58
fcs
Hallo Burghard,
hier eine Lösungsvariante
Gruß
Franz

Sub Spaltenpruefen()
Dim wks As Worksheet, lngStart As Long, lngEnde As Long, lngZeile As Long
Set wks = ActiveSheet
lngStart = 2
lngEnde = 307
With wks
For lngZeile = lngStart To lngEnde
'Spalte D und H abgleichen
If .Cells(lngZeile, 4).Value  .Cells(lngZeile, 8) Then _
.Cells(lngZeile, 4) = .Cells(lngZeile, 8).Value
'Spalte F und J abgleichen
If .Cells(lngZeile, 6).Value  .Cells(lngZeile, 10) Then _
.Cells(lngZeile, 6) = .Cells(lngZeile, 10).Value
End
Next lngZeile
End With
End Sub


Anzeige
AW: Spalten vergleichen, Zellwert übernehmen
18.07.2007 16:15:00
Burghard
Hallo Franz,
vielen Dank für die Programmierung / Kombination beider Spalten.
Schönen Gruß
Burghard
;

Forumthreads zu verwandten 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
Mittelwertberechn. mit var. Spaltenlänge
Falk

Hallo,
Zur Situation
in einer Excelspalte (z.B. A) füge ich - aus einem anderen Programm - kopierte Zahlen ein. Excel schreibt die, in Spalte A, eingefügten Zahlen untereinander. In der Spalte B berechne ich dann den Mittelwert wie folgt: =SUMME(A2:A1872)/1871
Mein Problem
Weil...
15.09.2008 11:21:00
Thread-ID: 1009725
5 Beiträge
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
Spaltenumbruch mit zahlen
Andreas

Salü Zusammen
Dieses Makro zur Einfügung von Seitenumbrüchen habe ich im Archiv gefunden. Kann mir jemand die Angaben mache, damit es anstelle von Buchstaben auch mit Zahlen funktioniert?
Ich möchte, dass sobald die Zahl in Spalte N wechselt ein Seitenumbruch eingefügt wird.
Das wäh...
27.11.2008 13:23:20
Thread-ID: 1028340
2 Beiträge
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
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
Formel für ganze Spalte
Andreas

Hallo zusammen,
ich stehe bei dieser wahrscheinlich einfachen Formel echt auf dem Schlauch.
Ich würde mich über eine Hilfe gaaanz riesig freuen
https://www.herber.de/bbs/user/63900.xls
18.08.2009 11:46:25
Thread-ID: 1096693
14 Beiträge
SpecialCells funkt nicht über ganze Spalte
Alois

Hallo Forum.
Der gesuchte Code soll mir die Zeilen im gesamten Tabellenblatt ausblenden, wo Spalte C leer ist.
Oder anders herum:
Es sollen nur noch die Zeilen eingeblendet bleiben, wo die Spalte C einen Inhalt hat.
Habe zum Test ein leeres Tabellenblatt genommen und in den Zell...
14.09.2009 21:39:52
Thread-ID: 1102761
5 Beiträge
Anzeige
Zellen multiplizieren mit CommanButton
Magic

Hallo,
ich hätte da mal ein kleines Problem.
Ich habe verschiedene Commandbuttons mit denen ich verschieden Prozentwerte von +20%- -20% vorwählen kann.
Jetzt möchte ich beim drücken einer dieser buttons die Werte der Zellen von B11-M40 mit diesem Wert multiplizieren.
Kann ´wir d...
25.09.2009 07:58:53
Thread-ID: 1105444
8 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