Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1816to1820
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
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Felder leeren wenn

Felder leeren wenn
04.03.2021 10:54:33
Christoph
Hallo,
ich möchte eine Funktion wenn man in Spalte C eine Zelle löscht, dann soll in der Mappe geprüft werden, ob es ein Worksheet mit dem Namen "TR (Integer) -7" gibt. Sollte kein Worksheet existieren, dann soll in der Spalte A und B in der entsprechende Zeile die Werte gelöscht werden.
Mein Code sieht so aus, funktioniert aber noch nicht:
If Target.Count = 1 Then
If Target.Column = 3 And Target.Row > 7 Then
TR = Target.Row
If Worksheets("Übersicht").Range("C" & CStr(TR)) = "" Then
For Each Worksheets In Workbook
If Worksheets.Name  Worksheets("TR" - 7) Then
Worksheets("Übersicht").Unprotect
Worksheets("Übersicht").Columns("A:B").Locked = False
Worksheets("Übersicht").Range("A" & CStr(TR)) = ""
Worksheets("Übersicht").Range("B" & CStr(TR)) = ""
Worksheets("Übersicht").Columns("A:B").Locked = True
Worksheets("Übersicht").Protect , AllowFiltering:=True, AllowFormattingRows:=True
Hatte jemand eine Idee?
Gruß Christoph

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

Betreff
Datum
Anwender
Anzeige
AW: Felder leeren wenn
04.03.2021 11:05:28
Nepumuk
Hallo Christoph,
so:
If Worksheets.Name  Worksheets(TR - 7) Then

Gruß
Nepumuk

AW: Felder leeren wenn
04.03.2021 11:12:38
Christoph
Hmm, zeigt mir immernoch einen Fehler an.
Hier mal der komplette Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strBlattname As String
If Target.Count = 1 Then
If Target.Column = 3 And Target.Row > 7 Then
TR = Target.Row
If Target  "" Then
If Worksheets("Übersicht").Range("A" & CStr(TR)) = "" Then
Worksheets("Übersicht").Unprotect
Worksheets("Übersicht").Columns("A:B").Locked = False
strBlattname = TR - 7
strBlattname = LegalSheetName(strBlattname)
Worksheets("Übersicht").Range("A" & CStr(TR)) = strBlattname
Worksheets.Add after:=Worksheets(Sheets.Count)
ActiveSheet.Name = strBlattname
Application.EnableEvents = False
Application.EnableEvents = True
Worksheets("Übersicht").Range("B" & CStr(TR)).FormulaLocal = "='" & TR - 7 & "'! _
D2"
Worksheets("Übersicht").Columns("B").EntireColumn.AutoFit
Worksheets("Übersicht").Columns("A:B").Locked = True
Worksheets("Übersicht").Protect , AllowFiltering:=True, AllowFormattingRows:= _
True, AllowFormattingColumns:=True
Else
If Worksheets("Übersicht").Range("C" & CStr(TR)) = "" Then
For Each Worksheets In Workbook
If Worksheets.Name  Worksheets(TR - 7) Then
Worksheets("Übersicht").Unprotect
Worksheets("Übersicht").Columns("A:B").Locked = False
Worksheets("Übersicht").Range("A" & CStr(TR)) = ""
Worksheets("Übersicht").Range("B" & CStr(TR)) = ""
Worksheets("Übersicht").Columns("A:B").Locked = True
Worksheets("Übersicht").Protect , AllowFiltering:=True,  _
AllowFormattingRows:=True, AllowFormattingColumns:=True
End If
End If
End If
End If
End If
End If
End Sub


Anzeige
AW: Felder leeren wenn
04.03.2021 11:26:35
Nepumuk
Hallo Christoph,
hätte mir gleich auffallen müssen. Was willst du hier:
If Worksheets.Name Worksheets(TR - 7) Then
vergleichen? Den Namen der Worksheets? Wenn ja, dann so:
If Worksheets.Name CStr(TR - 7) Then
Gruß
Nepumuk

AW: Felder leeren wenn
04.03.2021 11:43:00
Christoph
Hallo Nepumuk,
danke.Kommen der Sache näher. Ich glaub mir fehlt noch ein
NExt
Befehl. Aktuell bringt er mir End If ohne End If Block
Weißt du die Lösung?
Gruß Christoph

AW: Felder leeren wenn
04.03.2021 12:01:49
Nepumuk
Hallo Christoph,
teste mal:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim strBlattname As String
    Dim TR As Long
    Dim objWorksheet As Worksheet
    If Target.Count = 1 Then
        If Target.Column = 3 And Target.Row > 7 Then
            TR = Target.Row
            If Target <> "" Then
                If Worksheets("Übersicht").Range("A" & CStr(TR)) = "" Then
                    Worksheets("Übersicht").Unprotect
                    Worksheets("Übersicht").Columns("A:B").Locked = False
                    strBlattname = TR - 7
                    strBlattname = LegalSheetName(strBlattname)
                    Worksheets("Übersicht").Range("A" & CStr(TR)) = strBlattname
                    Worksheets.Add after:=Worksheets(Sheets.Count)
                    ActiveSheet.Name = strBlattname
                    Application.EnableEvents = False
                    Application.EnableEvents = True
                    Worksheets("Übersicht").Range("B" & CStr(TR)).FormulaLocal = "='" & TR - 7 & "'!D2"
                    Worksheets("Übersicht").Columns("B").EntireColumn.AutoFit
                    Worksheets("Übersicht").Columns("A:B").Locked = True
                    Worksheets("Übersicht").Protect , AllowFiltering:=True, AllowFormattingRows:=True, AllowFormattingColumns:=True
                    
                Else
                    If Worksheets("Übersicht").Range("C" & CStr(TR)) = "" Then
                        For Each objWorksheet In ThisWorkbook.Worksheets
                            If objWorksheet.Name <> CStr(TR - 7) Then
                                Worksheets("Übersicht").Unprotect
                                Worksheets("Übersicht").Columns("A:B").Locked = False
                                Worksheets("Übersicht").Range("A" & CStr(TR)) = ""
                                Worksheets("Übersicht").Range("B" & CStr(TR)) = ""
                                Worksheets("Übersicht").Columns("A:B").Locked = True
                                Worksheets("Übersicht").Protect , AllowFiltering:=True, AllowFormattingRows:=True, AllowFormattingColumns:=True
                            End If
                        Next
                    End If
                End If
            End If
        End If
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: Felder leeren wenn
04.03.2021 12:55:08
Christoph
Hallo,
funktioniert leider auch nicht. Er löscht mir die Spalte A und B Reihe "TR" nicht.

AW: Felder leeren wenn
04.03.2021 13:00:20
Nepumuk
Hallo Christoph,
lade eine Mustermappe hoch und gib mir eine Anleitung was ich zu tun habe und welches Ergebnis du erwartest. Sonst wird das nichts.
Gruß
Nepumuk

AW: Felder leeren wenn
04.03.2021 16:29:46
Christoph
Hallo Nepumuk,
vielen Dank für deine Hilfe, habe mir etwas anderes und effektiveres Überlegt.
Vielleicht könntest du mir hierzu weiterhelfen:
Ich möchte, dass sobald ein Tabellenblatt, welche alle den Namen "1", "2", usw..., gelöscht wird, in einem Tabellenblatt mit dem Namen "Übersicht" die Zelleninhalte der Zeile der Nummer des Tabellenblattes + 7 gelöscht wird.
Bedeutet, löscht man das Tabellenblatt mit dem Namen 3, dann wird im Tabellenblatt "Übersicht" bei Zeile 10 jeder Zelleninhalt geleert.
Wie würde so etwas aussehen?
Gruß Christoph
Anzeige

266 Forumthreads zu ähnlichen Themen

Bitte um Excel Hilfe / Wenn & Leere Zellen
Hans

Hallo Leute,
ich hoffe mir kann hier jemand helfen, da ich vergeblich versucht habe dahinter zu kommen.
Folgendes, ich habe eine Arbeitszeitübersicht in der ich die Arbeitszeit ausrechnen will und der Übersichtlichkeit wegen an Tagen an denen ich nicht arbeite die Zelle leer bleibt.
02.09.2008 15:53:00
Thread-ID: 1006840
7 Beiträge
Anzeige
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Warum leere Zelle "" >0 ???
Simon

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
15.09.2008 10:08:00
Thread-ID: 1009683
13 Beiträge
Anzeige
Wenn Range("O10:O16") leer ist
Heinz

Hallo Leute
Habe mit meinem Makro in der Zeile
'If Sheets("Eingabe").Range("O10:O16").Value = "" Then
'MsgBox "Kein Gewicht eingegeben"
'Exit Sub
'End If
Ein Problem.
Ich möchte wenn in O10 bis O16 kein Eintrag gemacht wurde,das dann die MsgBox startet.
Wenn aber...
31.12.2008 16:19:40
Thread-ID: 1036170
3 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
Hilfe Format "-" statt Null ("0")
RALF

Tach xl-Gemeinde,
kann mir bitte jemand sagen, wie xl das Format einzustellen ist, dass ich NUR
- Zahlen, ohne Komma mit Punkt als Tausendertrennung (also #.##0)
- wenn der Wert Null ist, dann soll ein "-" angezeigt werdn
Das Standardformat, das über den Symbolleisteneintrag For...
12.01.2009 15:25:00
Thread-ID: 1038894
5 Beiträge
0 entfernen, sprich leere Zelle
Bernhard

Hallo,
ich habe ein kleines Problem. Wenn ich z.B. zwei Zelleninhalte addiere und beide Zellen sind leer, spricht nicht 0 sonder leer, bekomme ich als Ergebnis ebenfalls eine 0. Ich möchte aber, dass diese Zellen ebenfall nicht darstellt. Ich habe bisher dann die "" Stringausgabe gewählt. =...
24.01.2009 12:22:54
Thread-ID: 1043326
6 Beiträge
Zählenwenns... Leere Zelle
UweD

Hallo
Ich habe 2 Tabellen, wo (fast) täglich 1. Produktionsrückstände und 2. Fehler aufgelistet sind.
Es kommt vor, daß eine Tabelle mal an einem Tag nicht abgefragt und gefüllt wird.
In der Zusammenfassung wird dieser Tag dann mit 0 gewertet. Wie stelle ich es an, daß an diesem Tag...
13.02.2009 10:55:00
Thread-ID: 1050400
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
6
4
5
12
4
2
3
4
5
4
9
23
4
4
6
9
11
7
9
1
3
3
10
2
3