Frage stellen

Excel Kopieren

2.5k Aufrufe
Gefragt in Tabellenkalkulation von
Hi Leute,
leider bin ich bezüglich Excel ganz und gar nicht der Fitteste.

Mein Anliegen ist etwas kompliziert.

Ich mache gerade für meine Bachelorarbeit Untersuchungen.
Dabei habe ich ein Blatt "Übersicht"
Dort sind alle Messungen enthalten.
Da ich mich jetzt auch gewisse Modelle fixieren sollte (Modelle sind benannt A, B, C..., H) würde ich gerne eine Kopie haben in ein neues Blatt.
Sprich
Trage ich in die Spalte L aus der "Übersicht" den Buchstaben "F" ein, soll eine Kopie in das Arbeitsblatt "Modell F" von der Zeile im Bereich der Spalte A bis K erstellt werden. Alles was hinter der Spalte K kommt ist nämlich irrelevant.

Wäre super, falls mir jemand helfen könnte :)

Grüße

12 Antworten

0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi all ^^

vorrausgesetzte Schreibweise

"Modell " & beliebige kuerzel

gruss nighty

einzufuegen alt+f11/projektexplorer/Übersicht

Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 12 Then
If SheetExists("Modell " & UCase(Target)) = True Then
Range("A" & Target.Row & ":K" & Target.Row).Copy _
Worksheets("Modell " & UCase(Target)).Range("A" & Worksheets("Modell " & UCase(Target)).Cells(Rows.Count, 1).End(xlUp).Row + 1)
End If
End If
Application.EnableEvents = True
End Sub

Public Function SheetExists(strName As String) As Boolean
On Error Resume Next
SheetExists = Not Worksheets(strName) Is Nothing
End Function
0 Punkte
Beantwortet von
Hallo Lazar,

alternativ, jedoch etwas mühsamer mittels Matrixformel:

in A2 Tabelle ModellF:

{=WENN(ZEILE(Übersicht!1:1)>ZÄHLENWENN(Übersicht!$L$2:$L$99;"F");"";INDEX(Übersicht!A:A;KKLEINSTE(WENN(Übersicht!$L$2:$L$99="F";ZEILE(Übersicht!$2:$20));ZEILE(A1))))}

Die Zellbezüge wären anzupassen!

Rüberkopieren bis Spalte K und runterkopieren bis?

[sub]Achtung Matrixformel:
die geschwungen Klammern entfernen, anschließend mit Strg/Shift/Enter gleichzeitig abschließen, erst danach nach rechts und runterkopieren bis? [/sub]

Gruß
Paul1
0 Punkte
Beantwortet von
@Danke nighty.

unter (target) müsste ich etwas eintragen?

@danke paul_1

es soll immer nur die Zeile kopiert werden, wo auch das "F" steht.
0 Punkte
Beantwortet von
@paul

könnte ich dir die datei schicken? Leider funktioniert das alles nicht so ganz.

Grüße
0 Punkte
Beantwortet von
Hallo Lazar,

die von mir gepostete Formel macht ja genau das.

Lade die Beispieldatei bei einem kostenlosen Filehoster hoch und gebe den Link in Deiner nächsten Antwort bekannt, dies auch deswegen, vielleicht will es sich auch @ nighty anschauen.

Gruß
Paul1
0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi Lazar ^^

es sollte so wie es ist funktionieren
probier welche lösung dir gefaellt


gruss nighty
0 Punkte
Beantwortet von
Hi,

Leider funktionierte das nicht

das hier wäre der Link.
Wäre super, wenn ihr euch das anschauen könntet.


http://www.filehosting.at/file/details/487034/%C3%9Cbersicht%20BA.xlsx
0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi Lazar

bitte im xls Format
bei speichern unter anzuwaehlen

gruss nighty
0 Punkte
Beantwortet von
0 Punkte
Beantwortet von
Hallo Lazar,

gib in Tabelle "Modell F" in A5 folgende Formel ein:

{=WENN(ZEILE(Übersicht!1:1)>ZÄHLENWENN(Übersicht!$L$10:$L$999;"F");"";INDEX(Übersicht!A:A;KKLEINSTE(WENN(Übersicht!$L$10:$L$999="F";ZEILE(Übersicht!$10:$999));ZEILE(A1))))}

Zellbezüge wären eventuell anzupassen

Anwenden wie in Antwort 2 beschrieben, gerade getestet und funktioniert!

Gruß
Paul1

[sub]Excel > Access > MS-Office
MS Windows XP Professional SP3/32 Bit
MS Windows 7 Professional SP1/64 Bit
ECDL-Syllabus Version 4.0
IT-Security
FIBU/KORE/PV/KA/AB[/sub]
Seite:
...