Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1368to1372
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
1368to1372
1368to1372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nochmal Löschen von bestimmten Zellen per Makro

nochmal Löschen von bestimmten Zellen per Makro
06.07.2014 19:05:02
bestimmten
Hallo liebes Forum,
bitte nocheinmal um Hilfe, obwohl ich das Problem so ähnlich schon einmal hatte:
Zelle B ist im Normalzustand mit dem Wort "frei" belegt und auf grüne Füllung (über bedingte Formatierung) eingestellt. (Schrift Arial,Größe 12)
In Zelle B kann eine Artikel-Nummer eingegeben werden, danach werden Zellen C und D automatisch (über SVERWEIS) ausgefüllt.
In Spalten E, F und I werden weiter manuell Werte eingetragen.
Ich möchte, wenn die Zeile sozusagen "belegt" ist, eine Löschfunktion (Schaltfläche) haben, die die Spalten B, E, F und I leert und wo am Ende in Spalte B wieder "frei" drin steht mit der bedingten Formatierung auf grün (und Cursor in Zelle B).
Weiterhin möchte ich diese Löschfunktion für jede einzelne Zeile der Tabelle (bis ca 1000 Zeilen)zur Verfügung haben. Zu beachten ist, dass Spalten C u D über SVerweis mit B verküpft sind und diese Verknüpfung ja erhalten bleiben soll.
Ich bitte nocheinmal um ausführliche verständliche Hilfestellung.
Vielen Dank im Voraus!
Holm

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nochmal Löschen von bestimmten Zellen per Makro
06.07.2014 21:59:42
bestimmten
Hallo Holm,
nach folgend entsprechende Makros.
Gruß
Franz 

'Im Tabellenblatt eine Schaltfläche aus den Formularsteuerelementen einfügen und das folgende _
Makro der Schaltfläche zuweisen
Sub AlleArtikelNr_auf_Frei()
Dim wks As Worksheet, Zeile_L As Long
Const Zeile_1 As Long = 2 'Nummer der 1. Zeile in die Daten eingetragen werden - ggf.  _
anpassen
Set wks = ActiveWorkbook.Worksheets("Tabelle1") 'Name des Tabelleblattes anpassen!!!
If MsgBox("Alle Werte in Spalte B auf ""frei"" setzen und in Spalten E,F und I löschen?", _
vbQuestion + vbOKCancel, "Werte in Tabelle """ & wks.Name & """ zurücksetzen") _
= vbCancel Then Exit Sub
With wks
'Letzte Zeile mit Daten in Spalte C (Spalte mit Formeln)
Zeile_L = .Cells(.Rows.Count, 3).End(xlUp).Row
If Zeile_L >= Zeile_1 Then
'Werte in Zellen in Spalte B auf "Frei" setzen
.Range(.Cells(Zeile_1, 2), .Cells(Zeile_L, 2)).Value = "frei"
'Werte in Zellen in Spalte E bis F löschen
.Range(.Cells(Zeile_1, 5), .Cells(Zeile_L, 6)).ClearContents
'Werte in Zellen in Spalte I löschen
.Range(.Cells(Zeile_1, 9), .Cells(Zeile_L, 9)).ClearContents
End If
Cells(Zeile_1, 2).Select
End With
End Sub
'Code unter dem Tabellenblatt in dem die Daten eingegeben werden !!!!
'Ereignismakro - Doppelklick
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Per Doppelklick in eine Zelle in Spalte B die Zeile wieder auf "frei" setzen.
Dim Zeile As Long, Zeile_L As Long
Const Zeile_1 As Long = 2 'Nummer der 1. Zeile in die Daten eingetragen werden - ggf.  _
anpassen
With Me
'Letzte Zeile mit Daten in Spalte C (Spalte mit Formeln)
Zeile_L = .Cells(.Rows.Count, 3).End(xlUp).Row
Select Case Target.Column
Case 2 'Spalte B
If Target.Row >= Zeile_1 And Target.Row

Anzeige
AW: nochmal Löschen von bestimmten Zellen per Makro
07.07.2014 19:30:26
bestimmten
Hallo und danke!
Allerdings löscht das Makro in alle Zeilen der Tabelle die entsprechenden Spalten!
Ich möchte nur in einer vorher (irgendwie) ausgewählten bzw markierten Zeile diese bestimmten Spalten löschen!

AW: nochmal Löschen von bestimmten Zellen per Makro
07.07.2014 20:15:44
bestimmten
Hi
dann probier mal folgenden Code für den Button, hier werden nur die seletierten Zeilen bearbeitet:
Intersect(Selection.EntireRow, Range("B:B")).Value = "frei"
Intersect(Selection.EntireRow, Range("E:F,I:I")).ClearContents
die Spalten C und D solltest du nicht anfassen, die Formeln müssen ja erhalten bleiben.
hier würde ich in der Tabelle, die der SVerweis als 2. Parameter verwendet, einen Datensatz "frei" anlegen, welcher dann herangezogen wird und dort die entsprechenden Werte eintragen ("leer", oder ="", wenn du eine leerzelle im Ergebnis sehen willst)
Gruß Daniel

Anzeige
AW: nochmal Löschen von bestimmten Zellen per Makro
08.07.2014 09:33:00
bestimmten
Hallo Holm,
es sind ja 2 Makros.
Das eine ist zuständig für das Löschen aller Eingabewerte.
Das 2. Makro ist zuständig für das zurücksetzen der Einträge in einer einzelnen Zeile.
Dieses Makro muss -wie geschrieben- im VBA-Editor unter dem entsprechenden Tabellenblatt eingefügt werden. Nach Doppelklick auf eine Zelle in Spalte B werden nach Bestätigung die Einträge in dieser Zeile zurückgesetzt.
Wenn nicht mit dem Ereignismakro arbeiten willst, dann kannst du das folgende Makro benutzen, das nach Bestätigung die EInträge in der Zeile mit der aktiven Zelle zurücksetzt.
Gruß
Franz 
Sub Artikelnummer_auf_frei_in_Zeile()
Dim Zeile As Long
Const Zeile_1 As Long = 2 'Nummer der 1. Zeile in die Daten eingetragen werden - ggf. _
anpassen
With ActiveSheet
'Letzte Zeile mit Daten in Spalte C (Spalte mit Formeln)
Zeile = ActiveCell.Row
If Zeile >= Zeile_1 Then
If MsgBox("Werte in Zeile auf ""frei"" setzen und in Spalten E,F und I löschen?", _
vbQuestion + vbOKCancel, "Werte in Zeile """ & Zeile & """ zurücksetzen") _
= vbOK Then
'Wert in Zelle in Spalte B auf "Frei" setzen
.Cells(Zeile, 2) = "frei"
'Werte in Zellen in Spalte E bis F löschen
.Range(.Cells(Zeile, 5), .Cells(Zeile, 6)).ClearContents
'Wert in Zelle in Spalte I löschen
.Cells(Zeile, 9).ClearContents
End If
End If
End With
End Sub

Anzeige
AW: nochmal Löschen von bestimmten Zellen per Makro
10.07.2014 19:10:49
bestimmten
Hallo Franz,
danke für deine Hilfe, jetzt hab ichs gepackt!
Gleich noch ein Zusatz, wenn möglich:
Kann man bei diesem Rücksetzen der Spalten pro Zeile auch automatisch in Spalte C und D den SVerweis (der dort reingehört und ja eventuell mal aus Versehen manuell mit rausgelöscht werden könnte, wenn man nicht mit dem Tabellenschutz dieser Spalten arbeiten möchte) sozusagen auch mit erneuern?
In C müsste dann stehen:
=WENN(ISTNV(SVERWEIS($B3;Tabelle3!A:C;2;FALSCH));"";(SVERWEIS($B3;Tabelle3!A:C;2;FALSCH)))
und in D:
=WENN(ISTNV(SVERWEIS($B3;Tabelle3!A:C;3;FALSCH));"";(SVERWEIS($B3;Tabelle3!A:C;3;FALSCH)))
Das müsste dann natürlich bei Doppelklick und der Bestätigung für jede entsprechende Zeile funktionieren.
Danke im Voraus!
Holm

Anzeige
AW: nochmal Löschen von bestimmten Zellen per Makro
11.07.2014 09:38:49
bestimmten
Hallo Holm,
mit Eintragen der Formeln sieht der entsprechende Abschnitt des Makros wie folgt aus.
Gruß
Franz 
        If MsgBox("Werte in Zeile auf ""frei"" setzen und in Spalten E,F und I löschen?", _
vbQuestion + vbOKCancel, "Werte in Zeile """ & Zeile & """ zurücksetzen") _
= vbOK Then
'Wert in Zelle in Spalte B auf "Frei" setzen
.Cells(Zeile, 2) = "frei"
'SVERWEIS-Formeln einfügen
.Cells(Zeile, 3).FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC2,Tabelle3!C1:C3,2,FALSE)),""""," _
& "(VLOOKUP(RC2,Tabelle3!C1:C3,2,FALSE)))"
.Cells(Zeile, 4).FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC2,Tabelle3!C1:C3,3,FALSE)),""""," _
& "(VLOOKUP(RC2,Tabelle3!C1:C3,3,FALSE)))"
'Werte in Zellen in Spalte E bis F löschen
.Range(.Cells(Zeile, 5), .Cells(Zeile, 6)).ClearContents
'Wert in Zelle in Spalte I löschen
.Cells(Zeile, 9).ClearContents
End If
End If

Anzeige
AW: nochmal Löschen von bestimmten Zellen per Makro
12.07.2014 12:13:11
bestimmten
Hallo Franz,
also ich arbeite mit der Variante Doppelklick in Zelle B zum Löschen.
In welches Makro muss ich die 2mal SVerweis
=WENN(ISTNV(SVERWEIS($B3;Tabelle3!A:C;2;FALSCH));"";(SVERWEIS($B3;Tabelle3!A:C;2;FALSCH)))
=WENN(ISTNV(SVERWEIS($B3;Tabelle3!A:C;3;FALSCH));"";(SVERWEIS($B3;Tabelle3!A:C;3;FALSCH)))
eintragen? In das Makro oder in den Code direkt im Tabellenblatt? Und an welche Stelle?
Ist das dann automatisch für alle Zeilen gültig? Der erste SVERWEIS ist ja Zeile 3....muss ja dann für jede andere Zeile auch gültig sein...
Danke im Voraus!
Holm

Anzeige
AW: nochmal Löschen von bestimmten Zellen per Makro
14.07.2014 18:17:54
bestimmten
Hallo Franz, hast es bestimt überlesen, hatte nochmal nachgefragt....
also ich arbeite mit der Variante Doppelklick in Zelle B zum Löschen.
In welches Makro muss ich die 2mal SVerweis
=WENN(ISTNV(SVERWEIS($B3;Tabelle3!A:C;2;FALSCH));"";(SVERWEIS($B3;Tabelle3!A:C;2;FALSCH)))
=WENN(ISTNV(SVERWEIS($B3;Tabelle3!A:C;3;FALSCH));"";(SVERWEIS($B3;Tabelle3!A:C;3;FALSCH)))
eintragen? In das Makro oder in den Code direkt im Tabellenblatt? Und an welche Stelle?
Ist das dann automatisch für alle Zeilen gültig? Der erste SVERWEIS ist ja Zeile 3....muss ja dann für jede andere Zeile auch gültig sein...
Danke im Voraus!
Holm
Anzeige

310 Forumthreads zu ähnlichen Themen

Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA - Zellen löschen
gegs2

Hallo,
ich bin auf der Suche nach einem Makro welches mir Zellen aus meiner Tabelle löscht. Es soll bei Spalte C von oben her anfangen zu suchen (bis Spalte AF), und alle Zellen löschen und nach oben verschieben bei welchen der Inhalt der Zelle nicht mit einem kleinen "c" beginnt.
Ist s...
22.06.2009 16:24:03
Thread-ID: 1083531
5 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
Zelleninhalt ab Ziffer löschen
Helmut

Hallo,
wer kann mir bei meinem Problem helfen?
Folgendes ich habe Zellen mit dem Inhalt z. B.:
Wort Wort Wort Ziffer mehrere Buchstaben oder Wort Wort Wort (Wort) Ziffer mehrere Buchstaben.
Die Wortanzahl kann variieren.
Ich will dass in der Zelle nur noch die Wörter stehen...
28.01.2010 19:19:49
Thread-ID: 1133917
5 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Inhalt Zelle löschen
jo_cindy

Hallo,
habe folgendes Problem. Ich bekomme Daten aus einer Web-Applikation in Excel exportiert. Es handelt sich um Buchungszeiten aus einer Zeitwirtschaft. Jeder Buchungssatz hat ein Tagesdatum. Dieses Datum wird aber in Excel nicht als solches erkannt. Da ich die Wochentage benötige, habe...
05.03.2010 11:48:52
Thread-ID: 1143640
10 Beiträge
Makro zum löschen bestimmter Spalten
Otto

GUten Morgen,
Ich brauche Eure Hilfe. Ich brauche ein Makro, das alle Spalten in einer Tabelle löscht, die in ihrer ersten Zelle bestimmte worte NICHT enthalten.
Also:
Ich habe viele verschieden Dateien jeder mit 15-25 Spalten. Ich brauche aber nur 3 von diesen Spalten von jeder Dat...
14.03.2010 11:51:06
Thread-ID: 1145702
6 Beiträge
Makro macht Probleme beim Löschen von Zellen
Zellen

Hallo,
folgendes tolles Makro habe ich mit eurer Hilfe in die Tabelle eingebaut.
Funktioniert alles super. Gebe ich in dem untersuchten Bereich etwas ein, wird in eine Zelle etwas geschrieben. Nun wollte ich, dass wenn der Wert im untersuchten Bereich gelöscht wird, auch der Wert in der...
28.05.2010 10:43:57
Thread-ID: 1159185
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
3
2
4
2
8
4
5
9
5
4
6
20
12
1
6
2
6
1
4
2
1
11
7
15
3