Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1280to1284
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
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und springen

Suchen und springen
01.10.2012 08:59:31
Seppi
Hallo,
ich suche nach einer Möglichkeit, in den ersten 3 Zeilen das Wort "Belastungen" zu suchen. Sobald Excel das erste Wort "Belastungen" findet, soll die entsprchende Spalte markiert werden.
Ich bin neu hier, suchte schon im Archiv und fand aber leider nichts entsprechendes.
Seppi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und springen
01.10.2012 09:12:57
Tino
Hallo,
hier mal eine Variante, evtl. die Tabelle im Code anpassen.
Diesen Code einem Button zuweisen oder eine Tastenkompination.
Sub Find_Belastung()
Dim rngFind As Range
With Tabelle1 'Tabelle anpassen 
    Set rngFind = .Rows("1:3").Find(What:="Belastung", After:=.Cells(3, .Columns.Count), LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
End With
If Not rngFind Is Nothing Then
    Application.Goto rngFind.EntireColumn
Else
    MsgBox "nix gefunden!"
End If
End Sub

Gruß Tino

Anzeige
AW: Suchen und springen
04.10.2012 07:45:36
Seppi
Hallo,
leider funktioniert das Makro nicht ganz richtig, weil die 1. Zeile von A1:N1 verbunden ist.
Das Wort "Belastung" steckt momentan in B3.
Es wird zwar richtig gesucht, aber anschliessend werden alle Spalten von A:N markiert.
Gruss
Seppi

AW: Suchen und springen
04.10.2012 13:06:37
Tino
Hallo,
wenn A1:N1 verbunden, dann versuchen wir es mal so.
Sub Find_Belastung()
Dim rngFind As Range
With Tabelle1 'Tabelle anpassen
Set rngFind = .Rows("1:3").Find(What:="Belastung", After:=.Cells(3, .Columns.Count), _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
End With
If Not rngFind Is Nothing Then
With rngFind.Parent
Set rngFind = .Range(rngFind, .Cells(.Rows.Count, rngFind.Column))
End With
Application.Goto rngFind, False
Else
MsgBox "nix gefunden!"
End If
End Sub
Gruß Tino
Anzeige

299 Forumthreads zu ähnlichen Themen

Datei in allen Verzeichnisen und Odnern suchen
René

Hallo liebe Experten,
ich benötige ein Macro für eine Schaltfläche.
Es soll eine bestimmte Excel Datei in allen Verzeichnisen C:\ D:\ E:\ usw - und Ordnern des Rechners gesucht werden und diese dann per Klick geöffnet werden.
Kann mir bitte jemand helfen ?
Es grüßt Euch freund...
21.08.2008 21:14:00
Thread-ID: 1003638
6 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
suchen und eintragen
Christian

Hallo Leute,
ich hab da etwas ganz einfaches. Ich möchte, dass VBA in einen Bereich C17:C34 der Tabelle 1 den Eintrag der ComboBox1.Value sucht und dann zwei Spalten weiter rechts den Wert der TextBox 1 einträgt.
kann jemand helfen ?
Gru Christian
https://www.herber.de/bbs/user...
05.09.2008 11:03:34
Thread-ID: 1007614
5 Beiträge
Anzeige
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Suchen und finden
oscar

Hallo zusammen, über folgenden VBA-Code suche ich in einer Spalte.
Sub CSVAuslesen() Dim i As Integer Dim s As Variant auswahl = InputBox("Auswahl Spalte 2 = GCode") s = auswahl If auswahl = "" Then Exit Sub For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 If Cells(i, 2).Value = s...
07.10.2008 09:46:29
Thread-ID: 1014618
3 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Anzeige

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
5
8
1
4
7
2
4
2
2
4
16
4
10
4
2
6
1
25
15
8
4
2
4
3
3