Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1760to1764
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten einfügen

Spalten einfügen
19.05.2020 07: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
Anzeige
AW: Spalten einfügen
19.05.2020 07: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 07:52:26
Herbert
Hallo Lili,
benutze doch mal dafür den Makrorekorder!
Servus
Anzeige
AW: Spalten einfügen
19.05.2020 07: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 07:59:40
Lili
Vielen lieben Dank für die rasche Hilfe!!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige