Excel: im Bereich A1:I24 sind einige Einträge vorh. m. beig. Makro kann ich A9:I24 kopieren will im kopiertem Bereich Zell3 Spalte4 Text "XX" einfügen?

... komplette Frage anzeigen

3 Antworten

will im kopiertem Bereich Zell3 Spalte4 Text "XX" einfügen?

Ich kann mir nicht vorstellen, dass das jemand versteht. Und zum Rumraten habe zumindest ICH keine Lust. Gib Dir mal etwas mehr Mühe mit der Beschreibung.

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von Lorehei
08.03.2016, 12:16

habe eine Excel-Liste

kann mit beigefügtem Makro den Bereich A1 – I24 kopieren

der Kopierte Bereich wird ab der Zeile 25 eingefügt

Private Sub Kopieren()
Dim lz As Long
lz = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox lz

Range(Cells(9, 1), Cells(24, 9)).Copy Cells(lz + 1, 1)

End Sub

Funktion der Zelle D11 und E11:

Im E11 ist eine Abfrage: ja ; nein;
bei „nein“ ist die Zelle leer

Im D11 folgende Formel:
=wenn(E11=“nein“;““;“ja“)

Im kopiertem Bereich, ab Zeile 25,
soll D?? und E?? wieder sichtbar gemacht werden und E?? = ja

würde gerne die Excel-Datei mitschicken, weiß nicht wie das geht

0

Schreib in D25:D40 nach dem Kopieren ein "Ja". Dann wird die Spalte E automatisch auch zu ja

Range("D" & (lz+1) & ":D" & Cells(Rows.Count, 1).End(xlUp).Row).Value = "ja"

(ungetestet)

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von Lorehei
09.03.2016, 09:10

in die Spalte D25:D40 darf nichts reingeschrieben werden,

es müsste nur in Zelle E27 ja reingeschrieben werden

0

Hä? Hab die Hälfte verstanden

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von Lorehei
08.03.2016, 12:12

habe eine Excel-Liste

kann mit beigefügtem Makro den Bereich A1 – I24 kopieren

der Kopierte Bereich wird ab der Zeile 25 eingefügt

Private Sub Kopieren()
Dim lz As Long
lz = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox lz

Range(Cells(9, 1), Cells(24, 9)).Copy Cells(lz + 1, 1)

End Sub

Funktion der Zelle D11 und E11:

Im E11 ist eine Abfrage: ja ; nein;
bei „nein“ ist die Zelle leer

Im D11 folgende Formel:
=wenn(E11=“nein“;““;“ja“)

Im kopiertem Bereich, ab Zeile 25,
soll D?? und E?? wieder sichtbar gemacht werden und E?? = ja

würde gerne die Excel-Datei mitschicken, weiß nicht wie das geht

0