Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
140to144
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfe zu Makro

Hilfe zu Makro
01.08.2002 19:21:37
Wolfgang
Hallo Leute,

benötige Hilfe zu diesem Makro:

Sub Suchen_und_Zeile_leeren()
Dim wks As Worksheet
Dim Zelle As Range
Dim intCounter As Integer
Dim Suchbegriff As Variant
Suchbegriff = Sheets("Rechnungs-Übersicht").Range("C2")
For intCounter = 3 To 19
With Worksheets(intCounter)
Set Zelle = .Cells.Find(what:=Suchbegriff, after:=.Range("A1"), LookIn:=xlValues, lookat:=xlWhole)
End With
If Not Zelle Is Nothing Then
Application.GoTo Zelle
Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 8)).ClearContents
???????????????
End If
Next intCounter
End Sub

Das Löschen der ersten 8 Zellinhalte klappt wunderbar.

Nun möchte ich aber gleichzeitig aus dem Blatt ("Journal") die Inhalte der ersten 8 Zellinhalte in die zuvor gelöschten Zellen der durchlaufenen Blätter einfügen.

Denke das ich die zu kopierenden Zellen aus dem Journal als Variable deklarieren muss, aber dabei brech ich mir die Ohren.

Bin für jede Hilfe dankbar!

Grüsse

Wolfgang

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Hilfe zu Makro
01.08.2002 20:37:39
Charlie
Hallo, Wolfgang!

Ich würde das so machen:

Viel Erfolg,
Charlie

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige