Daten in über Commandobutton in ein anderes Tabellenblatt :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] Daten in über Commandobutton in ein anderes Tabellenblatt

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

Autor

Nachricht

msdd79
Newbie
Newbie

Anmeldedatum: 15.07.2007
Beiträge: 49

Verfasst am: 15.05.2008, 16:17

Hallo,

ich habe noch ein Problem.

Mein Makro formatiert Daten und fügt die anschließend in ein anderes Tabellenblatt ein. Funkioniert auch einwandfrei.

Wenn ich nun allerdings dieses Makro über einen Commandobutton starten möchte kommt immer die Fehlermeldung: Lautzeitfehler 1004.

Ich habe das Gefühl, das man über den Button nicht in ein anderes Tabellenblatt wechseln kann. Ist das richtig?

Gibt es eine Möglichkeit, dass Problem zu umgehen?

Gruß
Michael

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 15.05.2008, 16:38

Hallo!

Der Button macht eigentlich nix anderes, als das Makro aufzurufen.
Allerdings ist der Button ein Objekt des Tabellenblatts. Daher kann evtl. eine andere Adressierung nötig sein als bei einem Makro, welches in einem allgemeinen Modul liegt.

Aber ohne deinen Code zu kennen, wird das hier wohl eher ein Revival von "Rate mal mit Rosenthal"...

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

msdd79
Newbie
Newbie

Anmeldedatum: 15.07.2007
Beiträge: 49

Verfasst am: 15.05.2008, 16:41

Anbei sende ich mal die aktuelle Datei, zum besseren Verständnis...

msdd79
Newbie
Newbie

Anmeldedatum: 15.07.2007
Beiträge: 49

Verfasst am: 15.05.2008, 16:43

irgendwie finde ich nichts, um nachträglichen eine datei anzuhängen. sorry.

hier der code:

Private Sub CommandButton2_Click()
Sheets("ISBN").Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Columns("B:B").Select
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.NumberFormat = "0"
Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Bestellungen - Übersicht").Select
Range("A5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:A").EntireColumn.AutoFit
Range("A1").Select

End Sub

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 15.05.2008, 16:53

Hallo!

Auf welchem Blatt liegt denn der Button?

PS: Eine Datei kannst du so anhängen:
Button "Antwort erstellen"
Button "Durchsuchen"
Datei auswählen
Button "Attachment hinzufügen"
Button "Absenden"

msdd79
Newbie
Newbie

Anmeldedatum: 15.07.2007
Beiträge: 49

Verfasst am: 15.05.2008, 17:20

Der Button liegt im Tabellenblatt "Bestellungen - Übersicht".

Er soll in das Blatt "ISBN" gehen, dort Daten aus Spalte A trennen und die abgetrennten Daten aus Spalte B nehmen und in das Blatt "Bestellungen - Übersicht" wieder einfügen.

Leider komme ich momentan nicht an die Datei ran (liegt auf arbeit, ich bin momentan zu hause). Ich hoffe der Code und meine Beschreibung reichen aus.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 15.05.2008, 17:33

Hallo!

Zitat:

Ich hoffe der Code und meine Beschreibung reichen aus.

Das hoffe ich auch... Very Happy

Teste mal dies:

Code:

Private Sub CommandButton1_Click()
With Sheets("ISBN")
.Columns(1).TextToColumns OtherChar:="|"
.Columns(2).Replace What:="-", Replacement:="", LookAt:=xlPart
.Columns(2).NumberFormat = "0"
.Range(.Range("B1"), .Range("B1").End(xlDown)).Copy Range("A5")
Columns(1).AutoFit
End With
End Sub

msdd79
Newbie
Newbie

Anmeldedatum: 15.07.2007
Beiträge: 49

Verfasst am: 16.05.2008, 06:26

Guten Morgen,

ich habe gerade einmal Deinen Vorschlag von gestern probiert. Leider kommt noch immer die gleiche Fehlermeldung.

Aber: Ich kann Dir jetzt die Datei hängen.

Kannst Du das bitte noch einmal prüfen?

Vielen Dank

Michael

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 16.05.2008, 10:01

Hallo!

Da fehlt wohl nur eine Kleinigkeit:

Private Sub CommandButton2_Click()
With Sheets("ISBN")
.Columns(1).TextToColumns Other:=True, OtherChar:="|"
.Columns(2).Replace What:="-", Replacement:="", LookAt:=xlPart
.Columns(2).NumberFormat = "0"
.Range(.Range("B1"), .Range("B1").End(xlDown)).Copy Range("A5")
Columns(1).AutoFit
End With
End Sub

msdd79
Newbie
Newbie

Anmeldedatum: 15.07.2007
Beiträge: 49

Verfasst am: 16.05.2008, 10:35

jetzt funktioniert das, wie ich mir das vorgestellt habe.

vielen dank und schönes wochenende

gruß
michael

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

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Mannschaftschroniken über mehrere Jah...	davm	Microsoft Excel Hilfe	0	03.12.2008, 01:39
	Problem bei der Dateneingabe über Maske	weesnich	Microsoft Excel Hilfe	2	01.12.2008, 08:49
	Excel 2003 / Daten von untereinander ...	herbert33	Microsoft Excel Hilfe	1	27.11.2008, 17:17
	excelfile in anderes excelfile einführen	danini	Microsoft Excel Hilfe	1	26.11.2008, 12:30
	Fragebögen über Patientenzufriedenheit	Visionär	Microsoft Access Hilfe	4	17.11.2008, 16:04

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