Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1856to1860
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
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Lösung

VBA Lösung
27.11.2021 15:20:52
Gerald
Hallo,
ich habe folgendes Problem.
Wenn in der Zelle A1 ein Punkt eingetragen wird ( . ) soll alles was in B1 eingetragen ist entfernt werden.
Das gleiche gilt für A2 - B2 bis A100 -B100.
Eine VBA Lösung wäre super.
vielen Dank im Voraus
LG
Gerry

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Lösung
27.11.2021 15:26:38
Hajo_Zi
Hallo Gerry,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If InStr(Target, ".") > 0 Then
Application.EnableEvents = False
Target.Offset(0, 1).ClearContents
Application.EnableEvents = True
End If
End If
End Sub
GrußformelHomepage
In diesem Forum bekomme nur selten eine Mailbenachrichtigung, weitere Antworten sind zufällig.
Anzeige
AW: VBA Lösung
27.11.2021 15:27:20
JoWE
Hallo Gerry,
so z.B::

Sub delDot()
If Range("A1") = "." Then
Range("B1").ClearContents
Range("A2:B100").ClearComments
End If
End Sub
Gruß
Jochen
es fehlt
27.11.2021 15:29:46
Hajo_Zi
Hallo Jochen,
Application.EnableEvents = False
Application.EnableEvents = True
Gruß Hajo
AW: ja, 'n bissel was soll er ja schon selbst...
27.11.2021 15:49:22
JoWE
AW: ja, 'n bissel was soll er ja schon selbst...
27.11.2021 18:15:52
Gerald
Nochmal vielen Dank.
Klappt super.
AW: Danke für die Rückmeldung
27.11.2021 18:34:45
JoWE

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige