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

Bei Zellinhalt und Rand gleichzeitig löschen

Bei Zellinhalt und Rand gleichzeitig löschen
Lena
Hallo...
in meiner Beispieldatei ist die aktive Zelle C5. Wenn ich den Zellinhalt lösche, möchte ich, dass sich der Rahmen "Selection.Borders(xlEdgeTop).LineStyle = xlNone" löscht - auch in den zwei Zellen weiter links.
Es soll dann so aussehen, wie in Tabelle2 meiner Beispieldatei. Die betreffenden Löschzellen sind aber nur in den Spalten C, F, I, L und O, und in den Spalten 3, 5, 7 ....21. Alle anderen Zellen sollen von diesem Befehl unberührt bleiben.
In der Hoffnung, das so etwas überhaupt geht bedanke ich mich schon im Voraus für eure Hilfe.
MfG
Lena
welche Beispieldatei? owT
01.10.2009 22:35:11
Uduuh
AW: Bei Zellinhalt und Rand gleichzeitig löschen
02.10.2009 08:51:23
Tino
Hallo,
versuche es mal mit diesem Code.
Kommt als Code in die entsprechende Tabelle.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range

Set Bereich = Intersect(Range("C3,C5,C7"), Target)

If Not Bereich Is Nothing Then
 For Each Bereich In Bereich
  If Bereich = "" Then
   Range(Bereich, Bereich.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlNone
  Else
   Range(Bereich, Bereich.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlContinuous
  End If
 Next Bereich
End If

End Sub
Gruß Tino
Anzeige
AW: Bei Zellinhalt und Rand gleichzeitig löschen
02.10.2009 09:52:30
Lena
Hallo Tino,
besten Dank.
Da ich es aber für mehrere Spalten brauche, habe ich es jetzt so gemacht:
Dim Montag As Range
Set Montag = Intersect(Range("C3,C5,C7,c9,c11,c13,c15,c17,c19,c21,c23,c25"), Target)
If Not Montag Is Nothing Then
For Each Montag In Montag
If Montag = "" Then
Range(Montag, Montag.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlNone
Else
Range(Montag, Montag.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlContinuous
End If
Next Montag
End If
Dim Dienstag As Range
Set Dienstag = Intersect(Range("f3,f5,f7,f9,f11,f13,f15,f17,f19,f21,f23,f25"), Target)
If Not Dienstag Is Nothing Then
For Each Dienstag In Dienstag
If Dienstag = "" Then
Range(Dienstag, Dienstag.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlNone
Else
Range(Dienstag, Dienstag.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlContinuous
End If
Next Dienstag
End If
Dim Mittwoch As Range
Set Mittwoch = Intersect(Range("h3,h5,h7,h9,h11,h13,h15,h17,h19,h21,h23,h25"), Target)
If Not Mittwoch Is Nothing Then
For Each Mittwoch In Mittwoch
If Mittwoch = "" Then
Range(Mittwoch, Mittwoch.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlNone
Else
Range(Mittwoch, Mittwoch.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlContinuous
End If
Next Mittwoch
End If
Läßt sich das nun nicht noch kürzer schreiben?
MfG
Lena
Anzeige
AW: Bei Zellinhalt und Rand gleichzeitig löschen
02.10.2009 10:35:59
Tino
Hallo,
versuche es mal so.
kommt als Code in Tabelle 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim Bereich As Range 
Dim strZellen As String 
 
'Deine Zellen 
strZellen = "C3,C5,C7,c9,c11,c13,c15,c17,c19,c21,c23,c25," & _
            "f3,f5,f7,f9,f11,f13,f15,f17,f19,f21,f23,f25," & _
            "h3,h5,h7,h9,h11,h13,h15,h17,h19,h21,h23,h25" 
 
 
 
Set Bereich = Intersect(Range(strZellen), Target) 
 
If Not Bereich Is Nothing Then 
 For Each Bereich In Bereich 
  If Bereich = "" Then 
   Range(Bereich, Bereich.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlNone 
  Else 
   Range(Bereich, Bereich.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlContinuous 
  End If 
 Next Bereich 
End If 
 
End Sub

Gruß Tino
Anzeige
AW: Bei Zellinhalt und Rand gleichzeitig löschen
02.10.2009 11:07:32
Lena
Hallo Tino,
nochmal danke, es funktioniert.
Gruß
Lena
oder auch so...
02.10.2009 11:17:54
Tino
Hallo,
wenn die Bereiche immer den gleichen Abstand haben, gehts auch mit einer Schleife.
Hier mal mit 7 Stück.
kommt als Code in Tabelle 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim Bereich As Range 
Dim rZellen As Range 
Dim i As Integer 
 
'Dein erster Zellbereich 
Set rZellen = Range("C3,C5,C7,c9,c11,c13,c15,c17,c19,c21,c23,c25") 
 
For i = 3 To 18 Step 3 'für 6 weitere Bereiche (18/3 = 6) 
 Set rZellen = Union(rZellen, rZellen.Offset(0, i)) 
Next i 
 
Set Bereich = Intersect(rZellen, Target) 
 
If Not Bereich Is Nothing Then 
 For Each Bereich In Bereich 
  If Bereich = "" Then 
   Range(Bereich, Bereich.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlNone 
  Else 
   Range(Bereich, Bereich.Offset(0, -2)).Borders(xlEdgeTop).LineStyle = xlContinuous 
  End If 
 Next Bereich 
End If 
 
End Sub

Gruß Tino
Anzeige
AW: oder auch so...
02.10.2009 11:53:42
Lena
Hallo Tino,
danke für die zweite Möglichkeit.
MfG
Lena

299 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Bezug auf Blatt abhängig von Zellinhalt
Zellinhalt

Hallo!
Meine Arbeitsmappe hat vier Blätter, diese heißen: "Übersicht" "Hans", "Klaus" und "Karl".
In Zelle A1 von "Übersicht" steht entweder "Hans", "Klaus" oder "Karl".
In Zelle A2 soll das stehen, was in Zelle B16 des Blattes steht, das in Zelle A1 von "Übersicht" genannt ist.
...
11.08.2008 16:55:00
Thread-ID: 1000917
3 Beiträge
Ausgabe von Teilen des Zellinhaltes
Teilen

Hallo
Ich habe über SVERWEIS mir Zellinhalte aus einer großen Tabelle ausgeben lassen.
Nun möchte ich aber bei der Ausgabe nicht den gesamten Zellinhalt mir anzeigen lassen, sondern nur die ersten 4 Ziffern.
Ist das möglich?
Vielen Dank für die Hilfe
MfG
Andreas
...
14.08.2008 08:45:54
Thread-ID: 1001719
4 Beiträge
Anzeige
Ordnerinhalt in Tabelle schreiben
Johann

Hallo Excel-Profis!
Ich brauch wieder einmal eure Hilfe.
Im Archiv habe ich mir den nachfolgenden Code besorgt und ein wenig verändert.
Der Code schreibt den Inhalt des aktuellen Ordners und der Unterordner in die Spalte B einer Tabelle und verlinkt noch dazu die einzelnen Einträge...
15.08.2008 17:19:52
Thread-ID: 1002256
8 Beiträge
Autokorrektur abschalten
Pia

Guten Abend zusammen,
wie kann man eine Autokorrektur in Excel abschalten? Ich muss WEI eintippen aber jedesmal wenn ich mit Enter bestätigen, es wechselt automatisch zu WIE.
Vielen Dank
20.08.2008 21:03:44
Thread-ID: 1003317
7 Beiträge
Belegung Schaltfläche msgbox
Lars

Hallo,
kann ich bei einer msgbox die Schaltflächen auch selber benennen?
Ich würde gerne wissen, ob ein Wert ober- oder unterhalb eines Grenzwertes liegt und somit die Tasten "oberhalb" und "unterhalb" in der msgbox haben.
Lars
21.08.2008 14:10:31
Thread-ID: 1003485
4 Beiträge
Schriftgröße Zelle automatisch an Inhalt anpassen
Peter

Hallo Leute!
Folgende Situation: ich habe in einer Arbeitsmappe auf mehreren Tabellenblättern zu oberst das gleiche Design. Unter anderem steht auf jedem Blatt oben in einer Zelle die gleiche Information. Aus Gründen der Einfachheit muss man diese Information nur einmal auf dem ersten Tabel...
21.08.2008 15:04:06
Thread-ID: 1003519
4 Beiträge
Pro Passwort eine Zeile freischalten...
amina

Hallo alle zusammen,
gibt es eine Möglichkeit in Excel pro Passwort eine Zeile freizuschalten.
Also z.b hab ich 20 Leute
1. Person = Zeile 1
2. Person = Zeile 2
usw.
und jede Person darf nur jeweils seine Zeile bearbeiten und die anderen bleiben gesperrt also so ähnlich...
21.08.2008 15:04:36
Thread-ID: 1003520
7 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
2
4
2
3
3
7
6
3
3
6
5
3
2
1
2
6
7
4
2
1
7
4
8
5
3