Datum

Titel

25.04.2024 23:47:55

Datum ausweisen, wenn definierte Summe erreicht ist

25.04.2024 21:40:53

Excel Datenquelle aus dem Web mit Anmeldung?

25.04.2024 21:21:16

Zellkommentar in UserForm anzeigen und bearbeiten

25.04.2024 21:13:13

Kalenderwochen addieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1548to1552

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

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

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Text suchen und in Nachbarzelle ein Text schreiben

Forumthread: Text suchen und in Nachbarzelle ein Text schreiben
6 Beiträge zu diesem Forumthread
Anzeige
351 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

03.04.2017 15:23:21

albin63

Hoi zusammen
Brauche Hilfe.
Also,
ich habe in der SpalteA, ab A3 bis ...., mehrere X eingetragen.
Ziel: wenn nun zum Beispiel in A77 ein X vorhanden ist, soll der
Text "Blabla" in B76 eingetragen warden. Also eine Zeile ob
A77 und in der Spalte B. usw
A B C
A75
A76 blabla
A77 X
A78
A79 blabla
A80 X
A81
A82
Ich danke Euch im Voraus.
Gruss Albin

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Text suchen und in Nachbarzelle ein Text schreiben

03.04.2017 15:27:44

SF
AW: Text suchen und in Nachbarzelle ein Text schreiben

03.04.2017 15:30:42

Werner
AW: Text suchen und in Nachbarzelle ein Text schreiben

03.04.2017 16:02:24

albin63
AW: Text suchen und in Nachbarzelle ein Text schreiben

03.04.2017 16:35:08

Werner
AW: Text suchen und in Nachbarzelle ein Text schreiben

03.04.2017 20:06:51

albin
AW: Danke für die Rückmeldung. o.w.T.

03.04.2017 20:08:09

Werner

AW: Text suchen und in Nachbarzelle ein Text schreiben

03.04.2017 15:27:44

Hola,

 Also eine Zeile ob A77 und in der Spalte B. usw

Bitte was?
Geraten:

=wenn(A3="x";A2;"")

Gruß,
steve1da

AW: Text suchen und in Nachbarzelle ein Text schreiben

03.04.2017 15:30:42

Werner

Hallo Albin,
da stimme ich Steve zu, ist noch unklar. Ich habe es so verstanden.
Daten in Spalte A beginnen in A1 und bis zum Ende nach unten ziehen.
Formel in B1: =WENN(A2="X";"Blabla";"")
Gruß Werner

AW: Text suchen und in Nachbarzelle ein Text schreiben

03.04.2017 16:02:24

albin63

Hallo Werner
Danke für die rasche Antwort. Habe vergessen mitzuteilen, dass ich die Lösung in VBA brauche. :-)
Gruss Albin

AW: Text suchen und in Nachbarzelle ein Text schreiben

03.04.2017 16:35:08

Werner

Hallo Albin,
Code gehört in ein allgemeines Modul. Schaltfläche aufs Tabellenblatt und das Makro der Schaltfläche zuweisen.

Public Sub Text_in_Zelle()
Dim raBereich As Range
Dim raZelle As Range
Dim loLetzte As Long
Dim strText As String
strText = "Blabla"
'## Blatt an deine Bedürfnisse anpassen ##
With Sheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
'## Beginn in A1 (=Cells(1, 1) ggf. anpassen
Set raBereich = .Range(.Cells(1, 1), .Cells(loLetzte, 1))
For Each raZelle In raBereich
If UCase(raZelle.Value) = "X" Then
raZelle.Offset(-1, 1) = strText
End If
Next raZelle
End With
Set raBereich = Nothing
End Sub

Gruß Werner

AW: Text suchen und in Nachbarzelle ein Text schreiben

03.04.2017 20:06:51

albin

Hallo Werner
Super,
Passt wie eine 1.
Danke für die rasche Antwort.
Ich wünsche Dir noch einen schönen Abend.
Albin

AW: Danke für die Rückmeldung. o.w.T.

03.04.2017 20:08:09

Werner