Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte vergleichen + in ein anderes Blatt kopieren

Werte vergleichen + in ein anderes Blatt kopieren
16.11.2005 15:10:18
Kati
Hallo zusammen, also ich möchte jetzt anfangen mich mit VBA zu befassen und habe folgendes Problem und hoffe auf ein bisschen Unterstützung.
In einer Tabelle stehen errechnete Werte in 8 Spalten und 20 Zeilen. Diese Werte sollen vergleichen werden mit einem Wert (z. B. 20) in einem anderen Tabellenblatt. Ist der Wert kleiner als 20, soll 20 genommen werden, ist der Wert größer gleich 20 dann soll der alte Wert genommen werden.
Die so geprüften Werte sollen dann in einem dritten Tabellenblatt aufgeführt werden.
Wenn...dann...sonst ist mir ja fast klar, aber ich möchte wissen, wie das Ganze konkret in einem Makro aussieht, damit ich mal ein Gefühl dafür kriege wie das geht. Ich hoffe, mir kann da jemand behilflich sein.
Danke Gruss katja

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte vergleichen + in ein anderes Blatt kopieren
16.11.2005 16:12:00
jens

Sub vergleich()
for spalte=1 to 8
for zeile=1 to 20
worksheets("Tabelle1").activate
wert1=cells(zeile,spalte)
worksheets("Tabelle2").activate
wert2=cells(zeile,spalte)
if wert1<wert2 then
wert=wert1
else
wert=wert2
end if
worksheets("Tabelle3").activate
cells(zeile,spalte)=wert
next zeile
next spalte
End Sub

AW: Werte vergleichen + in ein anderes Blatt kopieren
16.11.2005 16:24:31
IngGi
Hallo Katja,

Sub Werte_uebernehmen()
'erstmal die benötigten Variablen deklarieren
Dim rngBereich As Range 'Zellbereich, dessen Zellen verglichen werden sollen
Dim rngZelle As Range   'die einzelne Zelle, die gerade verglichen wird
'der Variablen rngBereich wird der zu bearbeitende Zellbereich zugewiesen
Set rngBereich = ThisWorkbook.Worksheets("Tabelle1").Range("A1:H20")
'jede Zelle im Zellbereich "rngBereich" wird bearbeitet, d.h. mit all diesen
'Zellen wird das gemacht, was zwischen For Each und Next steht
'die gerade bearbeitete Zelle steht dabei immer in rngZelle
For Each rngZelle In rngBereich
If rngZelle <= 20 Then 'wenn der Wert der Zelle kleiner oder gleich 20 ist...
'wird 20 in die Zelle geschrieben, die sich aus der Kombination zwischen
'Tabelle2 und der Zeilen-/Spalten-Adresse der gerade auf Tabelle 1
'bearbeiteten Zelle ergibt.
ThisWorkbook.Worksheets("Tabelle2").Range(rngZelle.Address) = 20
Else
'sonst wird der entsprechende Wert aus der Zelle in Tabelle1 reingeschrieben
ThisWorkbook.Worksheets("Tabelle2").Range(rngZelle.Address) = rngZelle
End If
Next 'rngZelle
End Sub
Gruß Ingolf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige