Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
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
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert suchen kopieren ii andere Tabelle

Wert suchen kopieren ii andere Tabelle
10.03.2016 22:31:17
Joa
Hallo zusammen
Bekomme trotz Forum folgendes nicht hin.
Ein Makro soll in der Tabelle1 im Bereich AD2:AL7 den Wert größer 0 finden (kommt nur 1 mal vor) und ihn dann in der Tabelle2 an die gleiche Stelle kopieren (nur Wert).
Wenn jemand Lust hat schon mal Dank im voraus.

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

Betreff
Datum
Anwender
Anzeige
AW: Wert suchen kopieren ii andere Tabelle
11.03.2016 01:29:55
Piet
Hallo Joa
das kleine Makro wird die Aufgabe lösen. Ich gehe davon aus
das der Wert nur > Null sein muss. Ich prüfe die Zahl nicht.
In der Const Anweisung kann der Bereich festgelgt werden,
falls er sich einmal aendern sollte.
mfg Piet
Const SuchBer = "AD2:AL7"   'aktiver Such Bereich
Sub Suchen_und_kopieren()
Dim Tb2 As Object, AC As Object
Set Tb2 = Worksheets("Tabelle2")
With Worksheets("Tabelle1")
For Each AC In .Range(SuchBer)
'nur Zahlen auswerten
If IsNumeric(AC) Then
If CInt(AC) > 0 Then  'Zahl > 0
Tb2.Range(AC.Address) = AC.Value
Exit For
End If
End If
Next AC
End With
End Sub

Anzeige
AW: Wert suchen kopieren ii andere Tabelle
11.03.2016 06:46:21
Joa
Hallo Piet
funktioniert prima
nochmals vielen Dank
mitten in der Nacht ne Antwort !!!! Tolles Forum

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige