Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalte überprüfen / kopieren

Forumthread: Zelleninhalte überprüfen / kopieren

Zelleninhalte überprüfen / kopieren
10.07.2008 16:15:42
Hamza
Hallo zusammen,
ich stehe wieder mal vor einem Problem. Ich hab in einem Tabellenblatt ("Seriennummer") in den
Zellen A2: IU65536 unterschiedliche Geräte aufgelistet. In der Spalte IU steht das Datum drin
wann diese Geräte fällig sind. Jetzt möchte ich gerne das diese über ein Command Button überprüft und die jenigen die abgelaufen sind in einem neuen Tabellenblatt aufgelistet werden.
Gruß
Hamza

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ist die Spalte IV noch frei und benutzbar? owT
10.07.2008 17:00:55
Chris
.

AW: ist die Spalte IV noch frei und benutzbar? owT
11.07.2008 09:21:10
Hamza
Hallo Chris,
Die Spalte IV ist frei. Die letzte benutzte Spalte ist IU
Gruß
Hamza

AW: ist die Spalte IV noch frei und benutzbar? owT
11.07.2008 10:44:22
Chris
Servus Hamza,
wenn IV frei ist, dann könntest du es so probieren:

Sub wo()
Dim rSuche As Range, rFinde As Range, strErste As String
With Range("IV:IV")
.FormulaR1C1 = "=IF(ISERROR(IF(NOT(DATE(YEAR(RC[-1]),MONTH(RC[-1]),DAY(RC[-1]))) = TRUE,"""" _
,IF(RC[-1] "" Then
rSuche.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
Else
rSuche.EntireRow.Copy Sheets(2).Range("A1")
End If
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address  strErste
Else
MsgBox "Keine Treffer", vbInformation, "Treffer"
End If
Set rSuche = Nothing
Set rFinde = Nothing
End Sub


Hier wird in IV eine Formel eingetragen, die überprüft, ob das Datum das in IU steht kleiner als das heutige ist, wenn ja wird diese Zeile in der anschließenden Suchroutine nach Sheet(2)[anpassen!] kopiert.
Gruß
Chris

Anzeige
AW: ist die Spalte IV noch frei und benutzbar? owT
11.07.2008 14:59:00
Hamza
Hallo Chris,
vielen Dank für deine Hilfe. Klappt wunderbar!
Gruß
Hamza

AW: ist die Spalte IV noch frei und benutzbar? owT
15.07.2008 16:33:00
Hamza
Hallo Chris,
ich war wohl zu voreilig.
Hab die Formel immer mit Daten ausprobiert wo Treffer erzielt worden sind.
Wenn ich das Datum so ändere dass kein Treffer erzielt werden kann dann erhalte ich
an der folgenden Stelle Laufzeitfehler 1004
.SpecialCells(xlCellTypeConstants, 4).Value = "Kopie"
Gruß
Hamza

Anzeige
AW: ist die Spalte IV noch frei und benutzbar? owT
15.07.2008 18:59:21
Chris
Servus Hamza,
dann probier's so:

Sub wo()
Dim rSuche As Range, rFinde As Range, strErste As String, lngRow
On Error Resume Next
With Range("IV:IV")
.FormulaR1C1 = "=IF(ISERROR(IF(NOT(DATE(YEAR(RC[-1]),MONTH(RC[-1]),DAY(RC[-1]))) = TRUE,"" _
"",IF(RC[-1] "" Then
lngRow = Sheets(2).Range("IV65536").End(xlUp).Offset(1, 0).Row
rSuche.EntireRow.Copy Sheets(2).Range("A" & lngRow)
Else
rSuche.EntireRow.Copy Sheets(2).Range("A1")
End If
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address  strErste
Else
MsgBox "Keine Treffer", vbInformation, "Treffer"
End If
Set rSuche = Nothing
Set rFinde = Nothing
On Error GoTo 0
End Sub


Gruß
Chris

Anzeige
;

Forumthreads zu verwandten Themen

Zelleninhalt in Bereich kopieren
Ludger

Hallo zusammen,
im Seet 1 habe ichin Zelle A1 einen Wert stehen. Diesen möchte ich nach Sheet 2 Zelle C3 bringen.
Problem: Im Sheet 2 ist die Zelle C3 in einem vordef. Bereich C3:D10
Wie bekomme ich das in VBA gelöst ?
Danke
Ludger
23.02.2009 17:25:39
Thread-ID: 1053201
4 Beiträge
Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Zellen anhand Inhalt auswählen und kopieren
Matthias

Hallo zusammen,
ich habe folgendes Problem: Aus einer Datei mit ca. 30.000 Zeilen und 38 Spalten sollen einige Bereiche ausgewählt werden und in unterschiedliche Blätter einer zweiten Arbeitsmappe einsortiert werden.
Konkret: Per Makro soll in Spalte C der Bereich gesucht werden der z.B...
08.11.2009 21:04:13
Thread-ID: 1115418
13 Beiträge
Nur den Inhalt kopieren
edie

Hallo zusammen,
was muss ich ändern damit nur der Inhalt kopiert wird?
Sub test() Dim wsT As Worksheet Dim wsS As Worksheet Dim i As Integer Dim RowsT As Integer Application.ScreenUpdating = False Set wsT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet) wsT.Nam...
27.12.2009 23:27:15
Thread-ID: 1126034
3 Beiträge
Anzeige
kompl. zelleninhalt in textdatei kopieren
Helmut

hallo vba'ler,
ich hätte eine kurze frage für profis:
ich habe folgenden code:
j = Sheets("Textexport").UsedRange.Rows.Count
Open "D:\Text.txt" For Output As #1
For i = 1 To j
Tstring = Format(Cells(i, 1)) & Format(Cells(i, 2)) & Format(Cells(i, 3)) & Format(...
09.03.2010 10:00:23
Thread-ID: 1144486
6 Beiträge
Zelleninhalte umkopieren
Hugo

Hallo zusammen
Möchte Daten aus einer Zelle in die darunterliegenden Zeilen/Zellen kopieren
DH:
In Zelle A1 steht, jeweils mit Zeilenumbruch:
Hans
Apfel
Gurke
Nun soll per VBA Hans in A2, Apfel in A3 und Gurke in A4 kopiert werden
Besten Dank für eure Hilfe
G...
28.09.2010 20:20:49
Thread-ID: 1179799
8 Beiträge
Zelleninhalt kopieren und einfügen
Ingo

Hallo,
ich habe eine Excel-Tabelle, in der in der zweiten Spalte Daten stehen. Zwischen den Daten sind die Zellen ohne Inhalt. Ich möchte nun, dass die leeren Zellen mit den darüberstehenden Daten gefüllt werden.
Hier der Code, den ich verfasst habe und der nichts ausfüllt...
Sub Ze...
16.05.2011 06:40:15
Thread-ID: 1214626
7 Beiträge
Zelleninhalte kopieren
Helmut

Hallo,ich möchte in einer Zelle (Bsp. A1) einen Wert eingeben, der dann innherlab des Sheets(Bsp. A10) an eine andere Stelle kopiert werden soll. Nun wird in A1 wieder ein Wert eingegeben. Dieser soll nun wieder an A10 weggeschrieben werden, allerdings addiert zum ersten Wert. Zu guter letzt so...
06.06.2002 11:27:43
Thread-ID: 126429
2 Beiträge
Nur Zellen mit Inhalt markieren
Fuchs


Hallo Leute.
ich bin gerade dabei riesige mengen an alten *.txt dateien in exel reinzukloppen ;-) Gibt es ein makro mit dem ich nur die zellen markieren kann, die einen inhalt haben?
Schon mal vielen dank!

20.06.2002 14:12:12
Thread-ID: 130181
2 Beiträge
Zelleninhalte kopieren & einfügen
Stefan

Hallo zusammen
Ich möchte aus jener Zeile, in welcher sich die aktive Zelle befindet, den Wert E, F, G und M kopieren und in eine fixe Position einfügen.
Die fixen Positionen zum Einfügen sind P2/P3/P4 und R3.
Beispiel: aktive Zelle ist C1. Somit sollen aus Zeile1 die Werte folgende...
10.04.2013 15:55:38
Thread-ID: 1308191
3 Beiträge
Zelleninhalt "versetzt" kopieren
Dieter

Bitte um Hilfe !
Ich möchte mehrere Zellen eines Blattes „versetzt“ in ein anderes Blatt kopieren. Es soll ablaufen, bis eine leere Zeile in der Tabelle PDaten erreicht ist. Auslösen möchte ich das Kopieren beim Beenden der Eingabe der PDaten mittels Befehlsbutton.
PDaten!A5; B5; D5 nac...
28.08.2013 17:41:18
Thread-ID: 1328681
3 Beiträge
Anzeige
AW: Zelleninhalt in anderes Tabellenblatt kopieren
Rene

Hallo Leute,
leider ist mein alter Beitrag schon archiviert und ich kann ihn nicht weiterführen.
Ich bekam damals den Tip mit der Matrixformel: {=WENN(ZEILEN($1:1) >ZÄHLENWENN(Mitglieder!I:I;"E");"";INDEX(Mitglieder!B:B; KKLEINSTE(WENN( _ Mitglieder!I$1:I$99="E";ZEILE($1:$99) );ZEIL...
20.01.2014 13:29:07
Thread-ID: 1345977
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige