Office: Wenn bestimmter Wert in Spalte "P" dann Zeile kopieren

Ciao zusammen,

ich versuche seit längerem einen VBA Code für mein Programm zu schreiben, aber leider will es mir nicht so ganz funktionieren.

Ich versuche folgendes umzusetzen:
1) es muss geprüft werden, ob in der Spalte P ( von P4:P408 ) der Wert "1" vorhanden ist.
2) wenn der Wert "1" vorhanden ist, sollen die Spalten "B" bis "F" kopiert werden.
Bsp: P4 = 1 dann kopiere B4:F4
3) diese Werte sollen dann in CE2 ( untereinander nächste freie Zeile )kopiert werden
4) in P4 soll dann die 1 gelöscht werden.
ACHTUNG: es sollen nur bei den Zellen, wo die 1 drin steht, die 1 gelöscht werden und nicht bei den anderen, da Formeln hinterlegt sind.

Ich habe bereits im Internet nach einem Code geschaut und auch einige dazu gefunden, aber leider bekomme ich sie nicht so umgeschrieben, dass sie mir helfen können. *depressed

Vielen Dank im Voraus.

LG
Alberto

:)

 

Hallo Alberto,

Ich konnte Dein Makro nicht sehen, was wohl daran liegt das ich nicht auf fremde Rechner schaue.

Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

 

Hallo,

stellt sich die Frage, wie kommt den die 1 in die Spalte P?

-händische Eingabe?
-als Ergebnis einer Formelberechung in Spalte P?

Am besten machst du mal eine Beispielmappe und lädst die hier hoch.

Gruß Werner

 

Ciao zusammen,

vielen Dank für eure Antworten.

Ihr habt natürlich Recht, mit einer Beispieldatei ist alles einfacher.
Diese habe ich nun etwas schlanker gemacht, damit ich die hier hochladen konnte.

Die "1" kommt durch eine Formel zustande. Diese Formal kann nachher ruhig gelöscht werden, da ansonsten immer die "1" entsteht und er es immer wieder kopiert, sobalt man das Tabellenblatt aktiviert.
Jedoch soll nur da wo die "1" steht gelöscht werden und die restlichen Formeln sollen bestehen bleiben.

LG
Alberto

 

Hallo Alberto,

Code:

 

Ciao Hajo,

vielen Dank für deine Hilfe, der Code funktioniert einwandfrei.

Jedoch müssen noch 2 Änderungen vorgenommen werden ( sorry *rolleyes.gif* )

1) der erste Eintrag soll in CE2 eingefügt werden und
2) die nachträglichen gespielten Spiele in der nächsten freien Zeile in CE kopiert werden.

Bei deinem Code werden die nachträglichen Spiele jedoch leider wieder nach oben kopiert.

Ist dies auch machbar oder wäre dies ein großer Aufwand? *depressed

Vielen Dank im Voraus.

LG
Alberto

 

Da must Du den Fragen vom dem Du den Code hast.
Mein Code macht genau das was er soll, ich habe es mal für 12 Datensätze getestet.
Ich bin dann raus, da mein Code nicht mehr aktuell.

 

Ciao Hajo,

ehrlich gesagt war es auf deinen Code bezogen, ob man den noch um diese 2 Änderungen erweitern bzw. ändern könnte.

Dann schau ich mal, wie ich es ändern kann.

Danke dir auf jedenfall für deine Mühe.

Gruß
Alberto

 

Hallo Alberto,

teste mal:

PHP:

         Public Sub kopieren()
Dim raLetzte As Range, loLetzte As Long

Application.ScreenUpdating = False

With Worksheets("Deutschland_Oberl_Bayern_Nord")
If WorksheetFunction.CountIf(.Columns(16), 1) > 0 Then
Set raLetzte = .Columns(16).Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious)
If Not raLetzte Is Nothing Then
loLetzte = .Cells(.Rows.Count, 83).End(xlUp).Offset(1).Row
If loLetzte < 2 Then loLetzte = 2
.Range(.Cells(3, 2), .Cells(raLetzte.Row, 16)).AutoFilter field:=15, Criteria1:=1
.AutoFilter.Range.Offset(1).Resize(.AutoFilter.Range.Rows.Count - 1, _
.AutoFilter.Range.Columns.Count - 1).Copy .Cells(loLetzte, 83)
.AutoFilter.Range.Offset(1).Resize(.AutoFilter.Range.Rows.Count - 1).Columns(15) _
.SpecialCells(xlCellTypeVisible).ClearContents
If .AutoFilterMode Then .AutoFilterMode = False
End If
Else
MsgBox "keine Spiele mit Heimsieg vorhanden"
End If
End With
End Sub


 

Hallo Hajo,

nein, macht er eben nicht.

Gruß Werner

 

Ciao Werner,

vielen Dank für deine Mühe.
Ich habe deinen Code ausprobiert, aber leider stimmt da etwas nicht.

Er kopiert zwar die Spiele und löscht auch die "1" heraus, aber er kopiert auch die nächsten Spiele unter dem letzten Ergebnis ( ab Zeile A281 ).
Zusätzlich habe ich das auch mit der MsgBox nicht so ganz verstanden.

Gruß
Alberto

 

Hallo Alberto,

hast du es denn mit der Datei versucht, die du hier hochgeladen hast?
Für die hab ich das Makros geschrieben. Und mit der funktioniert das genau so, wie du es haben wolltest.

Das letzte Spie das kopiert wird ist, ist das Spiel aus Zeile 280, TSV Aubstadt : TSV Großbardorf.

Das mit der Messagebox kannst du ja an deine Bedürfnisse anpassen. Ich hab mir weder die Formel noch die Spielergebnisse angeschaut. Bin deshalb einfach mal davon ausgegangen, dass die 1 in Spalte P für einen Heimsieg steht, deshalb der Text. Dass das nicht so ist, sehe ich erst jetzt.

Gruß Werner

 

Hallo Werner,

ich habe deinen Code in der Beispieldatei ausprobiert und er zeigt mir das anders an dann als bei dir!
Obwohl dies eigentlich nicht der Fall sein sollte!
Ich bin gerade nicht am Pc, aber werde dir gleich mal einen Screenshot von schicken, wie es bei mir aussieht!

Gruß
Alberto

 

Hallo Alberto,

also gerade noch mal probiert - bei mir funktionierts.
Könnte daran liegen, dass in Spalte P Lücken zwischen den Datensätzen vorhanden sind.

Ändere bitte mal deine Formel in P4

PHP:

         =WENN(UND(ISTZAHL(E4);E4<>"");1;"")


 

Ciao Werner,

vielen lieben Dank für deine Hilfe und Mühe.
Dein Code funktioniert einwandfrei *top
Er macht genau das wie ich es mir vorgestellt habe *happy

Nochmal vielen lieben Dank!!!
Wünsche dir noch einen schönen Sonntag. *winken

Gruß
Alberto