Spalten einfügen

Forumthread: Spalten einfügen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Spalten einfügen

Spalten einfügen

19.05.2020 09:33:52

Lili

Hallo,
ich bräuchte dringend ein Makro was folgendes kann:
Falls in Zelle C2 das Wort "Hunger" steht, dann sollen zwei leere spalten vor der spalte C einfügt werden (D.h. Zelle C2 befindet sich dann auf E2). Falls in Zelle C2 jedoche das Wort "Durst" steht, dann soll er es umbennen in "Gelb". Die Zelle daneben (D2) soll er dann umbennen in "Blau".
Danke!!

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten einfügen

19.05.2020 09:51:35

Matthias
AW: Spalten einfügen

19.05.2020 09:52:26

Herbert
AW: Spalten einfügen

19.05.2020 09:53:28

Martin
AW: Spalten einfügen

19.05.2020 09:59:40

Lili

AW: Spalten einfügen

19.05.2020 09:51:35

Matthias

Hallo Lili,
hier der Code fürs entsprechende Tabellenblatt

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2")) Is Nothing And Target.Count = 1 Then
If Target = "Hunger" Then
Columns("B:B").Insert Shift:=xlToRight
Columns("B:B").Insert Shift:=xlToRight
End If
If Target = "Durst" Then
Application.EnableEvents = False
Target = "Gelb"
Target.Offset(, 1) = "Blau"
Application.EnableEvents = True
End If
End If
End Sub

Gruß Matthias

AW: Spalten einfügen

19.05.2020 09:52:26

Herbert

Hallo Lili,
benutze doch mal dafür den Makrorekorder!
Servus

AW: Spalten einfügen

19.05.2020 09:53:28

Martin

Hallo Lili,
schade, jetzt hab es eine Überschneidung beim Antworten.
Hier ist mein Code-Vorschlag:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then
If Range("C2") = "Hunger" Then
Columns("C:D").Insert Shift:=xlToRight
ElseIf Range("C2") = "Durst" Then
Range("C2") = "Geld"
Range("D2") = "Blau"
End If
End If
End Sub

Viele Grüße
Martin

AW: Spalten einfügen

19.05.2020 09:59:40

Lili

Vielen lieben Dank für die rasche Hilfe!!