Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1652to1656
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
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt löschen, dann Zellen nach oben kopieren

Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 08:12:21
Simy
Moin zusammen,
ich hoffe, jemand kann mir weiterhelfen.
Ich habe im Bereich A1:A10, C1:C10 und E1:C10 Daten stehen.
Jetzt würde ich gerne über einen Command-Button eine Abfrage öffnen lassen, die abfragt: "Welche Zeile möchten Sie löschen?".
Wenn ich dann 5 bspw. auswähle, dann soll er den Inhalt von A5, C5 und E5 löschen und die darunter liegenden Zellen (A6:A10, etc.) einen nach oben verschieben.
Ganz wichtig ist, dass die Zeile nicht gelöscht werden darf, es soll lediglich der Inhalt gelöscht werden und die darunter liegenden Zellen einen nach oben verschieben.
Kann mir jemand weiterhelfen?
Dankeeeee und viele Grüße
Simy

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 08:24:05
UweD
Hallo
so?
Sub ZeileLöschen()
    Dim RNG As Range, Zeile As Variant
    
    Set RNG = Range("A1:A10,C1:C10,E1:E10")
    
    Zeile = InputBox("Welche Zeile soll gelöscht werden")
    If Not IsNumeric(Zeile) Then
        MsgBox "Falscheingabe"
        Exit Sub
    End If
    
    Intersect(Rows(Zeile), RNG).Delete Shift:=xlUp
End Sub
LG UweD
Anzeige
AW: Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 08:56:04
Simy
Hallo Uwe,
danke für die schnelle Antwort.
Ich glaube ich habe es falsch formuliert. In den Zellen (A5, C5 und E5) sollen die Inhalte gelöscht werden, aber nicht die Zeile gelöscht werden. Anschließend sollen die darunter liegenden Zellen (A6:A10, etc.) kopiert und dann bei A5 eingefügt werden (also alle ausgeschnitten und einen nach oben kopiert werden).
Gibt es dafür eine Lösung?
Danke und LG
Simy
Nachfrage..
18.10.2018 08:59:46
UweD
Was soll mit Zeile 10 geschehen?
bleibt die genauso stehen
Also A9 und A10 wären dann gleich?
AW: Nachfrage..
18.10.2018 09:05:25
Simy
Die Inhalte der Zellen A10, C10 und E10 müsste gelöscht werden.
Also A6:A10, C6:C10 und E6:E10 ausschneiden und entsprechend bei A5, C5 und E5, etc. einfügen.
Das wäre super :-)
Anzeige
AW: Nachfrage..
18.10.2018 09:36:17
UweD
so?
Modul1 
Option Explicit 
 
Sub ZeileLöschen() 
    Dim RNG As Range, TMP As Range, Mmax As Integer, Zeile As Variant 
     
    Set RNG = Range("A1:A10,C1:C10,E1:E10") 
     
    Mmax = RNG.Rows.Count 
     
    Zeile = InputBox("Welche Zeile soll gelöscht werden") 
    If Not IsNumeric(Zeile) Or Zeile <= 0 Or Zeile >= Mmax Then 
        MsgBox "Falscheingabe" 
        Exit Sub 
    End If 
     
    Set TMP = Intersect(Rows(Zeile).Offset(1).Resize(Mmax), RNG) 
     
    'Werte unterhalb Zeile nach oben kopieren 
    TMP.Offset(-1).Value = TMP.Value 
     
    'unterste Zeile leeren 
    Intersect(Rows(Mmax), RNG).ClearContents 
     
     
End Sub

LG UweD
Anzeige
AW: Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 09:32:37
Daniel
hi
probier mal
Sub löschen()
Dim z, s
Dim Spalten
Const Zvon As Long = 1
Const Zbis As Long = 10
Spalten = Array(1, 3, 5)
z = Application.InputBox("Bitte ZeilennNr von " & Zvon & "-" & Zbis & " eingeben", Type:=1)
If z  Zbis Then Exit Sub
If z
Gruß Daniel
AW: Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 10:03:07
Simy
Hallo Daniel,
funktioniert perfekt!! Vielen, vielen Dank :-)))
Eine Kleinigkeit noch. Wo und was müsste ich eingeben, dass er die eingegebene Zeile +2 nimmt. Also wenn ich Zeile 15 eintrage in der Abfrage, dass er dann aber Zeile 17 nimmt?
Vielen Dank.
AW: Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 10:28:10
Daniel
z = z + 2
aber das sollte man auch mit VBA-Basiskenntnissen noch selber hinbekommen.
Gruß Daniel
Anzeige
AW: Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 10:41:12
Simy
Hab mich verklickt, Anfänger wäre richtig gewesen :-)
Wo genau kommt der Befehl z = z +2 hin?
AW: Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 10:59:01
Daniel
Hi
naja, auch als Anfänger darf man selber mitdenken.
an welcher Stelle wäre diese Befehlszeile denn sinnvoll, wenn der Anwender 15 eingibt und im Code aber mit 17 weitergearbeitet werden soll?
Gruß Daniel
AW: Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 11:02:42
Simy
Irgendwo hier :-)
z = Application.InputBox("Bitte Tatnummer eingeben!", Type:=1)
AW: Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 11:03:42
Daniel
naja, da bist du ja schon auf der richtigen Spur.
was wäre denn sinnvoller, davor oder danach?
AW: Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 11:08:58
Simy
Aber so was von danach!!!
AW: Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 11:16:37
Daniel
na dann, viel spass beim Programmieren
AW: Inhalt löschen, dann Zellen nach oben kopieren
18.10.2018 14:40:07
Simy
Funktioniert super.
Vielen Dank für die Nachhilfestunde
Anzeige

309 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige
Formel nach unten...
werner

Hallo zusammen,
wenni ch in Zelle D10 z.B. die Formeln = B10+C10 kann ich diese nach unten in Zelle D11,D12.......ziehen um die Formel zu übernehmen.
Meine Frage ist folgende , geht das auch mit = Tabelle1!C9 ,wenn ich da nach unten ziehe solte sich die Formel auch anpassen d.h Tabelle2...
12.01.2009 20:24:00
Thread-ID: 1039009
4 Beiträge
Formel automatisch nach unten ziehen
Hartwig

Hallo Leute,
Ich habe eine Frage.
In A1 steht ein Wert, in B1 eine Formel.
Gibt es eine Möglichkeit dass sich die Formel von B1 in die
angrenzenden unteren Zellen (B2, B3 usw.) erweitert, wenn die Zellen
A2, A3 usw. mit Werten gefüllt werden?
Danke schon mal für eure Hil...
27.01.2009 11:03:00
Thread-ID: 1044121
7 Beiträge
SVERWEIS springt ungewollt Zeile nach unten
Christoph

Hallo Zusammen,
ich hänge an einem ganz seltsamen Problem und komme nicht dahinter woran es liegen könnte.
Benutze folgenden S-Verweis:
=WENN(SVERWEIS(E22;'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH)=0;"";SVERWEIS(E22; 'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH))...
07.02.2009 18:17:24
Thread-ID: 1048114
3 Beiträge
Spalten ausblenden von - bis
-

Hallo an alle Cracks,
habe eine Beispieldatei angehängt. Ich würde gerne in den Zellen B1 und B2 als Eingabe für die Kalenderwochen definieren. z.B. ich gebe von KW 10 bis KW 15 anschließend werden alle Spalten ausgeblendet nur die sollen angezeigt werden in dem Interval von 10 - 15. Könnt...
20.02.2009 11:23:00
Thread-ID: 1052397
6 Beiträge
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
16
4
2
4
4
3
6
2
5
2
3
3
4
18
1
4
2
1
4
5
3
5
2
5
2