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
260to264
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
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren und einfügen wenn Zelle leer

Kopieren und einfügen wenn Zelle leer
25.05.2003 15:35:21
Steffen
Hallo

Ich habe schon einige Makros probiert die aber alle nicht das gemacht haben was sie sollten. Das größte Problem war das die Makros mir nicht die Werte kopiert haben sondern die Formeln :-( die ich gar nicht will ++grummel++

Ich möchte aus Tabellenblatt 1 den Bereich G18:G53 über ein Makro kopiert haben und in das Tabellenblatt 2 in Spalte A eingefügt haben. Dabei soll immer die nächste frei Zelle die nächsten Datensätze erhalten so das nichts überschrieben wird.

Also so:

A1
-------
Wert#1
Wert#2
Wert#3
immer
alles
unter
einander

Ach ja was super wäre ist wenn das Makro den Bereich G18:G53 ohne leere Zellen mitkopiert. Wenn das nicht geht muß ich mir was anderes einfallen lassen damit ich das dann sortiert bekomme.

Schon mal heftigen Dank an alle die helfen können ;-)

Gruß
Steffen


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

Betreff
Datum
Anwender
Anzeige
Re: Kopieren und einfügen wenn Zelle leer
25.05.2003 16:13:20
KlausL

Hallo Steffen,
so sollte es funktionieren

Sub Transfer()
Sheets("Tabelle1").Select
Range("g18", "G53").Select
Selection.sort Key1:=Range("G18"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
If IsEmpty(Cells(65536, 1)) _
Then Cells(65536, 1).End(xlUp).Select _
Else Cells(65536, 1).Select
a = (ActiveCell.Column)
b = (ActiveCell.Row)
MsgBox b & a
Cells(b + 1, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Gruß KlausL

Anzeige
Re: Kopieren und einfügen wenn Zelle leer
25.05.2003 16:36:01
Steffen

Habs gerade versucht und da kommt dann eine MSGBOX im Tabellenblatt2 mit dem Fehler 400. In dem Tabellenblatt steht dann nix drinn :-(

Re: Kopieren und einfügen wenn Zelle leer
25.05.2003 16:46:50
Steffen


Funktioniert doch :-) hab es nicht ins Modul kopiert gehabt. Was ich aber nicht gebrauchen kann ist die MsgBox die Ansicht soll auf dem Tabellenblatt 1 bleiben.

Wenn du das noch rausfummeln könntest würde ich mich freuen !

Danke

Steffen

Re: Kopieren und einfügen wenn Zelle leer
25.05.2003 16:47:59
KlausL

Sorry!!
Bitte die Zeile MsgBox... löschen. (4.Zeile von unten)
Gruß KlausL

Re: Kopieren und einfügen wenn Zelle leer
25.05.2003 16:52:44
KlausL

Unsere gegenseitigen Mitteilungen haben sich überschnitten.

Sub Transfer()
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
Range("g18", "G53").Select
Selection.Sort Key1:=Range("G18"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
If IsEmpty(Cells(65536, 1)) _
Then Cells(65536, 1).End(xlUp).Select _
Else Cells(65536, 1).Select
a = (ActiveCell.Column)
b = (ActiveCell.Row)
Cells(b + 1, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.ScreenUpdating = True
Sheets("Tabelle1").Select
End Sub

Gruß KlausL

Anzeige
Re: Kopieren und einfügen wenn Zelle leer
25.05.2003 17:05:23
Steffen


Danke Klaus

funktioniert 1A ++freu :-)++ hab da schon wochenlang gesucht um das hinzubekommen. Was mich interressiert woher weißt du das alles ich möchte mich auch ein wenig weiterbilden.

Besten Dank für die Formel

Re: Kopieren und einfügen wenn Zelle leer
25.05.2003 18:23:09
KlausL

Hallo Steffen,
das ist eine gute Frage.
Angefangen habe ich mit damit, aufgezeichnete Makros zu interpretieren. Viele Infos habe ich mir aus dem Forum geholt, da oftmals Probleme besprochen wurden, die auch meine Probleme waren. Ja, und natürlich nicht zu vergessen, die vielen Bücher, die es auf dem Markt gibt. Ich denke allerdings auch, dass es kein Patentrezept gibt, wie man sich VBA aneignet, jeder sollte den für ihn sinnvollsten Weg einschlagen.
Gruß Klaus


Anzeige
Re: Kopieren und einfügen wenn Zelle leer
25.05.2003 18:56:58
Steffen


aha ich versuche immer etwas über Makro Aufzeichnungen zu lernen nur leider sind meine Probleme zu spezifisch um da etwas über den Makro Rekorde zu erreichen.

Ich habe noch ein Problem vieleicht hast du da auch einen Tip :


Ich habe eine Formel die mir Automatisch mein Dokument ausdruckt wenn die Zahlen 123,1234 und 12345 vorkommen. Das Problem liegt darin das wenn ich die Spalten lösche die das Script überwacht bringt das Script einen Fehler und markiert diese Zeile gelb:

If Target.Value = 123 Or Target = 1234 Or Target = 12345 Then

Ich denke mir mal da fehlt bestimmt eine If Else Anweisung oder sowas oder eine Art schleife oder sowas das die Debug Fehler weg geht.


' column 7 entspricht "Spalte G"
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
If Target.Value = 123 Or Target = 1234 Or Target = 12345 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
Collate:=True
End If
End If
End Sub

Gruß

Steffen

Anzeige

314 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Leere Zellen Überspringen
Michael

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
Warum leere Zelle "" >0 ???
Simon

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
15.09.2008 10:08:00
Thread-ID: 1009683
13 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge

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
5
6
4
15
5
12
2
9
2
9
4
3
10
4
2
5
5
4
2
7
7
1
5
9
1