Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
184to188
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige