Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
532to536
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
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro Inhalte einfügen

Makro Inhalte einfügen
16.12.2004 13:53:20
Harry
Hallo zusammen,
wer kann mir bei diesem Makro helfen?
Ich habe ein Makro bekommen.
Die Funktion das Makros ist sehr gut.
Jetzt habe ich aber ein Problem:
Die Zahlen die das Makro kopiert sind verknüpft.
Das Makro kopiert mir die Verknüpung.
Ich möchte aber nur die Zahl eingefügt haben und nicht
die Verknüpfung. Kopieren und Inhalte einfügen.
Da ich leider kein Makro schreiben kann brauche ich eure Hilfe.
Was muß in diesem Makro stehen damit nur die Zahl eingefügt wird.
Ich bedanke mich schon mal für eure Mühen.
MfG
Harry


Sub Makro3()
Sheets("Tabelle3").Select
Dim C As Integer
C = Range("N3").End(xlToLeft).Column
If Not IsEmpty(Cells(3, C)) Then C = C + 1
If Cells(3, 12) <> "" Then
MsgBox "Reihe ist voll"
Else
Range("N3").Copy Cells(3, C)
End If
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Inhalte einfügen
16.12.2004 13:56:55
Michael
Setzte statt
Range("N3").Copy Cells(3, C)
folgendes
cells(3, C) = Range("N3").Value
AW: Makro Inhalte einfügen
16.12.2004 14:13:02
Harry
Hallo Michael,
erstmal vielen Dank für die schnelle Antwort.
Das Makro funktioniert fast einwandfrei.
Eine Zelle wird kopiert und eingefügt ohne Verknüpfung.
Jetzt habe ich versucht die Zellen N6:N28 zu kopieren.
Leider wird jetzt nur eine Zelle kopiert.
Was habe ich falsch gemacht.
Kannst Du mir nochmal einen Tipp geben?
Danke nochmals für die Hilfe
MfG
Harry

Sub Makro3()
Sheets("Tabelle1").Select
Dim C As Integer
C = Range("N6:N28").End(xlToLeft).Column
If Not IsEmpty(Cells(6, C)) Then C = C + 1
If Cells(6, 12) <> "" Then
MsgBox "Reihe ist voll"
Else
Cells(6, C) = Range("N6:N28").Value
End If
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige