Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
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
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert suchen kopieren ii andere Tabelle

Forumthread: 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.

Anzeige

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)

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