Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1716to1720
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
1716to1720
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA, kopieren, Zeilen ohne Werte aber mit Formeln überspringen

VBA, kopieren, Zeilen ohne Werte aber mit Formeln überspringen
26.10.2019 15:10:59
Arek
Hallo Experten,
habe ein Projekt am Start welches ich ohne großes Excel wissen gestartet habe und versuche schritt um schritt voranzubringen.
Die vorhandenen Daten werden mit Datum abgeglichen (=Heute) und wenn alle Bedingungen wahr sind, werden die Daten mit diesen Formeln
Zelle(C41) =WENN(UND($C$36=H5;UND(S5="E-Mail";UND($F$36=G5;UND($H$36="Ja"))));D5;"")
Zelle(D41) =WENN($C$41="";"";E5) bis J41 und dann das gleiche wieder bei Zelle C42 usw.
unterhalb der „original“ Daten (aktuell stehen die Daten in Zellen D5 bis S24, später werden es deutlich über 1000 Zeilen)) übernommen.
Es entstehen jetzt aber viele Lücken, wenn Bedingungen nicht zutreffen.
Ich wollte jetzt dieses Makros welchen ich hier gefunden habe umbauen (Nur Zeilen mit bestimmtem Inhalt kopieren). 
Sub Filtern()
Dim wks As Worksheet
Dim rng As Range
Dim iRow As Integer, iRowT As Integer
Application.ScreenUpdating = False
Set wks = Worksheets("Tabelle2")
Set rng = Range("A1").CurrentRegion
rng.Rows(1).Copy wks.Range("A1")
iRow = 2
iRowT = 1
Do Until IsEmpty(Cells(iRow, 1))
If WorksheetFunction.CountIf(rng.Rows(iRow), "vb0") > 0 Then
iRowT = iRowT + 1
rng.Rows(iRow).Copy wks.Cells(iRowT, 1)
End If
iRow = iRow + 1
Loop
wks.Columns.AutoFit
Application.CutCopyMode = False
Application.ScreenUpdating = False
End Sub
Es müsste umgebaut werden das es folgendes macht:
Überprüft ob in C41 ein Wert mit SL anfängt und wenn zutrifft die Zellen C41 bis J41 und Zelle O41 kopiert in eine zweite Tabelle ab Zelle B22. Es sollte die Möglichkeit haben Variabel nach unten zu überprüfen ob in Zellen C42,43,44 usw. der Wert SL vorhanden ist und diese dann in die neue Tabelle zu kopieren.
Ich möchte erstmal ein Grundaufbau haben und dann die nächsten Schritte machen.
Kann mir jemand Hilfe geben?
AW: VBA, kopieren, Zeilen ohne Werte aber mit Formeln überspringen
26.10.2019 16:41:36
onur
"Ich wollte jetzt dieses Makros welchen ich hier gefunden habe umbauen" - Blödsinn, bloss weil du es gewohnt bist, Codes vom Makrorecorder "umzubauen" statt selber zu programmieren, verlang das nicht von Anderen, weil dein irgendwo im Netz gefundener Code zu 90% unbrauchbar für dein Anliegen ist.
"Ich möchte erstmal ein Grundaufbau haben und dann die nächsten Schritte machen." - ich bezweifle, dass du das ohne Hilfe hinbekommen würdest.
AW: VBA, kopieren, Zeilen ohne Werte aber mit Formeln überspringen
26.10.2019 17:38:44
Arek
Hallo onur, nach suchen bin ich auf diesen link gekommen der in die Richtung ging, in die ich glaube bräuchte. Danke dir aber auch wenn ich schon zu der älteren Generation gehöre muss ich mir keine Unterstellungen bieten auch wenn, ich lasse es lieber.
https://www.herber.de/mailing/Nur_Zeilen_mit_bestimmtem_Inhalt_kopieren.htm
Trotzdem hoffe ich weiter auf Hilfe
Anzeige
AW: VBA, kopieren, Zeilen ohne Werte aber mit Formeln überspringen
26.10.2019 17:45:23
onur
Das war wirklich nicht böse gemeint, ich wollte dich nur darauf hinweisen, dass der Code dafür nicht viel taugt.
Mit Grundaufbau alleine ist dir auch nicht geholfen, da du es nicht alleine hinkriegen würdest, deswegen solltest du:
A) Die Datei (oder Beispielsdatei) posten, wo man auch sehern kann, wie es vorher aussieht und nachher aussehen soll.
B) Das Ganze Problem erläutern - also auch "die nächsten Schritte".
AW: VBA, kopieren, Zeilen ohne Werte aber mit Formeln überspringen
26.10.2019 19:30:15
Arek
Die Idee ist, wenn Heute minus Soll Date kleiner 30 Tage (dann 20, 10 usw.) soll eine Benachrichtigung rausgeschickt werden (wie hier schon Beispiele mit Vorlagen zum Geburtstag gefunden).
Habe die Daten jetzt nach BA verschoben damit ich BA:BA usw. verwenden kann. Das Makro soll die Daten von BA:BM wenn vorhanden, von Übersicht nach E-Mail kopieren und die „leeren“ ignorieren bzw. die mit SLxxxxx erkennen und kopieren. Wie Variabel/gut lösbar das am Ende ist weiß ich nicht und hängt wohl von der Mithilfe ab. Vielleicht könnte man das direkt ohne diese Hilfsspalte abfangen aber dafür habe ich keine Ahnung von Programmieren.
Es geht vor allem um eine Art Starthilfe welche ich dann anpassen kann. Das alles befindet sich noch in einem sehr frühen Stadium.
https://www.herber.de/bbs/user/132779.xlsm
Anzeige
AW: VBA, kopieren, Zeilen ohne Werte aber mit Formeln überspringen
27.10.2019 08:58:48
Werner
Hallo Arek,
teste mal: 
Option Explicit
Sub Tabelle_Kopieren_nach_E_Mail()
Dim loLetzte As Long
Application.ScreenUpdating = False
If WorksheetFunction.CountIf(Worksheets("Übersicht").Columns("D"), "SL*") > 0 Then
If Worksheets("Übersicht").Range("H36") = "Ja" Then
With Worksheets("E-Mail")
loLetzte = .Columns(2).Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, _
searchdirection:=xlPrevious).Row
If loLetzte > 21 Then .Range(.Cells(22, "B"), .Cells(loLetzte, "H")).ClearContents
End With
With Worksheets("Übersicht").ListObjects("Tabelle1")
If .AutoFilter Is Nothing Then .Range.AutoFilter
.Range.AutoFilter Field:=2, Criteria1:="=SL*", Operator:=xlAnd
.Range.AutoFilter Field:=5, Criteria1:=Worksheets("Übersicht").Range("F36")
.Range.AutoFilter Field:=6, Criteria1:=Worksheets("Übersicht").Range("C36")
.Range.AutoFilter Field:=13, Criteria1:="E-Mail"
If .AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Cells.Count > 1  _
Then
With .AutoFilter.Range
Union(.Offset(1).Resize(.Rows.Count - 1).Columns("B:D"), _
.Offset(1).Resize(.Rows.Count - 1).Columns("G"), _
.Offset(1).Resize(.Rows.Count - 1).Columns("I:J")).Copy
Worksheets("E-Mail").Range("B22").PasteSpecial Paste:=xlPasteValues
.Offset(1).Resize(.Rows.Count - 1).Columns("H").Copy
Worksheets("E-Mail").Range("H22").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
If Not .AutoFilter Is Nothing Then .AutoFilter.ShowAllData
End With
End If
End If
End Sub
Deine "Hilfstabelle" in BA:BM brauchst du jetzt nicht mehr - kannst du löschen. Die Daten werden aus der Haupttabelle im Blatt "Übersicht" herausgefiltert und dann ins Blatt "E-Mail" kopiert.
Achtung: In Spalte D im Blatt "Übersicht" dürfen unterhalb deiner eigentlichen Datensätze keine weiteren Daten stehen. Dort ermittle ich im Makro die letzte belegte Zeile von unten nach oben.
Gruß Werner
Anzeige
AW: VBA, kopieren, Zeilen ohne Werte aber mit Formeln überspringen
27.10.2019 10:19:45
Arek
Hallo Werner,
ich selbst habe aktuell mit dieser Formel experimentiert
{=WENN(ZEILE(A1)>ANZAHL2(A:A);"";INDEX(A:A;KKLEINSTE(WENN(NICHT(ISTLEER(A$1:A$100));ZEILE($1:$100) );ZEILEN($1:1)))) }
Muss aber gerade tief Luft holen und sage WOW :) danke dir für die Hilfe und Idee
AW: VBA, kopieren, Zeilen ohne Werte aber mit Formeln überspringen
27.10.2019 15:46:52
Arek
Hallo Herbert und Community,
ich habe verstanden warum du es so gebaut hast und was es schritt für schritt macht. Bin aber mit dem Umbau ohne Erfahrungen kläglich gescheitert.
Bin dabei mir Youtube Video anzuschauen mit VBA für Anfängen und versuche es zu verstehen und nachzubauen.
Zu meinem aktuellen Problem: könnte bitte jemand dieses Makro so anpassen das, wenn im „Benachrichtigungen“ nein gewählt ist, trotzdem das Makro die Daten, nach E-Mail kopiert.
Habe mir die Variablen angepasst, das die Auswahl jetzt im E-Mail Blatt stattfindet.
Habe das von mir angepasste Sheet hochgeladen.
https://www.herber.de/bbs/user/132797.xlsm
Danke
Ich selbst möchte dann erstmals einzubauen, wenn keine Treffer (SL*) dann soll ein Test ala keine Daten gefunden erscheint. Ich hoffe die Videos bringen was :)
Anzeige
AW: VBA, kopieren, Zeilen ohne Werte aber mit Formeln überspringen
27.10.2019 20:34:04
Werner
Hallo,
ich habe jetzt zwar keine Ahnung wer Herbert ist....
Aber teste das mal: 
Option Explicit
Sub Tabelle_Kopieren_nach_E_Mail()
Dim loLetzte As Long
Application.ScreenUpdating = False
Sheets("Übersicht").Select
Range("A1").Select
'Wenn in Übersicht D SL erkannt wird dann nächster Schritt sonst endif
If WorksheetFunction.CountIf(Worksheets("Übersicht").Columns("D"), "SL*") > 0 Then
With Worksheets("E-Mail")
loLetzte = .Columns(2).Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, _
searchdirection:=xlPrevious).Row
If loLetzte > 21 Then .Range(.Cells(22, "B"), .Cells(loLetzte, "H")).ClearContents
End With
With Worksheets("Übersicht").ListObjects("Tabelle1")
If .AutoFilter Is Nothing Then .Range.AutoFilter
.Range.AutoFilter Field:=2, Criteria1:="=SL*", Operator:=xlAnd
'Abteilung auswählen
.Range.AutoFilter Field:=5, Criteria1:=Worksheets("E-Mail").Range("E2")
'Name auswählen
.Range.AutoFilter Field:=6, Criteria1:=Worksheets("E-Mail").Range("D2")
'Benachrichtigen auswählen
If Worksheets("E-Mail").Range("F2") = "Ja" Then
.Range.AutoFilter Field:=13, Criteria1:="E-Mail"
End If
If .AutoFilter.Range.Columns(2).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
With .AutoFilter.Range
Union(.Offset(1).Resize(.Rows.Count - 1).Columns("B:D"), _
.Offset(1).Resize(.Rows.Count - 1).Columns("G"), _
.Offset(1).Resize(.Rows.Count - 1).Columns("I:J")).Copy
Worksheets("E-Mail").Range("B22").PasteSpecial Paste:=xlPasteValues
.Offset(1).Resize(.Rows.Count - 1).Columns("H").Copy
Worksheets("E-Mail").Range("H22").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
Else
MsgBox "Mit den gewählten Einstellungen gibt es kein Ergebnis."
End If
If Not .AutoFilter Is Nothing Then .AutoFilter.ShowAllData
End With
Else
MsgBox "Es sind keine Inventarnummern beginnend mi SL vorhanden."
End If
End Sub
Gruß Werner
Anzeige
AW: VBA, kopieren, Zeilen ohne Werte aber mit Formeln überspringen
29.10.2019 15:54:08
Arek
Hallo Werner,
danke und Mea culpa keine Ahnung wie ich auf "Herbert" kam.
Gerne u. Danke für die Rückmeldung. o.w.T.
29.10.2019 16:07:09
Werner

344 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Anzeige
Formel mit VBA kopieren
Hartmut_M

Hallo, ich möchte mit VBA aus einem Bereich die Formeln in einen anderen Bereich kopieren.
Nutze hierfür folgenden code, wobei die variablen spalte und spalteneu für die Spaltennummern stehen:
Range(Cells(5, spalte), Cells(130, spalte)).Select
Selection.AutoFill Destination:=Range(C...
12.12.2008 10:02:26
Thread-ID: 1032307
3 Beiträge
nicht die Formel mitkopieren
TomTom

Hi,
Ich habe in meinem Sheet eine Funktion, mit der will ich verschiedene Zeilen kopieren:
MeineQuelle.Rows(lngZeile).Copy Destination:=MeinZiel.Cells(lngZeile, 1)
Wenn ich nun in einer gefundenen Zeile, die kopiert wird, irgendwo eine Formel drin habe, (die sich auf irgend was bezi...
30.01.2009 11:15:07
Thread-ID: 1045327
8 Beiträge
Daten per Makro kopieren ohne Formeln
Kai

Hi,
ich möchte Zeilen innerhalb einer Mappe von einem Tabellenblatt ins ander kopieren. Meine Daten stehen in der Tabellen "IMPORT" (Zeilen 10:100) und sollen nach "DATENBESTAND" ab Zeile 50 reinkopiert werden.
Das kopieren alleine wäre sicher nicht das Problem, aber in meinem Tabellenb...
05.03.2009 13:05:31
Thread-ID: 1056794
3 Beiträge
Formel runterkopieren und bestimmte Zellen ausl.
Tom

Hallo zusammen,
vielleicht kann mir jemand bei folgendem Problem helfen:
In Zelle C1 steht eine Formel die ich ab und zu verändern muss, nun möchte ich diese Formel mit Doppelklick runterkopieren, in der Spalte C sind aber bestimmte Zellen, die bestimmte Werte enthalten und die dürfen n...
10.05.2009 18:13:07
Thread-ID: 1074184
6 Beiträge
einzelne Zellen mit Formeln sperren
natka

Hallo Ihr Lieben Excel Begeisterte,
hättet Ihr bitte eine Tipp für mich, wie ich einzelne Zellen in einenm Tabellenblatt im Excel für Dritte sperren kann. Sie sollen zwar das Ergebnis seheh, aber nicht anklicken können. Damit meine tole Formel keinen Schaden nimmt.
Danke
natka
15.05.2009 14:20:56
Thread-ID: 1075486
4 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
7
4
2
5
6
2
7
2
5
3
3
4
6
4
3
4
2
2
3
2
2
7
3
2
6