Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Neue Zeile einfügen / Inhalte überprüfen und löschen
zurück: Laufzeitfehler '424' bei Löschung eines Excelblattes weiter: Kombinationsfeld bei klick öffnen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
krabber
Wasserträger


Verfasst am:
08. Okt 2008, 13:51
Rufname: matze, krabb, audio,...
Wohnort: Reutlingen/Heilbronn

Neue Zeile einfügen / Inhalte überprüfen und löschen - Neue Zeile einfügen / Inhalte überprüfen und löschen

Nach oben
       Version: Office 2003

Hallo Leute,
ich habe mal wieder ein Problem.
Zur Erläuterung: Ich habe eine Zeile in meinem Excel-Sheet markiert und diese Zeile1 benannt. In den Zellen dieser Zeile stehen teilweise Formeln drin. Jetzt möchte ich über einen Button diese Zeile kopieren und wieder einfügen, damit ich, wenn ich mehrere dieser Zeilen brauch einfach nur den Button drücken muss. Dabei sollen Daten, die schon eingetragen wurden gelöscht werden (aber nicht die Formeln). Das klappt soweit ganz gut mit meinem Coding.
Nur wenn eben noch nichts in die Zeile eintragen wurde, läuft es auf Fehler. Ich müsste also irgendwie eine Abfrage einbauen die überprüft ob schon was drin steht und dann eben löscht oder nicht... habt ihr da irgendwie ne Lösung?

Ich hab das mal selbst mit nem If probiert indem ich die leere zeile irgendwo hin kopiert hab und dann verglichen hab (siehe coding) aber da kommt "typen unverträglich" Sad

Code:

    Application.Goto Reference:="Zeile1"
    Selection.Copy
    Selection.Insert
    'If Range("Zeile1") = Range("Zeile2") Then
    Selection.Cells.SpecialCells(xlCellTypeConstants).ClearContents
    'End If
    Range("B23").Select

_________________
Ich kann alles - nur nichts richtig Very Happy
Kl@vier
Excel-Kenner, etwas VBA


Verfasst am:
09. Okt 2008, 12:43
Rufname:
Wohnort: Schärding (A)


AW: Neue Zeile einfügen / Inhalte überprüfen und löschen - AW: Neue Zeile einfügen / Inhalte überprüfen und löschen

Nach oben
       Version: Office 2003

Hallo Krabber,

ganz schlau bin ich aus deiner Angabe nicht geworden, vermute aber, dass unten stehender Code dir helfen könnte. Kopiere ihn hinter das Tabellenblatt, wo die ganze Aktion stattfinden soll.

Code:

Sub ZweiFixeBereicheVergleichen()
Dim Zeile1 As Range
Dim Zeile2 As Range
Dim Zelle1 As Range
Dim Zelle2 As Range

'Ich setze voraus, dass die beiden Bereiche schon benannt sind
Set Zeile1 = Range("Zeile1")
Set Zeile2 = Range("Zeile2")

For Each Zelle1 In Zeile1
    For Each Zelle2 In Zeile2
        If Zelle1 <> Zelle2 Then
        MsgBox "Keine Übereinstimmung"
        Exit Sub
        End If
    Next
Next

End Sub

_________________
Gruß - Gerhard

Der Lohn der Geduld ist die Geduld - Rückmeldung finde ich prima!
krabber
Wasserträger


Verfasst am:
09. Okt 2008, 14:34
Rufname: matze, krabb, audio,...
Wohnort: Reutlingen/Heilbronn

Re: AW: Neue Zeile einfügen / Inhalte überprüfen und löschen - Re: AW: Neue Zeile einfügen / Inhalte überprüfen und löschen

Nach oben
       Version: Office 2003

Kl@vier - 09. Okt 2008, 12:43 hat folgendes geschrieben:
Hallo Krabber,

ganz schlau bin ich aus deiner Angabe nicht geworden, vermute aber, dass unten stehender Code dir helfen könnte. Kopiere ihn hinter das Tabellenblatt, wo die ganze Aktion stattfinden soll.


Hallo Bernhard,
danke für deine Antwort. Dein Coding hat mir geholfen es hin zu bekommen.
Da ich ja nur gucken will ob die Zeile mit Werten belegt ist, konnte ich es etwas kürzen.
Code:

    Dim rngEins As Range
    Dim rngZwei As Range
    Set rngEins = Range("ZMA")
    Application.Goto Reference:="ZMA"
    Selection.Copy
    Selection.Insert Shift:=xlDown

    For Each rngZwei In rngEins
    If rngZwei.Value Then
    Selection.Cells.SpecialCells(xlCellTypeConstants).ClearContents
    End If
    Next
    Range("B23").Select

Es stellt sich nur noch das Problem, dass der kopierte Bereich nach der Ausführung des Codings immernoch markiert ist (Diese gestrichelten Linien drumrum) wenn die If Anweisung nicht ausgeführt wird. Gibts da ne Möglichkeit das einfach aufzuheben?
Danke Smile

_________________
Ich kann alles - nur nichts richtig Very Happy
Gurkenhobel
... Helfer, der öfters auch Hilfe benötigt...


Verfasst am:
09. Okt 2008, 17:21
Rufname: Micha
Wohnort: im westlichen Sachsen

AW: Neue Zeile einfügen / Inhalte überprüfen und löschen - AW: Neue Zeile einfügen / Inhalte überprüfen und löschen

Nach oben
       Version: Office 2003

Als vorletzten Zeile (also vor End Sub) einfach einfügen
Code:
Application.CutCopyMode = False

Das reicht.

_________________
Unser Wissen ist nicht vorhanden, wenn es nicht benutzt wird.
Igor Fjodorowitsch Strawinski (1882-1971)
krabber
Wasserträger


Verfasst am:
29. Okt 2008, 13:09
Rufname: matze, krabb, audio,...
Wohnort: Reutlingen/Heilbronn


Re: AW: Neue Zeile einfügen / Inhalte überprüfen und löschen - Re: AW: Neue Zeile einfügen / Inhalte überprüfen und löschen

Nach oben
       Version: Office 2003

Gurkenhobel - 09. Okt 2008, 16:21 hat folgendes geschrieben:
Als vorletzten Zeile (also vor End Sub) einfach einfügen
Code:
Application.CutCopyMode = False

Das reicht.


oh man... ich sollt doch mal en vba buch lesen...
vielen dank. funktioniert wunderbar Smile!

_________________
Ich kann alles - nur nichts richtig Very Happy
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: zuletzt befüllte Zeile anzeigen 1 michi1234 949 29. März 2005, 13:54
fridgenep zuletzt befüllte Zeile anzeigen
Keine neuen Beiträge Excel Formeln: Wie kann man Nachkommastellen löschen ? 2 Benjamin22 8966 22. März 2005, 15:24
Benjamin22 Wie kann man Nachkommastellen löschen ?
Keine neuen Beiträge Excel Formeln: Formel für Zusammenzählen jeder zweiten Zelle einer Zeile 2 toto_225 814 11. März 2005, 12:04
toto_225 Formel für Zusammenzählen jeder zweiten Zelle einer Zeile
Keine neuen Beiträge Excel Formeln: Inhalte trennen 2 Gast 2454 17. Feb 2005, 14:09
Gast Inhalte trennen
Keine neuen Beiträge Excel Formeln: Wie kann ich Dateiverweis in Formel automatisch einfügen? 1 cb3000 953 18. Jan 2005, 13:00
cb3000 Wie kann ich Dateiverweis in Formel automatisch einfügen?
Keine neuen Beiträge Excel Formeln: Erst Spalte dann wert suchen zeile ausgeben 2 Kai2k 3055 07. Jan 2005, 12:10
Kai2k Erst Spalte dann wert suchen zeile ausgeben
Keine neuen Beiträge Excel Formeln: Bild automatisch - nach dem Namen - einfügen lassen 1 Kottan 1470 27. Dez 2004, 16:15
kraemer Bild automatisch - nach dem Namen - einfügen lassen
Keine neuen Beiträge Excel Formeln: Zeile rot färben, wenn mehrere Bedingungen erfüllt sind 2 Gast 2951 09. Nov 2004, 18:20
Gast Zeile rot färben, wenn mehrere Bedingungen erfüllt sind
Keine neuen Beiträge Excel Formeln: Bestimmter Zeileninhalt in eine andere Zeile kopieren 2 Gast 2585 04. Nov 2004, 14:52
jpx10 Bestimmter Zeileninhalt in eine andere Zeile kopieren
Keine neuen Beiträge Excel Formeln: Leerzeichen in Zelle löschen 3 pkegelking 1807 01. Okt 2004, 11:57
pkegelking Leerzeichen in Zelle löschen
Keine neuen Beiträge Excel Formeln: Stunde 2:00 fix, mehr als 2:00 übertragbar auf neue Zelle 7 Gast 1043 27. Sep 2004, 14:28
steve1da Stunde 2:00 fix, mehr als 2:00 übertragbar auf neue Zelle
Keine neuen Beiträge Excel Formeln: Zelle in bestimmer Zeile finden 12 lhh 2034 15. Sep 2004, 10:21
lhh Zelle in bestimmer Zeile finden
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen