Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefundene, dann in Zelle,Zeile springen

gefundene, dann in Zelle,Zeile springen
20.11.2014 18:09:28
dieter
Hallo all,
Ein kleines Problem welches ich nicht finden und bewerkstelligen kann.
Ich habe eine Liste, Tabelle mit verschiedene Namen, Tel., Adressen usw. unter sortiert stehen.
Dann eine Tabelle, gefundene wo ich über Userform1 Inputbox nur nach dem Namen ab (A2) suche der mir wenn gefunden in der Tabelle gefundene aufgelistet wird.
Das alles funktioniert wunderbar.
Jetzt möchte ich aber, das wenn der, die Namen gefunden, aufgelistet sind ich per DoubleClick auf dem Namen ab "A2" bis ca. "A30" er mir nur zu der Zelle, Zeile springt von sortiert um dann evt. Änderungen vorzunehmen.
Hoffe konnte mich genügend ausdrücken und
bin im Voraus schon dankbar für jede Hilfe.
Mfg.
dieter

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Unverständlich
21.11.2014 11:03:40
Frank
Hallo Dieter,
Hoffe konnte mich genügend ausdrücken - dann wohl eher nicht. Dabei ist Dieter ein deutscher Name, da würde ich verständlicheren Text erwarten...
Ich vermute mal wild drauflos:
Deine sortierte Liste mit Adressen und Namen geht bis ca. Spalte 30.
Du hast eine Userform, in die Du einen Namen eingeben kannst, der dann in der sortierten Tabelle gesucht wird.
Ab hier wird's unverständlich... Die Tabelle "gefundene" ist leer? Oder was steht da drin? Es liest sich so, als würde die Zeile mit gefundenen Namen in diese Tabelle kopiert werden. Und Du möchtest dann in dieser kopierten Zeile, in der Tabelle "gefundene" auf eine Zelle doppelklicken, was dazu führen soll, dass Du in der entsprechenden Zeile und Spalte der sortierten Liste Änderungen machen kannst?
Das ist sicher machbar, aber es wäre hilfreich, wenn Du eine Beispieltabelle hochlädst.
Grüsse,
Frank

Anzeige
AW: Unverständlich
21.11.2014 14:54:37
dieter
Hallo Frank,
Du meinst verständlicheren Text möchtest Du haben ? Dann weiß ich nicht warum Du ihn verstanden hast ?
Scheinst wohl ein witziger Typ zu sein. wer lesen kann ist aber im Vorteil. lol.
Wie soll ich Dir einen Code zeigen ? wenn ich nicht weiß wie er geht oder wenn ich kein Beispiel habe.
Habe nur das erst mal, aber weiter ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Suchbereich As Range
Dim Suchbegriff As Variant
If Intersect(Target, Range("A2:A30")) Is Nothing Then Exit Sub
Cancel = True
Suchbegriff = Target.Text ' oder .Value ?
Set Suchbereich = Worksheets("sortiert").[a:a]
In der Tabelle "gefunden" soll per DoubleClick von A2 - A30
die Zelle, Zeile gesucht angesprungen werden von Tabelle "sortiert"
Hoffe mal jetzt ist es verständlich.?
Mfg.
dieter

Anzeige
Ich bin draussen
21.11.2014 15:22:27
Frank
Du meinst verständlicheren Text möchtest Du haben ? Dann weiß ich nicht warum Du ihn verstanden hast ?
Scheinst wohl ein witziger Typ zu sein. wer lesen kann ist aber im Vorteil. lol.
Das ist mir zu fett. Dein ursprünglicher Beitrag hatte mit Deutsch eher nichts zu tun.
Wer so unbeleckt von dem ist, was er da versucht zu basteln, sollte vielleicht höflicher zu denen sein, die ihm helfen wollen und könnten.
Grüsse,
Frank

AW: Ich bin draussen
21.11.2014 16:29:05
dieter
Hallo Frank,
So ist das eben wenn man einen unüberlegten, nicht angebrachten Satz äußert und bekommt dann Kontra.
Scheinst wohl im Vba gut zu sein, aber vom Leben wenig zu wissen.
Es gibt bestimmt noch andere die helfen könnten und würden.
Nichts für ungut. Bin nicht nachtragend.
Mfg.
dieter

Anzeige
AW: auf Verdacht
22.11.2014 08:57:10
hary
Moin Dieter 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Suchbegriff As Variant
Dim suchbereich As Range
If Intersect(Target, Range("A2:A30")) Is Nothing Then Exit Sub
Cancel = True
Suchbegriff = Target.Value
With Worksheets("sortiert")
Set suchbereich = .Columns(1).Find(what:=Suchbegriff, LookIn:=xlValues, lookat:=xlWhole)
If Not suchbereich Is Nothing Then
.Activate
suchbereich.Select
End If
End With
End Sub

gruss hary

AW: auf Verdacht
22.11.2014 16:27:32
dieter
Hallo Hary,
Vielen Dank für Deinen Code der genau so ist wie ich ihn brauche und er gut funktioniert.
Jetzt komme ich weiter.
Vielen Dank für Deine Hilfe
mfg.
dieter

Anzeige
AW: Ohne zusätzliche Variable
22.11.2014 12:36:12
Gerd
Hallo Dieter!
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:A30")) Is Nothing Then
Cancel = True
With Worksheets("sortiert").Columns(1)
If WorksheetFunction.CountIf(.Cells, Target.Value) > 0 Then _
Application.Goto .Parent.Cells(Application.Match(Target.Value, .Cells, 0), 1)
End With
End If
End Sub

Gruß Gerd

AW: Ohne zusätzliche Variable
22.11.2014 16:31:50
dieter
Hallo Gerd,
Auch bei Dir möchte ich mich bedanken für Deinen Code, der ebenso funktioniert wie der von Hary.
Trotz Unruhe hier in meinem Beitrag an allen nochmals ein herzlichen Dank.
Mfg.
dieter

Anzeige
AW: Ohne zusätzliche Variable
22.11.2014 17:07:38
Hajo_Zi
Hallo Dieter,
was ist Offen?
Das konnte ich in Deinem Beitrag nicht lesen.

AW: Ohne zusätzliche Variable
22.11.2014 19:05:16
dieter
Hallo Hajo,
Sorry, habe Haken gesetzt, Ist natürlich erledigt mein Anliegen.
Mfg.
dieter

Genau Folgendes ist kaum zu verstehen, ...
21.11.2014 19:34:38
Luc:-?
…Dieter:
Jetzt möchte ich aber, das wenn der, die Namen gefunden, aufgelistet sind ich per DoubleClick auf dem Namen ab "A2" bis ca. "A30" er mir nur zu der Zelle, Zeile springt von sortiert um dann evt. Änderungen vorzunehmen.
Verstehst du denn dieses ziemlich holprige Deutsch…? Beachte dabei, dass wir deine Tabelle nicht sehen, weil du keine BspDatei hier hochgeladen hast. Ansonsten hört sich das nach Hyperlinks an, die ggf per Formel (xlFkt HYPERLINK), aber auf jeden Fall mit VBA gesetzt wdn müssten. Alternativ und evtl einfacher ginge in VBA auch das Anlegen einer Worksheet_SelectionChange-Ereignis­Prozedur mit entsprd Wirkungs­bereichs­Eingrenzung und ggf dynamischer Ziel­Fest­legung.
Da du aber offensichtlich ein rechter Schlauberger bist, was deine AW an Frank vermuten lässt, wirst du dich sicher auch gut in VBE-Hilfe und hiesigem Archiv (Kopf-Button RECHERCHE) zurecht­finden und das Benötigte zusammen­tragen können… ;->
Im Ggsatz zu dir können wir durchaus auch mal nachtragend sein (man hat da nämlich in den vielen Jahren hier so seine Erfahrungen gemacht)… :-]
Gruß, Luc :-?

Anzeige
AW: Genau Folgendes ist kaum zu verstehen, ...
22.11.2014 16:24:19
dieter
Hallo Luc,
Es wird doch nie so heiß gegessen wie es auf dem Tisch kommt. Frank hätte ja nur sagen brauchen das er mit meiner Aussage nicht zurecht kommt, dann hätte ich es auch anders erklärt. Zudem habe ich auch nicht nur hier im Forum nach einer Lösung gesucht und nichts gefunden was ich bräuchte sondern nur was mit Zellen, Zeilen markieren farblich, kopieren usw. Ich kann auch keine private, teilweise auch geschäftliche Datenbank hochladen was zu verstehen wäre.
Das Ihr hier im Forum auch Stress habt ist nur verständlich wenn Ihr vllt angemacht werdet. Schon aus dem Grund das es viele von euch freiwillig und Ihre Freizeit dafür opfern um anderen zu helfen.
Wie gesagt ich bin nicht nachtragend zu keinem von euch auch nicht bei Frank.
Hoffe konnte ein bisschen Klarheit schaffen und zur Versöhnung beitragen.
Mfg.
dieter

Anzeige
Na, dann iss ja jut...! Gruß owT
22.11.2014 17:29:53
Luc:-?
:-?

329 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
in farblich markierte Zelle springen
Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
13.11.2008 15:11:05
Thread-ID: 1024246
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm InputBox

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
16
4
5
3
2
2
5
1
4
4
4
2
2
2
4
5
2
2
4
2
4
2
3
7
2