MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 10.01.2018, 07:34   #16
Jonas0806
MOF User
MOF User
Standard

Guten Morgen,

Zitat: von Office_user Beitrag anzeigen

Habe den Textdatei-Import mittlerweile mit folgendem Code (gefunden im Netz) gelöst:

Aha, schön, wie Du die Mühe würdigst, die sich freiwillige Helfer für Dich machen. Wieso Du keinen der hier genannten Ansätze umgesetzt hast, weißt wohl nur Du.


Zitat: von Office_user Beitrag anzeigen

Jetzt das nächste Problem:

Wie ich bereits schrieb, keinerlei Feedback zu den bisherigen Bemühungen. Aber mit Deinem nächsten Problem bist Du natürlich zur Stelle. Ich bin hier raus.

__________________

Gruß Jonas
Jonas0806 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.01.2018, 07:36   #17
H_E_K
MOF User
MOF User
Standard

Zitat: von Jonas0806 Beitrag anzeigen

Guten Morgen,



Aha, schön, wie Du die Mühe würdigst, die sich freiwillige Helfer für Dich machen. Wieso Du keinen der hier genannten Ansätze umgesetzt hast, weißt wohl nur Du.




Wie ich bereits schrieb, keinerlei Feedback zu den bisherigen Bemühungen. Aber mit Deinem nächsten Problem bist Du natürlich zur Stelle. Ich bin hier raus.

Dito.

__________________

Gruß
Hans


Mit VBA löst du jedes Problem - und schaffst mindestens zwei neue ...
Windows 7 Pro, Windows 10 Home, Office 2013 H&S
H_E_K ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.01.2018, 11:41   #18
Office_user
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo zusammen,

Sorry. Wollte auf keinen Fall jemanden verärgern.

Gruß Gerhard
Office_user ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.01.2018, 10:55   #19
chris-kaiser
MOF Guru
MOF Guru
Standard

Hi,

Code:

Sub komische_sache()
Dim ArrCol(2)
Dim IntCol As Integer, i As Integer
Dim ar()
ArrCol(0) = 9 'I
ArrCol(1) = 11 'K
ArrCol(2) = 15 'O
For IntCol = 0 To 2
    ar() = Range(Cells(1, ArrCol(IntCol)), Cells(Cells(Rows.Count, ArrCol(IntCol)).End(xlUp).Row, ArrCol(IntCol)))
    For i = LBound(ar()) To UBound(ar())
        ar(i, 1) = CDate(ar(i, 1))
    Next
    Range(Cells(1, ArrCol(IntCol)), Cells(Cells(Rows.Count, ArrCol(IntCol)).End(xlUp).Row, ArrCol(IntCol))) = ar()
Next
End Sub
stammt aus der PN

Zitat:

Hallo,

PN sind zwar nicht erwünscht, aber ich wusste jetzt nicht ob auf den alten Thread noch jemand antwortet.

Ich bin im Forum auf einen Thread aus 2007 gestoßen, bei dem folgender Code von Ihnen auch mein Problem (Datumsformat wird nicht erkannt) (http://www.ms-office-forum.net/forum...d.php?t=223054) lösen würde:

Zitat:

Sub komische_sache()
Dim ar()
ar() = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
For i = LBound(ar()) To UBound(ar())
ar(i, 1) = CDate(ar(i, 1))
Next
Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) = ar()
End Sub

Ich würde den Code für Spalte I,K u. O (drei Spalten mit Datum benötigen. Geht das?

Danke im Voraus für Ihre Rückantwort.

Gruß Gerhard

__________________

Gruß Chris

Feedback nicht vergessen,
p.s Bitte keine PN (persönliche Nachrichten) mit Aufgabenstellungen schicken, Probleme sollten im Forum gelöst werden!
3a2920576572206973742064656e20646120736f206e65756769657269672e
chris-kaiser ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.01.2018, 15:03   #20
Office_user
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Chris,

Danke für deine Rückantwort.

Habe den Code eingebaut und bekomme bei Zeile:

Zitat:

ar(i, 1) = CDate(ar(i, 1))

Den Fehler: Laufzeitfehler 13: Typen unverträglich

Was mach ich falsch?

Gruß Gerhard
Office_user ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.01.2018, 06:11   #21
chris-kaiser
MOF Guru
MOF Guru
Standard

Hallo Gerhard,

in einer Zelle steht kein Datum bzw. etwas was nicht als Datum erkannt wird.
Ich tippe mal darauf das du eine Überschrift hast.
Dann müsste statt
ar() = Range(Cells(1......

eine Zwei rein
ar() = Range(Cells(2......

bei der Übergabe an die Zellen natürlich auch die 1 ändern!
beginnen bei dir die Daten ab Zeile 3 dann auf 3 ändern

__________________

Gruß Chris

Feedback nicht vergessen,
p.s Bitte keine PN (persönliche Nachrichten) mit Aufgabenstellungen schicken, Probleme sollten im Forum gelöst werden!
3a2920576572206973742064656e20646120736f206e65756769657269672e
chris-kaiser ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.01.2018, 08:33   #22
Office_user
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Chris,

das war's! In der Zeile:

Zitat:

Next
Range(Cells(2,

auch noch ändern und es macht wie es soll.

Vielen Dank!

Gruß Gerhard
Office_user ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:12 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.