Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

zellen kopieren wenn bedingung erfüllt

Forumthread: zellen kopieren wenn bedingung erfüllt

zellen kopieren wenn bedingung erfüllt
30.01.2004 16:26:11
tomas
Hallo,
ich möchte durch ein Button Daten (z.B. A1:B1 und zusätzlich D1:F1) aus der Zeile einer Tabelle in eine anderen Tabelle verschieben. Die Zeilen-Nr. wird durch InputBox eingegeben.Geprüft werden muss, ob in der Spalte A in der angegebenen Zeile ein Wert vorhanden ist(Laufende Nr.). Optimal wäre es, wenn gleichzeitig alle Laufende Nr. (Spalte A ab Zeile 5) aktualisiert werden, sowohl in der Quell-Tabelle als auch in der Ziel-Tabelle
Kann mir jemand bitte helfen?
Gruß und ein schönes WE
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zellen kopieren wenn bedingung erfüllt
30.01.2004 19:28:39
Beni
Hallo tomas,
das zweite Makro verschiebt alle Zeilen, welche die Bedingung erfüllen in Tabelle2.
Grss Beni

Sub Daten_verschieben_1()
Dim LN
Titel = "InputBox"
Mldg = "Laufende Nr eingeben"
LN = InputBox(Mldg, Titel)
If Cells(LN, 1) > 0 Then
With Sheets(2)
r = .Cells(65536, 1).End(xlUp).Row + 1
Range(Cells(LN, 4), Cells(LN, 6)).Cut Destination:=.Cells(r, 4)
Range(Cells(LN, 1), Cells(LN, 2)).Cut Destination:=.Cells(r, 1)
End With
End If
End Sub


Sub Daten_verschieben_2()
Dim LN
z = Cells(65536, 2).End(xlUp).Row
For LN = 5 To z
If Cells(LN, 1) > 0 Then
With Sheets(2)
r = .Cells(65536, 1).End(xlUp).Row + 1
Range(Cells(LN, 4), Cells(LN, 6)).Cut Destination:=.Cells(r, 4)
Range(Cells(LN, 1), Cells(LN, 2)).Cut Destination:=.Cells(r, 1)
End With
End If
Next LN
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige