Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt nicht geschützter Zellen löschen

Forumthread: Inhalt nicht geschützter Zellen löschen

Inhalt nicht geschützter Zellen löschen
04.04.2015 17:53:38
Orlandi
Guten Tag zusammen
Mein Ziel ist es, den Inhalt aller nicht geschützten Zellen einer markierten Zeile zu löschen.
Da ich VBA nicht mächtig bin, nutze ich die tollen Lösungen in den Foren. Dafür danke ich den vielen Profis bestens. Für mein aktuelles Problem habe ich jedoch bisher keine geeignete Lösung gefunden.
Mit dem folgenden Befehl markiere ich die Zeile mit der aktiven Zelle.
Range(ActiveCell, Cells(ActiveCell.Row, Columns.Count)).Select
Damit habe ich eine gewünschte Zeile markiert. Nun fehlt mir noch die Fortsetzung, so dass der Inhalt aller nicht geschützten Zellen (dazu gehören auch verbundene Zellen) dieser markierten Zeile gelöscht wird.
Vielen Dank für die Unterstützung

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Inhalt nicht geschützter Zellen löschen
04.04.2015 19:09:56
fcs
Hallo Orlandi,
hier zwei Makro mit entsprechender Funktion.
Gruß
Franz
'Variante 1
Sub Loeschen_nicht_geschuetzte()
Dim Zelle As Range, Zeile As Long
Zeile = ActiveCell.Row
With ActiveSheet
For Each Zelle In .Range(.Cells(Zeile, 1), .Cells(Zeile, .Columns.Count).End(xlToLeft))
If Zelle.Locked = False Then
Zelle.MergeArea.ClearContents
End If
Next
End With
End Sub
'Variante 2 - ist aber etwas langsamer
Sub Loeschen_nicht_geschuetzte2()
Dim Zelle As Range
For Each Zelle In ActiveCell.EntireRow.Cells
If Zelle.Locked = False Then
Zelle.MergeArea.ClearContents
End If
Next
End Sub

Anzeige
AW: Inhalt nicht geschützter Zellen löschen
04.04.2015 20:06:43
Orlandi
Hallo Franz
Ich danke herzlich für die schnelle und 2 Mal perfekte Antwort. Da staune ich nur noch.
Beste Ostergrüsse
Orlandi

AW: Inhalt nicht geschützter Zellen löschen
04.04.2015 20:11:59
Orlandi
Hallo Franz
Besten Dank für die schnelle und perfekte Lösung. Da staune ich nur noch.
Beste Ostergrüsse
Orlandi

AW: Inhalt nicht geschützter Zellen löschen
04.04.2015 20:53:44
Orlandi
Hallo Franz
Herzlichen Dank für Deine schnellen und perfekten Lösungen.
Angespornt wollte ich noch eine Sicherheitsabfrage (kopiertes Makro) einbauen. Siehe unten. Nun sollte Dein Befehl jedoch nur starten, wenn die Antwort im ersten Makro "Yes" ist. Bei "No" sollt der Befehl enden. Wie kann ich dies abfangen?
Vielen Dank schon im Voraus.
Orlandi
Range(ActiveCell, Cells(ActiveCell.Row, Columns.Count)).Select
Dim Mldg, Stil, Titel, Antwort
Mldg = "Ist das die richtige Zeile?" & vbNewLine & "Die Einträge gehen unwiderruflich verloren!"
Stil = vbYesNo + vbCritical
Titel = "Achtung!!!"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
End If
Dim Zelle As Range, Zeile As Long
Zeile = ActiveCell.Row
With ActiveSheet
For Each Zelle In .Range(.Cells(Zeile, 1), .Cells(Zeile, .Columns.Count).End(xlToLeft))
If Zelle.Locked = False Then
Zelle.MergeArea.ClearContents
End If
Next
End With
End Sub

Anzeige
AW: Inhalt nicht geschützter Zellen löschen
05.04.2015 01:16:07
Dirk
Hallo Orlandi,
da Franz bestimmt offline ist, darf ich dir vllt. weiterhelfen.
Option Explicit
Sub Loeschen_nicht_geschuetzte_3()
Dim Zelle As Range, Zeile As Long
Dim Antwort As String
Zeile = ActiveCell.Row
Antwort = MsgBox("Ist das die richtige Zeile?" & vbCr & vbCr _
& "Zeile - Nr.:  " & Zeile, vbQuestion + vbYesNo)
If Antwort = vbYes Then
With ActiveSheet
For Each Zelle In .Range(.Cells(Zeile, 1), .Cells(Zeile, .Columns.Count).End( _
xlToLeft))
If Zelle.Locked = False Then
Zelle.MergeArea.ClearContents
End If
Next
End With
Else
Exit Sub
End If
End Sub
Ich bin aber nur VBA-Laie - also "meckern" ausdrücklich erwünscht.
Daher lasse ich die Frage mal offen.
MfG
Dirk

Anzeige
AW: Inhalt nicht geschützter Zellen löschen
05.04.2015 03:05:27
fcs
Hallo Orlandi,
Dirk hat dir ja schon weiter geholfen.
Hier mit deinen Variablen und Selektion der gesamten Zeile.
Diese ist für die Funktion des Makros nicht erforderlich. Soll sie die als Orientierung helfen?
Falls du vertikal über mehrere Zeilen verbundene Zellen hast geht die Markierung ggf. über mehrere Zeilen. Es werden aber nur die Werte in der Zeile mit der aktiven Zelle gelöscht + die Inhalte in den verbundenen Zellen.
Gruß
Franz 
Sub Loeschen_nicht_geschuetzte()
Dim Mldg, Stil, Titel, Antwort
Dim Zelle As Range, Zeile As Long
Zeile = ActiveCell.Row
Mldg = "Ist Zeile  " & Zeile & "  die richtige Zeile?" & vbNewLine _
& "Die Einträge gehen unwiderruflich verloren!"
Stil = vbYesNo + vbCritical
Titel = "Achtung!!!"
ActiveCell.EntireRow.Select 'Zeile markieren - kürzer
'    Range(ActiveCell, Cells(ActiveCell.Row, Columns.Count)).Select
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
With ActiveSheet
For Each Zelle In .Range(.Cells(Zeile, 1), .Cells(Zeile, _
.Columns.Count).End(xlToLeft))
If Zelle.Locked = False Then
Zelle.MergeArea.ClearContents
End If
Next
End With
End If
End Sub

Anzeige
AW: Inhalt nicht geschützter Zellen löschen
05.04.2015 10:22:58
Orlandi
Hallo Franz und Dirk
Was soll ich sagen, perfekt. Dazu noch mit den erläuternden Erklärungen.Ihr habe mir einen grossen Dienst erwiesen.
Nochmals herzlichen Dank
Orlandi

AW: Inhalt nicht geschützter Zellen löschen
05.04.2015 16:39:42
Orlandi
Hallo Franz und Dirk
Besten Dank für Eure Rückmeldungen. Alles funktioniert bestens und dank Deiner Erklärungen habe ich einiges gelernt. Ihr habt mir einen grossen Dienst erwiesen.
Beste Grüsse
Orlandi

Anzeige
AW: Inhalt nicht geschützter Zellen löschen
05.04.2015 04:58:54
Dirk
Hallo Orlandi,
die letzte Variante von Franz gefällt mir persönlich am besten.
Zumal sie deine Variablen benutzt, was ich gar nicht umsetzen konnte.
Ich habe nur die Sicherheitsabfrage aus einem meiner Module in Franz's Variante reingebastelt, getestet und hier gepostet. So,dachte ich, kommst du erstmal weiter u. kannst das nächste Problem angehen.
Besonders gut u. hilfreich finde ich die Markierung der aktiven Zeile - werde ich auch bei mir einbauen - eine prima Idee.
Der Franz, der kann's - da gibt es nix zu meckern ! ;-)
Gruß
Dirk
Anzeige
;

Forumthreads zu verwandten 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
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
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
Formel in bestimmte Zellen per makro schreiben??
lisa

Hallo
Ich konnte bislang noch nicht in der Recherche finden und wende mich deshalb an EUCH Spezis.
Vieleicht könnte ihr mir helfen.
In meiner Spalte B steht immer nur in bestimmten Zellen ein Wert, nämlich Ergebnis!
In der Spalte F stehen Werte. Nun möchte ich aber ohne die Wer...
09.11.2009 13:43:49
Thread-ID: 1115507
9 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
Anzeige
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 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
Range definieren bestimmte zellen herauslöschen
Matthias

Hallo,
ich bewundere dieses Forum und habe hier schon zahlreiche Stunden mit Makros lernen und verstehen verbracht. Mittlerweile kann ich auch schon selbst einigermaßen "programmieren" doch bei diesem Projekt versagen meine Kenntnisse total.
In Spalte A habe ich aus einem Warenwirtschaf...
07.08.2010 16:34:44
Thread-ID: 1171074
21 Beiträge
VBA: bei Wert 0 in Zelle A5, Zeile 9 löschen
Steffen

Hallo zusammen,
ich benötige kurz eure kompetente Hilfe!
Ich habe folgendes Problem....
Wenn in Zelle A5 in Mappe1 der Wert 0 steht dann soll die Zeile 9 in Mappe2 gelöscht werden.
Ich hoffen mir kann jemand weiterhelfen!
Vielen Dank für die Hilfe und einen Lieben Gruß
S...
04.09.2010 18:17:19
Thread-ID: 1175718
13 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
Formular aufrufen VBA über mehrere Zellen
andreas

Hallo zusammen,
habe eine Tabelle da will ich wenn eine Zelle von B20 - B500 selektiert ist das Formular "Werkzeuge" aufrufen.
Wie muss ich dafür den Code schreiben?
Danach sollte nach einlesen der Daten über das Formular, die Zelle "C?" in der selben Zeile angewählt werden, dazu m...
12.11.2010 12:17:18
Thread-ID: 1186487
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige