Datum

Titel

14.06.2025 19:51:23

Überlappende Gruppierungen machen mir Probleme

14.06.2025 11:36:22

Zeilen Kopieren als "index" und Umwandeln in Zahlen

14.06.2025 01:19:50

Vorhersage Monatsumsatz anhand bereits erfolgter Tagesumsätz

13.06.2025 19:20:06

XVERWEIS nächster Wert bei exakten Match

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Vorheriger Thread

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Bestimmte Sätze suchen und als Variable setzen!

Forumthread: Bestimmte Sätze suchen und als Variable setzen!
7 Beiträge zu diesem Forumthread
Anzeige
52 Threads zu ähnlichen Themen
Top 100 Forumthreads

Forumthread: Bestimmte Sätze suchen und als Variable setzen!

22.07.2003 10:19:47

Chris

Guten Morgen zusammen,
ich habe mal wieder ein Problemchen!
Und zwar habe ich in einem Blatt ("Übersichtsblatt")von "B17:B30" Wörter enthalten.
Das Makro soll jetzt überprüfen, wenn in einen dieser Zeilen z.B. ("Themenübersicht") steht, dann soll er Themenübersicht = a1 setzen!
Ist dies so möglich?
LG Chris

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Benutzerdefinierte Funktion

#a1 #makro #themenübersicht

Relevante Fragen

Wie Zelle mit Wert aus A1 überschreiben?

Wie Variablen in Word zuweisen?

Wie funktioniert die rng-Definition?

Betreff

Datum

Anwender

AW: Bestimmte Sätze suchen und als Variable setzen!

22.07.2003 10:27:46

Nike
An Nike!

22.07.2003 10:36:58

Chris
AW: wie gewünscht ;-)

22.07.2003 10:41:53

Nike
Ich bins nochmal!

22.07.2003 10:50:07

Chris
AW: Ich bins nochmal!

22.07.2003 10:52:29

Nike
AW: Ich bins nochmal!

22.07.2003 11:01:46

Chris
AW: wenn Du Lust hast...

22.07.2003 11:07:13

Nike

AW: Bestimmte Sätze suchen und als Variable setzen!

22.07.2003 10:27:46

Nike

Hi,
willst du die Zelle mit dem Wert aus A1 überschreiben?


Sub Loesch()
Dim rng As Range
With Worksheets("Übersichtsblatt")
Set rng = .Range("B17:B30").Find(What:="Themenübersicht")
If Not rng Is Nothing Then
rng = .Range("A1")
End If
End With
End Sub

Bye
Nike

An Nike!

22.07.2003 10:36:58

Chris

Danke Dir Nike,
hätte aber noch kurz ne kleine Frage!
Was machst Du denn mit dieser Zeile (diese ist mir nicht klar!)
rng = .Range("A1")

LG Chris

AW: wie gewünscht ;-)

22.07.2003 10:41:53

Nike

Hi,
ich setze den Wert von Übersichtsblatt A1 (daher der Punkt vor dem Range)
in die Zelle, in der die Themenübesicht gefunden wurde,
wie gewünscht ;-)
Bye
Nike

Ich bins nochmal!

22.07.2003 10:50:07

Chris

Achso,
hatten ein kleines Mißverständis!
Dachte nur, dass ich den Wert ("Themenübersicht") gleich der Variablen a1 setze
Set a1 = "Themenübersicht"
Dann kann ich das ja mit rng =.Range("A1") weglassen!
Funktioniert aber dennoch, oder?
LG Chris

AW: Ich bins nochmal!

22.07.2003 10:52:29

Nike

Hi,
was willst du denn anstellen, wenn du was gefunden hast???
Dim rng As Range
With Worksheets("Übersichtsblatt")
Set rng = .Range("B17:B30").Find(What:=.Range("A1"))
If Not rng Is Nothing Then ' dann wurde was gefunden...
msgbox rng.address 'hier ist dann die Ausgabe oder was auch passieren soll...
End If
End With
Bye
Nike

AW: Ich bins nochmal!

22.07.2003 11:01:46

Chris

Zur Info:
Ich möchte die Variablen später CheckBoxen zuweisen, die aber leider nicht in Excel stehen, sonder das Makro steht in Word!
Habe bis jetzt keine Ahnung wie ich das hinbekommen soll! Allerdings denke ich, dass die Zuweisung nur mit einer fixen Variablen erst richtig funktionieren wird!
Danke Dir nochmals für Deine Hilfe!
LG Chris

AW: wenn Du Lust hast...

22.07.2003 11:07:13

Nike

...kannst du ja mal später dein angepassten (Word)Code posten,
dann sag ich dir, ob auch das richtige Zellchen gezogen wird ;-)
Bye
Nike