Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1944to1948
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
1944to1948
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile in anderem Tabellenblatt suchen und Wert einfügen

Zeile in anderem Tabellenblatt suchen und Wert einfügen
13.09.2023 15:39:42
Sven
Hallo,
ich habe eine ganz einfache Frage bzw. ich brauche einen ganz einfachen Befehl, den ich in mein Makro mit integrieren kann.
Ich hatte das mal drin, aber finde das nicht mehr und weiß auch nicht genau wie ich danach suchen soll.

In "Tabelle 1" Feld "K29" steht eine Zahl.
Beim Ausführen des Makros soll in Tabelle 3 die Zeile gesucht werden, in der in Spalte B die selbe Nummer steht.
Und dann soll in dieser entsprechenden Zeile in Spalte A ein "Ja" hineingeschrieben werden.

Beispiel: In Tabelle1 K29 steht 15.
Dann wird in Tabelle3 in A19 ein "Ja" hineingeschrieben, da in B19 eine 15 steht.

Hoffe das ist soweit verständlich wie ich das meine.

Vielen dank schon mal

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile in anderem Tabellenblatt suchen und Wert einfügen
13.09.2023 15:56:15
GerdL
Hallo Sven! 
Sub b()



Dim varZeile As Variant



varZeile = Application.Match(Sheets("Tabelle1").Cells(29, "K"), Sheets("Tabelle3").Columns("B"), 0)

If IsNumeric(varZeile) Then Sheets("Tabelle3").Cells(varZeile, "A") = "Ja"



End Sub

Gruß Gerd
AW: Zeile in anderem Tabellenblatt suchen und Wert einfügen
13.09.2023 16:04:31
Yal
Hallo Sven,

kommt die Wert "15" nur einmal vor oder nur der erste Treffer sollte "ja" bekommen, verwende: 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim R As Range

    If Target.Address = "$K$29" Then

        Set R = Worksheets("Tabelle3").Range("B:B").Find(what:=Target.Text)

        If Not R Is Nothing Then

            R.Offset(, -1) = "ja"

        End If

    End If

End Sub


sollte alle Treffer "ja" bekommen: 
Private Sub Worksheet_Change(ByVal Target As Range)

Dim R As Range

Dim Memo As String

    If Target.Address = "$K$29" Then

        Set R = Worksheets("Tabelle3").Range("B:B").Find(what:=Target.Text)

        If Not R Is Nothing Then

            Memo = R.Address

            Do

                R.Offset(, -1) = "ja"

                Set R = Worksheets("Tabelle3").Range("B:B").FindNext(R)

            Loop While R.Address > Memo

        End If

    End If

End Sub


Der Code muss in dem Codepane von Tabelle1 voprliegen: auf dem Reiter vom Blatt "Tabelle1" rechtsklicken und "Code anzeigen" auswählen. Schon bist Du in dem richtigen Codepane (oder "Module", wobei dieses Begriff mit den allgemeinen "Module" kollidiert)

VG
Yal
Anzeige

304 Forumthreads zu ähnlichen Themen

ganze bestimmte Zeilen ausschneiden und löschen
Urmila

Hallo alle,
ich habe folgende Werte (siehe File)
Die Datei https://www.herber.de/bbs/user/55023.xls wurde aus Datenschutzgründen gelöscht
Ich will per Knopfdruck, dass wenn in irgendeiner Zelle in Spalte D ein Datum eingetragen wird, diese ganze Zeile (hier in dem Fall Zeile 5:5) a...
29.08.2008 15:11:45
Thread-ID: 1005853
4 Beiträge
Anzeige
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Anzeige
Makro Zellen ausschneiden und einfügen
amintire

Hallo liebe Excel Freunde,
habe eine komplexe Aufgabe, evtl. habt ihr Profis eine einfachere Lösung.
https://www.herber.de/bbs/user/73286.xls
In der Beispielmappe sind in den Zellen E3:F22 Inhalte.
Die Inhalte sollen von E3:F3 ausgeschnitten werden und in der Zelle A3:B3 eingef...
27.01.2011 16:34:57
Thread-ID: 1197685
7 Beiträge
Viele Zeilen ausschneiden und hinterher einfügen
Dino

Hi Leute,ich möchte mit rechte Maustaste (oder anders) vielen Zeilen ausschneiden und hinterher sie in biliebige Zeile untereinander einfügen.z.B.ich schneide Zeile 20, 23, 24, 28, 30, 33 aus und füge sie vor Zeile 10 ein.
Die Ausgeschnittenen Zeilen stehen dann untereinander.Vielen Dank im...
21.05.2002 20:04:08
Thread-ID: 122530
3 Beiträge
leere zeile finden und dann erst einfügen
Hoppe

Hallo,
ich bin neu hier und hoffe Ihr könnt mir helfen.
Ich habe eine Tabelle1 und eine Tabelle2,
dort sollen nun sachen kopiert werden und in einer anderen eingefügt werden. Es funktioniert auch super nur leider überschreibt er mir alle alten einträge. Nun meine Frage. Bekommt man...
24.06.2011 13:55:45
Thread-ID: 1219530
2 Beiträge
letzte gefüllte Zeile suchen und danach einfügen
Sandra

Hallo zusammen,
tja ... ich schon wieder. Ohne Eure Hilfe bekomm ich das nicht hin.
Ich habe ein Makro was auf ein Projekt zugeschnitten ist. Das läuft auch ganz prima. Eigentlich läuft es sogar so gut, dass ich es jetzt standardisieren muss. Und was das angeht wird es in meinen Augen...
12.07.2011 14:40:13
Thread-ID: 1221853
6 Beiträge
Zeilen individuelle Kopieren und einfügen
Martin

Hallo zusammen,
ich habe folgende - eigentlich recht einfaches - Problem, das ich aber nicht lösen kann.
Ich habe eine Excel-Tabelle die wie folgt aussieht:
aaa 5
bbb 6
ccc 2
Die letzte zeile zeigt an, wie oft die Zeile benötigt wird. Ausgegeben werden soll nach...
22.10.2011 12:08:19
Thread-ID: 1234979
8 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
20
8
2
6
6
2
1
5
7
9
2
9
3
6
3
5
3
1
3
4
1
1
1
4