VBA / Wenn Text dann "MoinMoin"

[danisound]

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!

[Elex]

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

[JereMaia]

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.


  MoinMoin.xlsm (Größe: 18,77 KB / Downloads: 2)

[danisound]

Vielen Dank! Hat super geklappt!!!

[Glausius]

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.

[WillWissen]

Moin,

oder:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	Überschrift	Spalte1
2	1	moin, moin
3	2	moin, moin
4
5
6	Text	moin, moin
7	3	moin, moin
8
9	a3	moin, moin

Zelle	Formel
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