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
520to524
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
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Löschen per Makro bei verbundenen Zellen

Löschen per Makro bei verbundenen Zellen
25.11.2004 08:12:40
Micha
Hallöchen, habe da folgendes Problem!
Ich möchte per Buttonklick 3 untereinanderliegende Zeilen löschen, sind aber nicht die normale Zeilen im Excelblatt, sondern nur eine bestimmte Anzahl verbundener Zellen.
So funtioniert es nur, wenn der die Zellen nicht verbunden sind!
Privat 

Sub CommandButton1_Click()
Range("D30").Select
For i = 1 To 3 Step 1
ActiveCell.ClearContents
ActiveCell.Offset(, 0).Selecct
Next i
End Sub

Wie muß ich dies ändern? Muß ich noch was beachten, habe einen Blattschutz gesetzt.
Gruß Micha

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

Betreff
Datum
Anwender
Anzeige
AW: Löschen per Makro bei verbundenen Zellen
Nike
Hi,

Private Sub CommandButton1_Click()
Dim rngLoe As Range
Dim rngCell As Range
Set rngLoe = Range("D30:D32")
For Each rngCell In rngLoe
If rngCell.MergeCells Then
rngCell.UnMerge
End If
rngCell.ClearContents
End Sub

den Schutz ggf. vorher herausnehmen,
per VBA oder manuell...
Bye
Nike
AW: Löschen per Makro bei verbundenen Zellen
25.11.2004 08:30:08
Micha
Danke für die Hilfe, ich probiere es mal und wenns nicht funktioniert melde ich mich nochmal
Gruß Micha
AW: Löschen per Makro bei verbundenen Zellen
25.11.2004 09:01:40
Micha
Hallo Nike, es wird der Fehler beim Kompilieren For ohne Next. Was muß ich jetzt tun?
Gruß Micha
AW: Löschen per Makro bei verbundenen Zellen
Nike
Hi,
sorry, ein next vergessen:

Private Sub CommandButton1_Click()
Dim rngLoe As Range
Dim rngCell As Range
Set rngLoe = Range("D30:D32")
For Each rngCell In rngLoe
If rngCell.MergeCells Then
rngCell.UnMerge
End If
rngCell.ClearContents
Next
End Sub

Bye
Nike
Anzeige
Kannst Du nochmal schauen bitte!
25.11.2004 09:29:47
Micha
Jetzt funktionierts, super schon mal, aber ich hatte mich bestimmt etwas falscvh ausgedrückt. Jetzt werden ja die ganzen Formate auch gelöscht, ich wollte doch nur die Zellinhalte löschen, kannst Du mir nochmal hlfen bitte?
Danke LG Micha
AW: Kannst Du nochmal schauen bitte!
Nike
Hi,
dann muesstest du nach dem Clear Contents
die entsprechenden Zellen wieder mergen?

Private Sub CommandButton1_Click()
Dim rngLoe As Range
Dim rngCell As Range
Set rngLoe = Range("D30:D32")
For Each rngCell In rngLoe
If rngCell.MergeCells Then
rngCell.UnMerge
End If
rngCell.ClearContents
Range(rngCell, rngCell.Offset(0, 1)).Merge
Next
End Sub

Bye
Nike
Anzeige

302 Forumthreads zu ähnlichen Themen

Zeilenumbruch bei verbundenen Zellen
oblivion

Hallo, ich habe mal eine Frage zum Zeilenumbruch. Wenn ich eine einzelne Zelle habe und über die Eigenschaften den Zeilenumbruch einstelle, dann wird automatisch die Zelle größer (nach unten) je mehr ich reinschreibe.
Wenn ich jetzt aber zwei oder mehr Zellen verbinde und die gleichen Einst...
22.08.2008 12:42:00
Thread-ID: 1003815
4 Beiträge
Anzeige
Spalten statt Zeilen filtern
Steffen

Hallo Forum,
den Autofilter kenne ich, aber ich brauche einen Filter der Spalten anstatt der Zeilen und von VBA habe ich leider keine Ahnung.
ich habe eine Tabelle mit Namen in A2:A10. Im Bereich B2:X10 steht in verschiedenen Zellen entweder ein "x" oder die Zellen sind leer.
Nun hä...
29.10.2008 16:41:00
Thread-ID: 1020355
13 Beiträge
vertikal und horizontal
ludmila

Hallo Spezialisten,
In der Tabelle "Liste" sind Daten horizontal eingetragen.
Diese sollen nun in der Tabelle "Projekt" vertikal eingetragen werden.
Nachstehendes makro ließt jedoch nur das Datum ab der Zelle A 63 ein.
wo liegt der Fehler?
Danke!
LG Ludmila
Sub Lie...
15.03.2009 10:58:27
Thread-ID: 1060364
3 Beiträge
Anzeige
Zellenhöhe bei verbundenen Zellen (VBA Code?)
Micha

Hallo liebe Spezialisten,
ich habe folgendes Problem und würde mich über einen VBA-Code riesig freuen.
In der Tabelle1 sind in dem Bereich B53:AI63 die Zellen verbunden.
Der in diesem Bereich von anderen Usern eingegebene Text ist unterschiedlich lang.
Der Zeilenumbruch funktion...
17.09.2009 13:18:38
Thread-ID: 1103550
2 Beiträge
Locked Eigenschaft bei verbundenen Zellen
Christoph

Hallo zusammen,
nachdem mir eben schonmal wunderbar geholfen wurde, wende ich mich mit einem anderen Problem an euch. Szenario schaut wie folgt aus:
Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern. Die Gesamte Mappe soll gesperrt werden, in einzelnen Arbeitsblättern gibt es jedo...
16.11.2010 14:38:41
Thread-ID: 1187125
5 Beiträge
Zwei Zellbezüge in einer Zelle
WillyJ

Hilferuf eines Laien:
In A1 steht "Aktuelles Datum"
In A2 steht =heute()
In A3 soll stehen: Aktuelles Datum 31.03.2011
mit Bezug zu A1 und A2
Wenn ich in A3 eingebe: =&"a1"& a2 erscheint statt des Datums der Datumswert 40633
Danke im voraus für eure Hilfe.
31.03.2011 12:02:57
Thread-ID: 1208457
4 Beiträge
zwei Ebenen in einer Zelle
siegfried

Hallo zusammen,
ich möchte auf einer Zelle eine zweite Ebene einfügen (ähnlich wie ein Kommentar).
Das spezielle soll sein, dass ich auf dieser zweiten Ebene variabel Zahlen einfügen will, die ich manipulieren kann.
Geht das überhaupt? Und Wie?
Gruß
Siegfried
24.06.2011 22:16:26
Thread-ID: 1219551
4 Beiträge
zwei Hintergrundfarben in einer Zelle
siegfried

Hallo zusammen,
ich habe entweder einen Text oder je nach Fall auch zwei Textbausteine in einer Zelle verknüpft.
Um den Text1 von Text2 besser zu unterscheiden, habe ich bisher per VBA den Text1 in der Farbe "rot" geschrieben und den Text2 in "dunkelblau".
Kommt nur ein Text in di...
15.11.2011 15:37:08
Thread-ID: 1237968
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
1
12
2
4
1
4
3
3
2
1
2
7
15
2
2
1
7
11
8
4
1
1
26
4