Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1512to1516
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
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Zeile einfügen / bestimmte Zeilen löschen

VBA-Zeile einfügen / bestimmte Zeilen löschen
09.09.2016 12:34:47
Berndt
Hallo Freunde,
folgendes Problem, welches mich beschäftigt:
Button "neue Aufgabenzeile einfügen":
- Das Makro soll unterhalb der Ersten Tabelle eine neue Apalte einfügen (mit der Formatierung von obiger Zeile) und die 5 SummenFormeln aktualisieren
Button "Tabellenblatt bereinigen":
- Das Makro soll alle Zeilen mit Status "erledigt" löschen
- bevor diese gelöscht werden soll noch ein Warnhinweis "Wollen Sie die erledigten Aufgaben wirklich löschen" mit OK und Abbrechen aufklappen
Ist das Umsetzbar?
Hier die Bsp.Datei
https://www.herber.de/bbs/user/108094.xlsx
Ich danke euch jetzt schon mal für eure Hilfe.
VG Berndt

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Feedbacke in anderen Beiträgen?
09.09.2016 13:17:08
Berndt
Danke.
Den Code für "Tabellenblatt bereinigen" habe ich bereits selber definiert.
Private Sub CommandButton1_Click()
Dim i As Long
Dim lbMsg As Byte
'  Application.ScreenUpdating = False
lbMsg = MsgBox("Wollen Sie erledigte Aufgaben wirklich löschen?", vbYesNo, "Warnhinweis")
If lbMsg = vbYes Then
For i = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
If Cells(i, 3) = "erledigt" Then Rows(i).Delete
Next i
End If
'  Application.ScreenUpdating = True
End Sub
Für ersteren Button benötige ich dennoch Hilfe. 
Sub Makro3()
Dim letztezeile As Long
letztezeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Rows(letztezeile + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Damit wird nämlich die letzte Zeile von Spalte B gesucht.
Da ich aber 3 Tabellen untereinander habe fügt es mir eine neue Zeile nach der 3. Tabelle, statt nach der 1. Tabelle ein.
VG Berndt
Anzeige
AW: Feedbacke in anderen Beiträgen?
09.09.2016 13:39:17
UweD
Hallo
ungetestet..
Sub neue_Zeile()
Dim EZ As Double
EZ = Evaluate("=MIN(IF(B8:B65536="""",ROW(8:65536)))")
Rows(EZ).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D" & EZ + 1 & ":H" & EZ + 1).FormulaR1C1 = "=SUM(R8C:R[-1]C)"
End Sub

VBA-Zeile einfügen / bestimmte Zeilen löschen
09.09.2016 13:44:30
Berndt
Ganz stark. Funktioniert Klasse.
Nur die obige (Zeile oben drüber) Formatierung hätte ich gern noch integriert. Geht das?
VG Berndt
AW: VBA-Zeile einfügen / bestimmte Zeilen löschen
09.09.2016 13:54:13
UweD
Hallo nochmal
komischerweise wird das Format mitübertragen, wenn ich den Parameter hinten weglasse.
Versuch das mal. 

Sub neue_Zeile()
Dim EZ As Double
EZ = Evaluate("=MIN(IF(B8:B65536="""",ROW(8:65536)))")
Rows(EZ).Insert Shift:=xlDown
Range("D" & EZ + 1 & ":H" & EZ + 1).FormulaR1C1 = "=SUM(R8C:R[-1]C)"
End Sub

sonst ergänze das noch so

Sub neue_Zeile()
Dim EZ As Double
EZ = Evaluate("=MIN(IF(B8:B65536="""",ROW(8:65536)))")
Rows(EZ).Insert Shift:=xlDown
Rows(EZ - 1).Copy
Rows(EZ).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Range("D" & EZ + 1 & ":H" & EZ + 1).FormulaR1C1 = "=SUM(R8C:R[-1]C)"
End Sub
Gruß UweD
Anzeige
AW: VBA-Zeile einfügen / bestimmte Zeilen löschen
09.09.2016 14:02:22
Berndt
Danke UweD.
Ich musste deinen zweiten Vorschlag mit dem ergänzen nehmen.
Jetzt läuft es rund.
Ich habe eben versucht den Code anzupassen, um das selbe Spiel für Problemspeicher und Themenspeicher zu machen. Doch bei diesen 2 Tabellen kann ich nicht einfach einen Zellbezug herstellen, da das ja darauf ankommt wieviele Felder man in der 1.Tabelle eingefügt hat.
AW: VBA-Zeile einfügen / bestimmte Zeilen löschen
09.09.2016 14:34:28
UweD
Z.B. so?

Sub neue_Zeile()
Dim EZ As Double, AB As Double
EZ = UF_neueZeile(8)
Range("D" & EZ + 1 & ":H" & EZ + 1).FormulaR1C1 = "=SUM(R8C:R[-1]C)"
EZ = UF_neueZeile(EZ + 7)
EZ = UF_neueZeile(EZ + 3)
End Sub
Function UF_neueZeile(AB)
Dim EZ As Double
EZ = Evaluate("=MIN(IF(B" & AB & ":B65536="""",ROW(" & AB & ":65536)))")
Rows(EZ).Insert Shift:=xlDown
Rows(EZ - 1).Copy
Rows(EZ).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
UF_neueZeile = EZ
End Function

Anzeige
AW: VBA-Zeile einfügen / bestimmte Zeilen löschen
12.09.2016 07:28:21
Berndt
Dein Vorschlag funktioniert super.
Was brauch es, damit man vorher gefragt wird, wo man eine Zeile eingefügt haben möchte?(Aufgabe, Problem, Themenspeicher)
VG Berndt
AW: VBA-Zeile einfügen / bestimmte Zeilen löschen
12.09.2016 09:26:19
UweD
das könntest du so machen..
Sub neue_Zeile()
    Dim EZ As Double, Ab As Double
    Dim WoEinf As String
    WoEinf = InputBox("(A)ufgabe" & vbLf & "(P)roblem," & vbLf & "(T)hemenspeicher" _
        & vbLf & vbLf, "Wo einfügen?", "A")
    Select Case UCase(WoEinf)
        Case "A"
            EZ = UF_neueZeile(8, True)
            Range("D" & EZ & ":H" & EZ).FormulaR1C1 = "=SUM(R8C:R[-1]C)"
        Case "P"
            EZ = UF_neueZeile(8, False)
            EZ = UF_neueZeile(EZ + 6, True)
            
        Case "T"
            EZ = UF_neueZeile(8, False)
            EZ = UF_neueZeile(EZ + 6, False)
            EZ = UF_neueZeile(EZ + 2, True)
        Case Else
            MsgBox "Ungültig"
    End Select
End Sub
Function UF_neueZeile(Ab, Ja As Boolean)
    Dim EZ As Double
    EZ = Evaluate("=MIN(IF(B" & Ab & ":B65536="""",ROW(" & Ab & ":65536)))")
    If Ja Then
        Rows(EZ).Insert Shift:=xlDown
        Rows(EZ - 1).Copy
        Rows(EZ).PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
        EZ = EZ + 1
    End If
    UF_neueZeile = EZ
End Function


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0
Gruß UweD
Anzeige
AW: VBA-Zeile einfügen / bestimmte Zeilen löschen
13.09.2016 14:14:59
Berndt
Vielen Vielen Dank. Auch das funktioniert. Ich teste mal ein bisschen.
VG Berndt
AW: Super Antwort. o.w.T.
09.09.2016 14:18:49
Werner

365 Forumthreads zu ähnlichen Themen

wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Zeilen löschen wenn ...
Marion65

Hi zusammen,
habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
Gruß Marion
https://www.herber.de/bbs/user/62707.xls
24.06.2009 04:57:02
Thread-ID: 1083974
8 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge
Zeile löschen , wenn doppelt, Makro ?
walli

Hallo zusammen,
hatte vorhin geschrieben, leider nicht mehr im Forum.
Ich habe eine große Tabelle, ab Zeile 6 von Spalte A bis M
soll diese kontr. werden ob eine Zeile doppelt (gleich) ist und
diese Doppelte dann von A-M löschen.
Das Ende der Tabelle kann von A6 bis 500 ode...
24.06.2009 12:45:17
Thread-ID: 1084084
4 Beiträge
Zeilen löschen wenn ...
Marion65

Hallo zusammen,
habe mein Problem in der Beispieldatei beschrieben. Für Eure Hilfe wäre ich Dankbar.
Gruß Marion
https://www.herber.de/bbs/user/62728.xls
Ps. Franz hatte mir schon ein Makro gebastelt, doch leider funktioniert es nicht richtig.
Sub BegriffSuchenZeilenLoesc...
24.06.2009 20:27:47
Thread-ID: 1084196
8 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton 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
7
4
5
7
2
3
7
4
3
7
9
4
3
6
10
8
4
7
4
8
15
9
11
3
8