Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
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
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einfügen in erste freie Zelle

Einfügen in erste freie Zelle
28.08.2019 15:02:57
Robert
Hallo zusammen,
ich benötige ein Makro, welches eine Kopierte Zelle ( Ausgeschnitten ) von Tabelle1 in eine definierte Zelle in Tabelle2 einfügt.
Dazu sollte beim einfügen, die nächste Freie / Leere Zelle verwendet werden.
Der Erste Teil schaut so aus: 

Sub KopierenMGE()
With Sheets("Eingang Maske NA")
Range("D16").Select
Selection.Cut
Sheets("Stator Eingang NA").Select
Range("B2").Select
ActiveSheet.Paste
End With
End Sub

soweit so gut aber wie ich bekomme ich das einfügen in den Griff?
Kann mir jemand dazu einen Tipp geben?
Anfänger Makro
MFG Robert

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einfügen in erste freie Zelle
28.08.2019 15:26:01
Torsten
Hallo Robert,
es soll nur immer die eine Zelle D16 kopiert werden?
So: 

Sub KopierenMGE()
Dim lngLast As Long
With Sheets("Eingang Maske NA").Range("D16")
.Copy
lngLast = Sheets("Stator Eingang NA").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("Stator Eingang NA").Range("B" & lngLast).PasteSpecial xlPasteValues
.ClearContents
End With
End Sub

Gruss Torsten
Oder besser
28.08.2019 15:28:53
Torsten 

Sub KopierenMGE()
Dim lngLast As Long
lngLast = Sheets("Stator Eingang NA").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("Stator Eingang NA").Range("B" & lngLast) = Sheets("Eingang Maske NA").Range("D16")
Sheets("Eingang Maske NA").Range("D16").ClearContents
End With
End Sub

Anzeige
AW: Oder besser
28.08.2019 15:40:52
Torsten
sorry, kleiner Fehler drin. Ein + 1 vergessen. 

Sub KopierenMGE()
Dim lngLast As Long
lngLast = Sheets("Stator Eingang NA").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("Stator Eingang NA").Range("B" & lngLast + 1) = Sheets("Eingang Maske NA").Range(" _
D16")
Sheets("Eingang Maske NA").Range("D16").ClearContents
End With
End Sub

Schon geil, wie man hier teilweise ignoriert wird
30.08.2019 08:39:41
Torsten
AW: Schon geil, wie man hier teilweise ignoriert wird
30.08.2019 09:40:44
Robert
Hallo Torsten,
sorry für die verspätete Antwort!
Wir haben dein Vorschläge ausprobiert und sie noch etwas abgeändert.
Es gibt bei Marko so viele Schreibweisen und vorgehensweisen das man nie sagen kann welcher Weg der Beste ist.
Sub KopierenStator()
wert1 = Worksheets("Eingang Maske NA").Range("A16").Value
letzter_Wert = Worksheets("Stator Eingang NA").Cells(Rows.Count, 2).End(xlUp).Row
zähler = 2
For zähler = 2 To letzter_Wert
wert_vorhanden = Worksheets("Stator Eingang NA").Cells(zähler, 2).Value
If wert_vorhanden = "" Then
Worksheets("Stator Eingang NA").Cells(zähler, 2).Value = wert1
GoTo Ende
Exit For
Else
End If
Next
Wert_dazu = letzter_Wert + 1
Worksheets("Stator Eingang NA").Cells(Wert_dazu, 2).Value = wert1
Ende:
Worksheets("Eingang Maske NA").Range("A16").Value = ""
End Sub
Vielen Dank für die Hilfe
MFG Robert
Anzeige
...und damit wohl erledigt! (owT)
31.08.2019 21:48:32
EtoPHG

AW: Kürzere Fassung
01.09.2019 05:16:29
GerdL
Hallo! 
Sub KopierenStator2()
Dim zähler As Long
With Worksheets("Stator Eingang NA")
For zähler = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row + 1
If .Cells(zähler, 2).Value = "" Then Exit For
Next
.Cells(zähler - 1, 2).Value = Worksheets("Eingang Maske NA").Range("A16").Value
End With
Worksheets("Eingang Maske NA").Range("A16").Value = ""
End Sub

Gruß Gerd

312 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Anzeige
Öffnen und Schliessen von geschützten ohne Abfrage
geschützten

Hallo Leute,
ich baue ein Berichtswesen in Excel auf. Aufgrund der großen Datenmenge benötige ich zwei Dateien.
- In der Datenbank-Datei (DB.xls) sind die Daten abgespeichert. Diese Datei ist durch Kennwort geschützt, um ein Verändern der Daten durch Unberechtigte zu verhindern.
-...
17.09.2008 14:20:00
Thread-ID: 1010396
6 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
HTML-Seiten auslesen und in Excel, MySQL usw. absp
annalena

Hallo,
ich habe in der Struktur gleichmäßig, wiederkehrende HTML-Seiten aus einem Bücher-Shop und möchte die Produkt-Daten, statt abzuschreiben, aus den HTML-Seiten auslesen um diese dann in Excel oder einer DB zu speichern. Erlaubnis liegt natürlich vor - ist also kein Datenklau.
Habe...
28.09.2008 18:09:23
Thread-ID: 1012955
2 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
13
2
4
5
5
5
1
7
10
5
1
6
2
6
2
5
1
5
5
2
8
2
1