MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 24.09.2016, 17:48   #1
Franki137
Neuer Benutzer
Neuer Benutzer
Standard Sonstiges - Typen unverträglich

Hallo zusammen,

ich benutze Excel 2010 und habe bei der VBA-Programmierung folgendes Problem:

Folgendes Makro liest aus einer Spalte mit Datum (TTMMJJ)die Jahreszahlen aus.

Wenn diese mit dem aktuellen Jahr übereinstimmen, werden sie auf ein zweites

Tabellenblatt kopiert.

Leider bringt er für die Variable "D" ständig die Fehlermeldung "Typen

unverträglich".

"D" soll die ausgelesene Jahreszahl der aktiven Zelle ausgeben.

Wenn ich die Prozedur in Einzelschritten durchlaufe, läuft der Code komischerweise.

Bitte helft mir bei dem Problem.

Muss ich "D" eine anderen Typ bedaten oder woran liegts ?

Hier das Makro:

Option Explicit
Dim i As Integer
Dim LaufzBeginn As Range
Dim LaufzEnde As Range
Dim Jahr
Dim D As Integer
Dim Zelle As Object
Dim Z As Integer
Dim s As Integer
Dim iAnz As Integer
Const Blatt1 = "Grunddaten"
Const Blatt2 = "Test"

Sub Datum_kopiern()

Sheets("Grunddaten").Select

i = Cells(Rows.Count, 5).End(xlUp).Row
i = i - 2

MsgBox ("Die letzte beschriebene Spalte ist Nr. " & i)

Set LaufzBeginn = Range(Cells(2, 5), Cells(i, 5))
Set LaufzEnde = Range(Cells(2, 6), Cells(i, 6))


Sheets("Grunddaten").Select
Sheets("Grunddaten").Range("3:1").Select
'Sheets("Test").Range("A1").Select
Application.ScreenUpdating = False
Sheets(Blatt1).Activate
LaufzBeginn.Select
iAnz = 0
s = 0
Z = 1

Do Until s = i

Set Zelle = ActiveCell
D = Year(Zelle)
Jahr = Year(Date)
If D < Jahr Then
End If
If D > Jahr Then
End If
If D = Jahr = True Then
Zelle.Copy
Sheets(Blatt2).Activate
Sheets(Blatt2).Cells(Z, 1).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Z = Z + 1
Sheets(Blatt1).Select
End If
ActiveCell.Offset(1, 0).Select
Loop

Application.CutCopyMode = False
Application.ScreenUpdating = True



'MsgBox ("Es wurden " & iAnz & " Zellen übertragen.")

MsgBox ("Test erfolgreich")


End Sub



Danke für Eure Zeit und Mühe !!!

Gruß Frank.
Franki137 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 24.09.2016, 18:12   #2
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hallo und willkommen Frank,

Du fragst in der falschen Forumsecke. Hier befassen wir uns nur mit traditionellem VB bis zur Version 6 aber nicht mit Office-VBA, wie es auch schon am Eingang zu lesen ist.

Wende Dich mit Deinen Fragen an die Excel-Ecke.

__________________

Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 24.09.2016, 18:33   #3
Franki137
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Haklesoft,

Dank Dir !

Kann ich den Beitrag direkt weiterleiten oder nen neuen einstellen ?

Dank Dir !
Franki137 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 15:29 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 - 2017, Jelsoft Enterprises Ltd.

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