Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Inhalte per Makro löschen

bestimmte Inhalte per Makro löschen
12.11.2014 08:36:02
Christian
Hallo Excel-Freunde,
gibt es ein Makro, dass automatisch, also ohne dass ich es von Hand ausführen muss, sobald ich etwas in Tabelle2, Spalte A einfüge (auch wenn es mehrere Zeilen gleichzeitig sind), in jeder dieser Zellen das erste Komma sowie sämtlichen Text der nach dem ersten Komma steht löscht? Wenn ja seid ihr bitte so nett und helft mir dabei?
Danke und Gruß
Christian

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Inhalte per Makro löschen
12.11.2014 08:45:02
Hajo_Zi
Hallo Christian, 
Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Range("A:A")                    ' Bereich der Wirksamkeit
' Zelle die in dem Bereich liegen auf die Variable schreiben
' damit werden nur noch die Zellen bearbeitet die im vorgegeben Bereich liegen
' jede Zelladresse ist einzeln angegeben
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
Application.EnableEvents = False
For Each RaZelle In RaBereich
RaZelle = Application.WorksheetFunction.RoundDown(RaZelle, 0)
Next RaZelle
Application.EnableEvents = True
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub

Anzeige
AW: bestimmte Inhalte per Makro löschen
12.11.2014 11:33:01
Christian
Hallo Hajo,
Excel sagt mir leider Typen unverträglich und markiert beim Debuggen die Zeile
RaZelle = Application.WorksheetFunction.RoundDown(RaZelle, 0)
Kann das etwas damit zu tun haben, dass ich den Text nicht in Zeile 1 eingefügt habe, sondern es eigentlich so gedacht war, dass ich es an einer beliebigen Stelle in Spalte A einfügen kann? Mit dem Hintergedanken, dass ich da mehrere Texte untereinander kopieren will... Weil wenn ich es in Zeile 1 einfüge löscht er leider ebenfalls nichts, es kommt aber auch kein Fehler
oder liegt es daran dass ich das Makro statt in das Tabellenblatt in die ganze Mappe oder in ein Modul einfügen muss?
Gruß und schonmal danke
Chris

Anzeige
AW: bestimmte Inhalte per Makro löschen
12.11.2014 11:36:03
Hajo_Zi
mein Code geht in meiner Datei, Deine sehe ich nicht.
Der Code ist für die gesamte Spalte A.
Der Code gehört unter die Tabelle.
Gruß Hajo

AW: bestimmte Inhalte per Makro löschen
12.11.2014 11:55:48
Christian
Hallo Hajo,
lade dann doch mal eine Bsp.-Datei hoch.
Die Daten kommen aus Word Dokumenten, diese kopiere ich dann in Tabelle 1 und lösche die Spalten die ich nicht brauche. Danach sieht Tabelle 1 so aus wie in meiner Bsp-Datei.
Danach gehe ich hin und kopiere Tabelle 1 Spalte C und D in die gesamte Liste in Tabelle2 Spalte A und B.
In der Tabelle2 siehst du nun dass sich nach dem kopieren nichts geändert hat. In Tabelle4 siehst du, wie es eigentlich nachdem das Makro ausgeführt wurde aussehen soll.
Passwortschutz ist übrigens keiner im Einsatz.
https://www.herber.de/bbs/user/93700.xlsm
Gruß
Christian

Anzeige
AW: bestimmte Inhalte per Makro löschen
12.11.2014 12:04:57
Hajo_Zi
Gut dann habe ich die Aufgabe falsch interpretiert, Komma hatte ich als Zahl angesehen. 
Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Range("A:A")                    ' Bereich der Wirksamkeit
' Zelle die in dem Bereich liegen auf die Variable schreiben
' damit werden nur noch die Zellen bearbeitet die im vorgegeben Bereich liegen
' jede Zelladresse ist einzeln angegeben
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
Application.EnableEvents = False
For Each RaZelle In RaBereich
If InStr(RaZelle, ",") > 0 Then
RaZelle = Left(RaZelle, InStr(RaZelle, ",") - 1)
End If
Next RaZelle
Application.EnableEvents = True
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub

Gruß Hajo

Anzeige
AW: bestimmte Inhalte per Makro löschen
12.11.2014 12:20:26
Christian
Hallo Hajo,
es tut mir leid, aber bei mir wird auch mit diesem Makro nichts gelöscht, weder wenn ich es in der Datei probierem die ich hochgeladen habe, noch wenn ich die Datei 93700.xlsm herunterlade und es dort probiere.
Gruß
Christian

AW: bestimmte Inhalte per Makro löschen
12.11.2014 12:31:43
Christian
Hallo Hajo,
ich verstehe die Welt nicht mehr :-)
Mit der Tabelle klappt es auch bei mir, kann aber nichts feststellen, was ich jetzt anders gemacht habe als du.
Aber wie gesagt es funktioniert. Vielen DAnk
Chris

Anzeige
AW: bestimmte Inhalte per Makro löschen
12.11.2014 12:04:42
Christian
Hallo Hajo,
lade dann doch mal eine Bsp.-Datei hoch.
Die Daten kommen aus Word Dokumenten, diese kopiere ich dann in Tabelle 1 und lösche die Spalten die ich nicht brauche. Danach sieht Tabelle 1 so aus wie in meiner Bsp-Datei.
Danach gehe ich hin und kopiere Tabelle 1 Spalte C und D in die gesamte Liste in Tabelle2 Spalte A und B.
In der Tabelle2 siehst du nun dass sich nach dem kopieren nichts geändert hat. In Tabelle4 siehst du, wie es eigentlich nachdem das Makro ausgeführt wurde aussehen soll.
Passwortschutz ist übrigens keiner im Einsatz.
https://www.herber.de/bbs/user/93700.xlsm
Gruß
Christian
Anzeige

301 Forumthreads zu ähnlichen Themen

Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Anzeige
zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
Anzeige
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Teilwert aus Zelle suchen und selektieren
Addi

Hallo Zusammen,
folgendes Problem:
Ich habe eine Excel Liste mit Buchungstexten, die zum Teil so aussehen:
"Rg. Hilton/Beherb./F.Schulze/10.03.08"
Aus dieser Zelle möchte ich den Namen selektieren und einzeln in die Zelle daneben schreiben.
Die jeweiligen Namen sind bekannt...
20.03.2009 07:54:45
Thread-ID: 1062031
10 Beiträge
Zugriff auf auf Teilinhalte einer Zelle
Der

Hallo da Draußen!
Habe mal wieder ein Problem mit meiner VBA Programmierung. Ich möchte innerhalb einer Exceltabelle auf einzelne Zellen zugreifen, die ein bestimmtes Merkmal haben. Der Inhalt der Zelle beginnt mit einer Zahl (in diesem fall mit einer Postleitzahl). Ich möchte also meine Ab...
20.03.2009 14:52:09
Thread-ID: 1062230
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
9
5
5
22
6
7
9
4
8
3
1
5
4
1
2
13
3
4
3
3
4
12
2