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

löschen und einfügen

löschen und einfügen
30.08.2005 07:51:16
frank
hallo,
ich habe hier mal eine kleine tabelle gebastelt die so ungefähr mein porblem darstellt: https://www.herber.de/bbs/user/26168.xls
nun möchte ich folgendes erreichen was ich aber nicht hinbekomme weil ich nicht weiß wie ich die if abfrage per vba lösen soll...
also eine zeile soll gelöscht werden wenn in zelle f ja eingetragen wird und die formatierung der oberen zeile soll immer als letzte wieder eingefügt werden
(ich weiß nicht ob das was ausmacht wenn in spalte e, g und h noch eine bedingte formatierung ist)
möglich wäre auch das ja/nein in zelle f durch eine checkbox zu ersetzen nur muss diese dann auch kopiert und eingefügt werden...
ich hoffe mal ich habe mich verständlich genug ausgedrückt, wenn nicht einfach fragen
vielen dank und gruß
frank

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: löschen und einfügen
30.08.2005 08:06:39
Reinhard
Hi Frank,
Alt+F11,Doppelklick auf Tabelle1, Code einnfügen, Editor schliessen.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Or Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "Ja" Then Rows(Target.Row).Delete
End Sub

......und die formatierung der oberen zeile soll immer als letzte wieder eingefügt werden....
Verstehe ich nicvht was damit gemeint ist.
Gruß
Reinhard
AW: löschen und einfügen
30.08.2005 08:18:01
frank
hallo reinhard,
erstmal danke für deine hilfe das löschen passiert jetzt über:
Public 

Sub i()
Dim i As Long
For i = Range("F65536").End(xlUp).Row To 1 Step -1
On Error Resume Next
If WorksheetFunction.CountIf(Cells(i, 6), "JA") > 0 Then Cells(i, 6).EntireRow.Delete
Next
End Sub

zu deiner frage:
in der letzten zeile soll praktisch ein leerer datensatz stehen (gleiche formatierungen wie die restlichen zeilen)
schönen gruß
frank
Anzeige
AW: löschen und einfügen
30.08.2005 08:27:52
TobiM4
Hier mal mein Code müsste eigentlich funzen

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Spalte, Zeile, letzteZeile, i As Byte
Spalte = Target.Column
Zeile = Target.Row
If Spalte = 6 And Range("F1").Value > 0 Then
Rows(Zeile).Select
Selection.Delete Shift:=xlUp
For i = 3 To 100
If Cells(i, 6).Value <> "Ja" And Cells(i, 6).Value <> "Nein" Then
letzteZeile = i
i = 100
End If
Next i
Range("A3:H3").Select
Selection.Copy
Range(Cells(letzteZeile, 1), Cells(letzteZeile, 8)).Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Target.Select
End If
End Sub

Gruß TobiM4
Anzeige
AW: löschen und einfügen
30.08.2005 08:48:12
frank
hallo,
irgentwas stimmt da nicht ganz weil das makro löscht zwar wenn ich einen vorhandenen datensatz auf ja setze fügt aber nicht immer einen neuen ein bzw. wenn ich in einen neuen datensatz entweder ja oder nein schreibe wird dieser automatisch wieder gelöscht
gruß frank
AW: löschen und einfügen
30.08.2005 09:23:47
TobiM4
Hi Frank
habe dein Problem nicht ganz verstanden, aber ich habe auch jetzt leider keine Zeit mehr mir das noch mal genauer anzusehen.
Könnte man dein Problem auch mit einem Button lösen, der einen Datensatz anhängt, und damit das Löschen und das einfügen von einander trennt, oder muß nach jedem Löschen zwangsläufig ein datensatz angefügt werden. Ich denke eher nicht oder ? Ich werde das dann mal im laufe des tages zusammenstricken.
TobiM4
Anzeige
leeren datensatz am ende anfügen
30.08.2005 09:46:37
frank
hallo,
also ich habe die mappe jetzt nochmals abgeändert und das mit dem löschen wird über einen commandbutton gemacht... jetzt fehlt mir nur die automatische erstellung eines leeren datensatz (mit den formatierungen der vorherigen) in der letzten zeile
https://www.herber.de/bbs/user/26171.xls
AW: leeren datensatz am ende anfügen
30.08.2005 14:53:22
TobiM4
Hi frank
Problem gelöst ?
oder soll ich noch mal etwas basteln ?
Wenn ja, dann habe ich das jetzt so verstanden, dass es einen zweiten Button geben soll, mit dem man am Ende der Liste eine Zeile mit der Formatierung der ersten Zeile einfügen kann.
TobiM4
Anzeige
AW: leeren datensatz am ende anfügen
31.08.2005 07:48:41
frank
hallo tobi,
wenn du mir den button für die letzte zeile basteln könntest bzw. das makro wäre ich dir sehr dankbar...
schöne grüße
frank
AW: leeren datensatz am ende anfügen
31.08.2005 08:21:03
frank
hallo tobi,
vielen dank erstmal für deine hilfe jetzt muss ich nur noch die gültigkeitsliste bei ja/nein einfügen und dann ist alles geregelt aber ich denke das bekomme ich durch paste special xlvalidations oder so auch hin...
gruß frank
noch eine frage
31.08.2005 08:53:55
frank
was mache ich wenn alle zeilen ja aufweisen und ich auf löschen klicke... wie kann ich verhindern, dass bei so einem fall sämtliche formatierungen usw. verloren gehen?
schöne grüße
frank
Anzeige
AW: noch eine frage
31.08.2005 10:48:17
TobiM4
Hm tja
Da muß wohl der Code noch ergänzt werden, der diesen Fall berücksichtigt.
Das funktioniert wohl nach folgendem System.
Wenn die letzte zu löschende Zeile die Zeile 2 ist, dann nur den Inhalt löschen und nicht die ganze Zeile.
Kannst ja mal versuchen. habe leider keine Zeit.
TobiM4

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge

Links zu Excel-Dialogen

CheckBox CommandButton

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