Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gleicher Wert (aus A1)in Tabelle Bahnhöfe markiere

Forumthread: gleicher Wert (aus A1)in Tabelle Bahnhöfe markiere

gleicher Wert (aus A1)in Tabelle Bahnhöfe markiere
05.11.2004 09:55:54
Bommi
Private Sub CommandButton1_Click()
Dim C As Range, rngSearch As Range
Set rngSearch = [Bahnhöfe!a:a]
Set C = [tabelle1!a1]
If Not rngSearch.Find(C, lookat:=xlWhole) Is Nothing Then
Hallo
Bitte um Hilfe
Möchte in der Tabelle Bahnhöfe die Fundstelle(Zelle) markieren!
dann die ganze Zeile
Wer kann mir helfen
Danke
Gruß
Bommi
Anzeige
AW: gleicher Wert (aus A1)in Tabelle Bahnhöfe markiere
Bert 

Private Sub CommandButton1_Click()
CommandButton1.TakeFocusOnClick = false
Dim C As Range, rngSearch As Range
Set rngSearch = [Bahnhöfe!a:a]
Set C = [tabelle1!a1]
If Not rngSearch.Find(C, lookat:=xlWhole) Is Nothing Then
c.entireRow.interior.colorinde = 15
end if
End Sub

Bert
Bert
Anzeige
AW: gleicher Wert (aus A1)in Tabelle Bahnhöfe markiere
Bommi
Hallo Bert
c.entireRow.interior.colorinde = 15
funktioniert nicht!
fehlt noch was!
Gruß
Bommi
AW: gleicher Wert (aus A1)in Tabelle Bahnhöfe markiere
Bert
Schreibfehler, ein x fehlt:
c.entireRow.interior.colorindex = 15
Bert
AW: gleicher Wert (aus A1)in Tabelle Bahnhöfe markiere
Bommi
Hallo Bert
Problem nict erkannt!
nicht A1 soll markiert werden, sondern der gleiche Eintrag auf dem anderen Blatt!
nicht farbig, sondern als aktive Zelle, dann die ganze Zeile aktivieren.
Gruß
Bommi
Anzeige
AW: gleicher Wert (aus A1)in Tabelle Bahnhöfe markiere
Bert 

Private Sub CommandButton1_Click()
CommandButton1.TakeFocusOnClick = false
Dim C As Range, rngSearch As Range
Set rngSearch = [Bahnhöfe!a:a]
Set C = [tabelle1!a1]
If Not rngSearch.Find(C, lookat:=xlWhole) Is Nothing Then
Application.Goto Reference:=Sheets("Bahnhöfe").Rows(C.Row)
end if
End Sub

Bert
Anzeige
AW: gleicher Wert (aus A1)in Tabelle Bahnhöfe markiere
Bommi
Hallo Bert !
Nun markiert er auf dem anderen Blatt die ganze Zeile, ist ja auch richtig.
Aber soweit war ich auch schon. Habe mich nicht verständlich ausgedrückt!
Er soll den gefundenen Wert ("A1")im anderen Blatt(Bahnhöfe) markieren !
kann mir die Zelle anzeigen lassen wo es steht, aber nicht markieren.
Das ist mein Problem !
Gruß Bommi
Anzeige
AW: gleicher Wert (aus A1)in Tabelle Bahnhöfe markiere
WernerB.
Hallo Bommi,
wie gefällt Dir das?

