Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Copy

Makro Copy
14.12.2004 14:35:14
Harry
Hallo Leute,
ich habe da ein kleines Problem und hoffe
das mir einer helfen kann. Ich denke
das es für euch ganz einfach ist. Ich bin leider
nicht ganz so gut in Excel.
Also: Ich habe ein Makro aufgezeichnet.
In N3 steht immer eine andere Zahl. Diese wird in A3 kopiert.
Beim nächstenmal wenn ich den Schalter drücke soll das ganze in B3 kopiert werden. Beim nächstenmal in C3 und so weiter.
Für eine Tip von euch wäre ich sehr dankbar.
Gruß
Harry

Sub Makro2()
' Makro2 Makro
' Makro am 14.12.2004  aufgezeichnet
Range("N3").Select
Selection.Copy
Range("A3").Select
ActiveSheet.Paste
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Copy
UweD
hallo
Irgendwo muß das Makro ja erkennen wo es das letzte mal war.
Ich hab hier den Zellname = Letzter vergeben.
Errorhandling, falls das erste mal kein Name existiert.
Gruß UweD

Sub Makro2()
On Error GoTo Fehler:
Range("N3").Copy Range("Letzter").Offset(0, 1)
Range("Letzter").Offset(0, 1).Name = "Letzter"
Exit Sub
Fehler:
If Err.Number = 1004 Then
Err.Clear
Range("N3").Copy [A1]
[A1].Name = "Letzter"
End If
End Sub

AW: Makro Copy
14.12.2004 15:10:57
Harry
Hallo Uwe,
danke für Deine Hilfe.
Deine Formel funktioniert einwandfrei.
ich muß trotzdem nochmal nachfragen.
Wie bekomme ich es hin das der Wert in A3 usw. kopiert wird.
Wenn möglich das ganze 12 mal dann soll er wieder von vorne anfangen.
Im Moment funktioniert das ganze wie eine Endlosschleife.
Man kann machen was man will, wenn die Daten gelöscht werden fängt das Makro nicht von vorne
an sondern, kopiert seine Daten einfach ab der letzten Zelle weiter.
Kannst Du mir da noch einen Tipp geben?
Danke für die Hilfe.
Gruß
Harry
Anzeige
AW: Makro Copy
u_ 

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

Hurra es funktioniert Danke
14.12.2004 15:14:34
Harry
Hallo Leute,
vielen Dank es funktioniert.
Harry

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige