Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
964to968
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
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile auslesen und Werte kopieren

Zeile auslesen und Werte kopieren
02.04.2008 15:39:00
Karen
Hallo!
Ich versuche mich gerade an folgender VBA Programmierung:
Ich suche den Wert X aus Zelle H2 in der Range O2 : DN2. Wenn die entsprechende Spalte gefunden ist, sollen die Werte H73 : H75 in die gefunden Spalte Zellen 73 : 75 kopiert werden.
Verwende ich hier eine IF Schleife? Wie heißt der Ausdruck für Zeilen durchsuche? UBound? Ich habe leider keine Ahnung von Begrifflichkeiten in VBA.
Vielen Dank für jegliche Hilfe.
Karen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile auslesen und Werte kopieren
02.04.2008 16:31:08
Andreas
Hallo Karen,
fürs Durchsuchen nimmst du am besten eine For-Each-Schleife, bspw. so:
Dim rng As Range
For Each rng In ActiveSheet.Range("A1:H10")
If rng.Value = 1 Then
MsgBox "Wert gefunden"
End If
Next rng
Viele Grüße
Andreas

AW: Zeile auslesen und Werte kopieren
02.04.2008 18:21:00
Uwe
Hi Karen,
das sollte so klappen:

Sub suchenkopieren()
Dim rng As Range
For Each rng In ActiveSheet.Range("O2:DN2")
If rng.Value = Range("H2").Value Then _
rng.Resize(3, 1).Offset(71, 0).Value = Range("H73:H75").Value
Next rng
End Sub


Gruß
Uwe
(:o)

Anzeige
AW: Zeile auslesen und Werte kopieren
03.04.2008 11:10:59
Karen
Hallo Ihr beiden,
vielen Dank, ich bin wieder schlauer ;-).
Grüße
Karen

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige