If-Bedingung für Zellenkopierung

Computer: Software & Programmierung Office Software
1

Hi

Wie kann ich die Bedingung if einsetzen, wenn ich aus einem anderen workbook bestimmte zellen mit bestimmtem text kopieren will?

z.b.
kopiere Zellen D13-DS23, wenn der Name „Maus“ steht. sonst nicht. und füge sie mir in ein anderes workbook an stelle B9 ein.

Any help?

2

Hallo,

etwa so?

Sub Kopiere()
 Dim lngZeilenIndex As Long
 Dim intSpaltenindex As Integer
 Windows("Mappe1").Activate
 For intSpaltenindex = 4 To 123
 For lngZeilenIndex = 13 To 23
 Cells(lngZeilenIndex, intSpaltenindex).Select
 If Selection.Value = "maus" Then
 Selection.Copy
 Windows("Mappe3").Activate
 Cells(lngZeilenIndex, intSpaltenindex).Select
 ActiveSheet.Paste
 Windows("Mappe1").Activate
 End If
 Next
 Next
End Sub

Gruß, Bernd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hallo Bernd und alle anderen

danke für die erste Hilfe, es ist nicht ganz was ich mir vorstelle.
Daher habe ich auf folgendem Link eine Beispieldatei hochgeladen.

http://www.badongo.com/de/file/1901149

Mit Erklärung / Wunsch… :smile:

Kannst damit was anfangen? Oder gibts den Reinhard noch hier?

Reeeeeiiiinhaaard!!! ???

schönen abend noch,
christian

4

klopf klopf

Gibts noch Experten hier?

Wäre doch schön, wenn jemand helfen könnte… :frowning:

5

(damit das Ding nicht gleich ins Archiv wandert…)

Hellooo?