Private Sub CommandButton1_Click()
Dim SuBe As Range
Dim s As String
Dim laR As Long
s = Sheets("Tabelle1").Range("A1").Text
With Sheets("Bahnhöfe")
laR = .Cells(Rows.Count, 1).End(xlUp).Row
Set SuBe = .Range(.Cells(1, 1), .Cells(laR, 1)). _
Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then
Application.Goto Reference:=SuBe, Scroll:=True
Rows(SuBe.Row).Select
Set SuBe = Nothing
Else
MsgBox "Nichts gefunden !"
End If
End With
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
an Werner B.
Bommi
Hallo Werner !
Danke für Dein Lösungsvorschlag !
funktioniert auch bis auf- Die Select Methode des Range Objektes konnte nicht ausgeführt
werden ! Rows(SuBe.Row).Select
der gefundene Wert wird markiert.So sollte es ja auch kommen.
Eigentlich wollte ich ja den gefundenen ComboBox Eintrag auswerten (nichtnur die Zelle
sondern die ganze Zeile)über Click mit Makro, erste gefundene Zelle markieren, dann
ganze Zeile, dann kopieren in ein anderes Blatt.
kannst Du mir helfen ?
Gruß Bommi
Anzeige
AW: an Werner B.
WernerB.
Hallo Bommi,
das Nichtfunktionieren der Makrozeile "Rows(SuBe.Row).Select" kann ich ohne Deine Datei leider nicht nachvollziehen; möglicherweise sind auf dem Blatt "Bahnhöfe" verbundene Zellen oder andere mir nicht bekannte außergewöhnliche Gegebenheiten. Bei meinem Versuchsaufbau funktioniert mein Makrovorschlag jedenfalls ohne Probleme.
Meine Glaskugel ist gerade in Reparatur.
Mit anderen Worten: Um Dir helfen zu können, ist Deine Problembeschreibung – zumindest für mich - nicht detailliert genug.
Plötzlich ist von einer ComboBox die Rede – das war vorher nicht der Fall!?!
Ohne Beantwortung dieser Fragen ist ein Lösungsvorschlag kaum möglich:
- Soll das Kopieren der ganzen Zeile in ein anderes Blatt in dem Makro enthalten sein oder willst Du dafür ein separates Makro?
- Wie heißt das "andere Blatt"?
- Wohin auf dem "anderen Blatt" soll die Zeile kopiert werden?
Hilfreich wäre hier sicher eine hochgeladene Beispieldatei mit detaillierter Problembeschreibung.
Gruß
WernerB.
Anzeige
AW: an Werner B.
Bommi
Hallo Werner
Makro funktioniert ohne Rows(SuBe.Row).Select einwandfrei !
Dim SuBe As Range
Dim s As String
Dim laR As Long
s = Sheets("Tabelle1").Range("A1").Text
With Sheets("Bahnhöfe")
laR = .Cells(Rows.Count, 1).End(xlUp).Row
Set SuBe = .Range(.Cells(1, 1), .Cells(laR, 1)). _
Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then
Application.Goto Reference:=SuBe, Scroll:=True
Hall Werner
soweit läuft das Makro,Fehlermeldung nicht erforderlich, gleicher Eintrag immer vorhanden,in Bahnhöfe gefundenes Objekt(ActiveCelle)etwa so die Zeile markieren
Range(ActiveCell(), ActiveCell).EntireRow.Select,Selection.Copy, Sheets("Tabelle3").Select,Rows("1:1").Select,ActiveSheet.Paste zurück Tabelle1
funktioniert aber nicht!
Ausgangsproblem war Objekt in ComboBox in Bahnhöfe markieren(Liste auf die ComboBox zugreift,das ist die Ersatzlösung !
Gruß Bommi
Rows("1:1")Select, ActiveSheet.Paste,
Anzeige
Letzter Versuch ...
WernerB.
Hallo Bommi!

Private Sub CommandButton1_Click()
Dim SuBe As Range
Dim s As String
Dim laR As Long
With Sheets("Tabelle1")
.Select
ActiveCell.Select
s = .Range("A1").Text
End With
With Sheets("Bahnhöfe")
laR = .Cells(Rows.Count, 1).End(xlUp).Row
Set SuBe = .Range(.Cells(1, 1), .Cells(laR, 1)). _
Find(s, lookat:=xlWhole)
If Not SuBe Is Nothing Then
.Range(.Cells(SuBe.Row, 1), .Cells(SuBe.Row, 256)).Copy
Sheets("Tabelle3").Range("A1").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Set SuBe = Nothing
End If
End With
End Sub

Gruß
WernerB.
Anzeige
AW: Bingo
Bommi
Hollo
es funktioniert !
habe vielen Dank für Deine Bemühungen !
Gruß
Bommi

Forumthreads zu verwandten Themen

Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Auslesen von Werten aus einer Combobox
Werten

Hallo erstmal,
ich habe eine ComboBox und diese schreibt Werte jeweils in die nächste Zeile.
Wenn ich aber mehrmals hintereinander den selben Wert auswähle passiert leider nichts.
Wie kann ich mehrmals den selben Wert auswählen und jeweils in die nächste Zeile schreiben?
Über ei...
30.08.2008 12:24:00
Thread-ID: 1006032
5 Beiträge
Anzeige
Werte aus Matrix auslesen j. mit richtiger Bsp.
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
05.09.2008 13:33:00
Thread-ID: 1007667
5 Beiträge
Zellwerte aus markierten Tabellen übertragen
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Ich benötige nur die Ergebnisse der markierten Tabellenblätter. Diese in den markierten Tabellen...
06.09.2008 17:29:20
Thread-ID: 1007869
3 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Bestimmten wert aus anderer Tabelle ermittlen.
Torsten

stehe gerade etwas auf dem schlauch....grummel sehe bestimmt den formel vor zeilen nicht ;)
also mal meion problem mal kurz umrissen:
Tabelle A - sheet1
Spalte B : Nummern
Spalte G : Bezeichner
Tabelle B - sheet2
Spalte G : Nummern
Spalte H : Bezeichner
erklärung...
10.09.2008 17:31:48
Thread-ID: 1008877
2 Beiträge
Wert aus Tabellenblättern in ein anderes Blatt übe
Heiderer

Hallo!
Folgende Ausgangssituation: Ich habe ein Excel-Sheet mit 4 Tabellenblättern. In Tabelle1 stehen all meine gesamten Produkte. In Tablle 2 – 4 stehen jeweils einzelne Produkte. Nun möchte ich, dass wenn ich einen Wert in der Tabelle 2 – 4 schreibe, dieser mir automatisch in die Tabelle...
11.09.2008 06:58:00
Thread-ID: 1008960
6 Beiträge
Anzeige
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Anzeige
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Wert aus Datenbank auslesen
Sebastian

Hallo zusammen,
ich bin leider nicht der "Exel-Profi" und hoffe, hier Hilfe zu finden. Ich besitze eine englische Exel-Version.
Ich möchte aus einer Datenbank einen Wert auslesen und in einer 2. Tabelle (Sheet) ausgeben lassen.
Im speziellen habe ich eine Datenbank erstellt, in der...
03.11.2008 18:19:00
Thread-ID: 1021409
4 Beiträge
Werte aus PRN Datei einlesen über 65563 Zeilen
Andre´

Hallo alle zusammen,
Ich lese aus einer PRN-Datei die Werte ins Excel ein wie folgt:
Option Explicit
Sub Daten_einlesen() Dim iFree As Integer, strText As String, arrTmp, arrDaten() Dim lngCounter As Long, lngStart As Long, lngEnde As Long ReDim arrDaten(1 To 11, 1 To 1) iFree = Fr...
04.11.2008 08:39:00
Thread-ID: 1021464
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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