Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA / Wenn Text dann "MoinMoin"
#1
Hallo zusammen! Ich fuchse an einem kleinem Makro herum und komme leider nicht voran.

Wenn in Spalte A2 bis A... ein Wert steht, sollte in Spalte B2 bis B... der Text "MoinMoin" stehen.

Der Text in Spalte B bleibt immer derselbe (MoinMoin). In der ersten Zeile ist die Überschrift, dort sollte in Spalte B nichts passieren.
Die Menge an Zellen in Spalte A variiert. Kann von A2 bis A1500 gehen, aber auch von A2 bis 1600. Wenn kein Wert in Spalte A steht, sollte B leer bleiben, ansonsten von B2 bis B1600... "MoinMoin" stehen.

Danke schon mal vorab!
Antworten Top
#2
Hi

Versuche es so.
Code:
Range("A2:A5000").SpecialCells(xlCellTypeConstants).Offset(, 1) = "MoinMoin"

etwas Kompletter:
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim j As Long
j = Cells(Rows.Count, 1).End(xlUp).Row
Range("B1:B" & j).Offset(1).Clear
If j > 1 Then Range("A2:A" & j).SpecialCells(xlCellTypeConstants).Offset(, 1) = "MoinMoin"
End Sub


Gruß Elex
[-] Folgende(r) 1 Nutzer sagt Danke an Elex für diesen Beitrag:
  • danisound
Antworten Top
#3
Hier ein Beispiel als VBA Makro.
Du schreibst einen Text in die Zellen von Spalte A und klickst dann auf die Taste.
Dann füllt Dir das Makro in Spalte B die Zellen in gleicher Zeile mit dem Begriff, der oben in der ersten Zeile in Spalte B steht.


.xlsm   MoinMoin.xlsm (Größe: 18,77 KB / Downloads: 2)
---           Seid nett und helft einander :100:           ---
---   denn die Liebe ist die größte Kraft im Universum    ---
- Lest die Werke von Jakob Lorber und Gottfried Mayerhofer -
[-] Folgende(r) 1 Nutzer sagt Danke an JereMaia für diesen Beitrag:
  • danisound
Antworten Top
#4
Vielen Dank! Hat super geklappt!!!
Antworten Top
#5
Hallo,

das geht aber viel einfacher und ohne Makro mit dieser Formel:

B2 =WENN(ZELLE("Typ";A2)="l";"Moin, Moin";"")

Anschließend so weit herunterziehen, wie sie gebraucht wird - von B2 bis B500.
[Bild: attachment-190.gif]
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Antworten Top
#6
Moin,

oder:
Arbeitsblatt mit dem Namen 'Tabelle1'
AB
1ÜberschriftSpalte1
21moin, moin
32moin, moin
4
5
6Textmoin, moin
73moin, moin
8
9a3moin, moin

ZelleFormel
B2=WENN([@Überschrift]<>"";"moin, moin";"")
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Tabelle als intelligente Tabelle formatiert ==> Formeln erweitern sich automatisch
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste