Spalte nach Eintrag durchsuchen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Spalte nach Eintrag durchsuchen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Autor

Nachricht

Novato
Besserwisser

Anmeldedatum: 16.04.2008
Beiträge: 50

Verfasst am: 16.04.2008, 10:21

Hallo,

ich habe folgendes Problem:

ich möchte mit Hilfe eines Makros die Spalte B eines Tabellenblattes durchsuchen lassen, bis die Zeile gefunden wird, in der eine Zahl steht. Die Zahl steht an irgendeiner Stelle in der Spalte B. Aktuell ist es die Zeile 5012. Die Zeilen darüber sind leer.

Erklärung :
In Tabellenblatt 1 möchte ich in B34 bis H34 Zahlen eingeben. In Tabellenblatt 2 ist schon eine Liste mit Zahlenreihen ab B5012:H5012 gespeichert. Wenn ich das Makro auslöse, sollen die Zahlen die ich gerade in Tabellenblatt 1 eingegeben habe, in Tabellenblatt 2 kopiert werden und zwar immer über der letzten Zeile, in der sich Zahlen befinden, sodaß sich die Liste nach oben hin nach und nach aufgefüllt wird

Wenn ich das Makro auslöse müßten also jetzt im Tabellenblatt 2 in der Zeile B5011:H5011 meine zuvor in Tabellenblatt 1 eingegebenen Zahlen stehen.

Ist so etwas möglich und wenn ja, wie? Ich habe keine Ahnung vom programmieren, vielleicht kann mir jemand ein fertges Makro schrieben?

Vielen Dank im voraus

Gruß Novato

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 16.04.2008, 12:57

Hallo!

Teste mal sowas:

Code:

Sub test()
Dim Zeile As Integer
With Sheets("Blatt2")
'Sucht von B1 aus abwärts nach der letzten freien Zelle:
Zeile = .Range("B1").End(xlDown).Row - 1
'Kopiert die Werte:
Range(.Cells(Zeile, 2), .Cells(Zeile, 8)) = Sheets("Blatt1").Range("B34:H34")
End With
End Sub

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Novato
Besserwisser

Anmeldedatum: 16.04.2008
Beiträge: 50

Verfasst am: 16.04.2008, 14:25

Hallo Schatzi,

vielen Dank fur Deine Antwort. Ich habe Deinen Code ausprobiert, hat aber leider nicht funktioniert.

Ich bin folgendermaßen vorgegangen:

1.Makro erstellt mit dem Namen test
2.Deinen Code reinkopiert ohne etwas zu verändern
3.Tabelle 1 in Blatt 1 umbenant, Tabelle2 in Blatt 2 umbenannt.
3.Makro im Menu Extras aufgerufen und auf ausführen geklickt

Danach habe ich in Blatt 2 nachgeschaut ob die Daten aus Blatt 1 rüberkopiert wurden, konnte sie aber nicht finden.

Eine Fehlermeldung kam auch nicht.

Was habe ich falsch gemacht?

Gruß Novato

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 16.04.2008, 14:35

Hallo!

Da hab' ich wohl zu schnell geschossen... Embarassed

Aber so sollte es nun wirklich klappen:

Code:

Sub test()
Dim Zeile As Integer
With Sheets("Blatt2")
'Sucht von B1 aus abwärts nach der letzten freien Zelle:
Zeile = .Range("B1").End(xlDown).Row - 1
'Kopiert die Werte:
Sheets("Blatt1").Range("B34:H34").Copy .Cells(Zeile, 2)
End With
End Sub

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Novato
Besserwisser

Anmeldedatum: 16.04.2008
Beiträge: 50

Verfasst am: 16.04.2008, 17:04

Hi Schatzi,

herzlichen Dank für Deine schnelle Hilfe!!.

Das ist Super Klasse Laughing

.
Funktioniert einwandfrei.

Allerdings wird auch die Formatierung (Rahmen) mit kopiert. Wie kann man das noch ändern?

Gruß Novato

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 16.04.2008, 17:16

Hallo!

Dann so:

Code:

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Novato
Besserwisser

Anmeldedatum: 16.04.2008
Beiträge: 50

Verfasst am: 16.04.2008, 17:59

Hi Schatzi,

Genau so!!

Wunderbar und vielen Dank nochmals.

Gruß Novato

Novato
Besserwisser

Anmeldedatum: 16.04.2008
Beiträge: 50

Verfasst am: 16.04.2008, 19:10

Hi Schatzi,

Tschuldigung, wenn ich nochmal frage:

ist es möglich mit dem gleichen Makro die Werte der ersten gefundenen Zeile aus Blatt 2 zu kopieren und in Blatt 1 in B33:H33 einzutragen, sowie die Werte aus Blatt 2 der darunterliegenden Zeile in Blatt 1 in B32:H32 zu kopieren?

Dies sollte, dann aber geschehen, bevor die Zahlen aus B34:H34 kopiert wurden. weil sonst würde ich sie ja gleich wieder zurück kopieren.

Ich wollte es nicht von anfang an zu kompliziert machen, deshalb die Fragen nacheinander. Wink

Gruß Novato

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 18.04.2008, 16:04

Hallo!

Ungetestet:

Code:

Sub test()
Dim Zeile As Integer
With Sheets("Blatt2")
Zeile = .Range("B1").End(xlDown).Row - 1

Range(.Cells(Zeile + 1, 2), .Cells(Zeile + 1, 8)).Copy Sheets("Blatt1").Range("B33:H33")
Range(.Cells(Zeile + 2, 2), .Cells(Zeile + 2, 8)).Copy Sheets("Blatt1").Range("B32:H32")

Sheets("Blatt1").Range("B34:H34").Copy
.Cells(Zeile, 2).PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End Sub

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Novato
Besserwisser

Anmeldedatum: 16.04.2008
Beiträge: 50

Verfasst am: 18.04.2008, 16:59

Hallo Schatzi,

Vielen Dank!! Einfach genial. Klappt auf anhieb.

Eine Kleinigkeit allerdings: Wenn die Werte aus Blatt 2 in Blatt 1 kopiert werden, geht mir mein Rahmen in Blatt 1 verloren.

Gruß Novato

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 18.04.2008, 17:08

Hallo!

Dann kopiere die oberen beiden genauso wie den unteren:

Code:

Range(.Cells(Zeile + 1, 2), .Cells(Zeile + 1, 8)).Copy
Sheets("Blatt1").Range("B33:H33").PasteSpecial Paste:=xlValues
Range(.Cells(Zeile + 2, 2), .Cells(Zeile + 2, 8)).Copy
Sheets("Blatt1").Range("B32:H32").PasteSpecial Paste:=xlValues

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Novato
Besserwisser

Anmeldedatum: 16.04.2008
Beiträge: 50

Verfasst am: 18.04.2008, 17:29

Hallo Schatzi,

jetzt sieht es gut aus.

Very Happy

Vielen Dank noch mal.

Gruß Novato

Novato
Besserwisser

Anmeldedatum: 16.04.2008
Beiträge: 50

Verfasst am: 18.04.2008, 19:03

Hallo Schatzi,

ich habe noch eine Frage

folgenden Befehl habe ich vor Deine Zeilen noch hinzugefügt.

Range(.Cells(Zeile + 1, 1), .Cells(Zeile + 1, 1)).Copy
Sheets("Blatt1").Range("I33").PasteSpecial Paste:=xlValues
Range(.Cells(Zeile + 2, 1), .Cells(Zeile + 2, 1)).Copy
Sheets("Blatt1").Range("I32").PasteSpecial Paste:=xlValues

hiermit wird das dazugehörige Datum jeweils in die Zellen I33 und I32 kopiert.

dann Deine:

Range(.Cells(Zeile + 1, 2), .Cells(Zeile + 1, 8)).Copy
Sheets("Blatt1").Range("B33:H33").PasteSpecial Paste:=xlValues
Range(.Cells(Zeile + 2, 2), .Cells(Zeile + 2, 8)).Copy
Sheets("Blatt1").Range("B32:H32").PasteSpecial Paste:=xlValues

Das klappt auch alles wunderbar, nur die Zellen, in denen das Datum reinkopiert wird sind zu klein und es erscheint nur ##.
Ich kann die Zellen aber auch nicht vergrößern, weil sonst das Tabellenformat nicht mehr stimmt.
Mit Zellen verbinden habe ich es auch schon probiert, dann erscheint aber eine Fehlermeldung, daß alle verbundenen Zellen gleich groß müssen.

Wie kann man Abhilfe schaffen?

Gruß Novato

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 18.04.2008, 19:55

Hallo!

Wenn die Zellen zu klein sind, dann hilft nur eines:
Mach sie größer!
Ein Kombi passt nun mal nicht in die Parklücke eines Smarts...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Novato
Besserwisser

Anmeldedatum: 16.04.2008
Beiträge: 50

Verfasst am: 19.04.2008, 09:18

Hallo Schatzi,

ein guter Vergleich.

Hast Du auch eine Idee zu meinem Thread

"Zellen die Zahlen enthalten automatisch mit Linien verbinden" ?

Oder läßt sich so etwas gar nicht machen?

Wäre echt nett, wenn Du mir dort antworten könntest

Gruß Novato

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Formel aktualisieren nach Änderung vo...	Frederic	Microsoft Excel Hilfe	6	26.08.2008, 12:02
	Kopieren nach Übereinstimmung von Zel...	Frederic	Microsoft Excel Hilfe	3	25.08.2008, 11:02
	Grafik nach dem Speichern nicht mehr ...	Skinnymahi	Microsoft Word Hilfe	0	24.08.2008, 21:03
	"suche nach" - funktion	stom	Microsoft Outlook Hilfe	1	19.08.2008, 09:54
	bestimmte Inhalte einer Spalte kopieren	FelixB81	Microsoft Excel Hilfe	4	15.08.2008, 11:52

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de