Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

makierten bereich Kopieren

Forumthread: makierten bereich Kopieren

makierten bereich Kopieren
29.11.2002 18:16:46
Ralf
Hallo Forum Team
Ich mochte gerne per Makro den Bereich kopieren, den ich vorher mit der Maus Makiert habe. Diesen Makiertn Bereich soll Dann im Tabellenblatt "Rechnung" ab Zeile c10 bis c30 Eingefügt werden . Unteranderem soll er die Nächstmögliche freie Celle in dem Bereich des Tb "Rechnung" C10 bis c30 suchen also hinter dem letzten Text einfügen und eine Spalte zwischer frei lassen.

Besten dank im voraus

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: makierten bereich Kopieren
30.11.2002 09:03:07
M. Kuhn
Moin Ralf,

der Beitrag war noch offen, also:

Sub Kopie()

Dim i As Integer

If Selection Is Nothing Then ' nichts ausgewählt
Exit Sub
Else
Selection.Copy ' Quelltabelle
End If

With Worksheets("Rechnung") ' Zieltabelle
For i = 9 To 29
If .Cells(i, 3).Text = "" And .Cells(i + 1, 3).Text = "" Then ' wenn frei
.Cells(i + 1, 3).PasteSpecial ' eine Zeile Zwischenraum, einfügen
Exit For ' reicht, raus
Else
MsgBox "Kein Platz zum Einfügen!"
End If
Next i
End With

End Sub

MfG Mario




Anzeige
Re: makierten bereich Kopieren
30.11.2002 09:24:40
Ralf
Moin Mario
Dein lösungsvorschlag ist fast super aber leider zeigt er mir bei jedem klick auf das Makro die MsgBox kein Platz zum einfügen.
Wenn ich es 5 oder 6 mal anklicke fügt er es in die rechnungstabelle ein.
Ich weiß nicht wo der Fehler liegen könnte vielleicht kannst du mir ja nochmal helfen
Danke
Anzeige
Re: makierten bereich Kopieren
30.11.2002 09:45:35
M. Kuhn
Moin Ralf,

prüfe mal, ob Du wirklich in Spalte C genug Zeilen frei hast, denn die Schleife läuft bloß bis 30. Evtl. setzt Du den Zähler mal hoch.

MfG Mario

Re: makierten bereich Kopieren
30.11.2002 09:57:04
Ralf
Hallo
Ich habe Keine Celle mit einem Text Beschrieben.
Aber ich habe herausgefunden, Das der Rechner jede einzelne Spalte durchgeht und überprüft ob da ein Text eingegeben ist.
Dh beim 1 mal klappt es einwandfrei beim 2 mal einfügen muss ich die MsgBox 2 mal betätigen wenn ich zum 3 mal einen Makierten Bereich einfügen möchte muss ich die MsgBox 3 mal Betätigen und das Steigert sich immer.
Ich hoffe ich hab das verständlich erklärt
Anzeige
Re: makierten bereich Kopieren
30.11.2002 10:12:33
M. Kuhn
Moin Ralf,

bitte ändern:

With Worksheets("Rechnung") ' Zieltabelle
For i = 9 To 29
If .Cells(i, 3).Text = "" And .Cells(i + 1, 3).Text = "" Then ' wenn frei
.Cells(i + 1, 3).PasteSpecial ' eine Zeile Zwischenraum, einfügen
Exit For ' reicht, raus
End If
Next i

MsgBox "Kein Platz zum Einfügen!"

End With

MfG Mario

Anzeige
Re: immer besser aber .....
30.11.2002 10:21:59
Ralf
Es Wird immer besser
Aber leider noch nicht ganz Perfekt
Jetzt fügt er es ein, aber danach kommt immer die MsgBox
"keinen Platz zum einfügen"
Re: immer besser aber .....
30.11.2002 10:25:14
M. Kuhn
Moin Ralf,

Sorry, mea culpa in situ:

Die Zeile *Exit For* muss auch geändert werden in: *Exit Sub*

Habe ich leider übersehen. MfG Mario

Anzeige
Super es Funktioniert Danke
30.11.2002 10:44:27
Ralf
Danke an M Kuhn
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige