Daten übertragen

Forumthread: Daten übertragen
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Daten übertragen

Daten übertragen

14.12.2017 12:28:50

Johann

Hallo Liebe VBA Profis,
kann mir jemand sagen ob dieser Code richtig geschrieben ist?
Er funktioniert leider wenn ich ihn etwas abändere ohne Schleife
nur für eine Zeile.
In Schleife passiert überhaupt nichts. (nicht mal fehlermeldung)

Sub Einlesen()
For i = 2 To 200
If Sheets("Daten").Cells(i, 1).Value = "*" Then
Sheets("Jan").Cells(i, 1).Value = Sheets("Daten").Cells(i, 1).Value
End If
Next i
End Sub

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Das * könnte Probleme machen, ...

14.12.2017 12:34:37

lupo1
AW: Daten übertragen

14.12.2017 12:35:10

Matthias
AW: Daten übertragen

14.12.2017 12:37:55

Johann
AW: so gemeint?

14.12.2017 12:36:12

Fennek
AW: Daten übertragen

14.12.2017 12:36:27

Daniel
AW: Daten übertragen

14.12.2017 12:55:38

Johann

Das * könnte Probleme machen, ...

14.12.2017 12:34:37

lupo1

... da zumindest in Excel Wildcard (in VBA weiß ich grad nicht).
Wenn ohne Probleme, könnte man noch verkürzen zu:
If Sheets("Daten").Cells(i, 1) = "*" Then Sheets("Jan").Cells(i, 1) = "*"

AW: Daten übertragen

14.12.2017 12:35:10

Matthias

Hallo
Probiers mal so

If Sheets("Daten").Cells(i, 1).Value  "" Then

oder suchst Du nach dem "*"
Gruß Matthias

AW: Daten übertragen

14.12.2017 12:37:55

Johann

Super schnell und Klasse.
Vielen Dank Matthias

AW: so gemeint?

14.12.2017 12:36:12

Fennek

Hallo,
die Abfrage auf "*" ist etwas ungewöhlich, ist das so gemeint:


Sub Einlesen()
For i = 2 To 200
If not isempty(Sheets("Daten").Cells(i, 1)) Then
Sheets("Jan").Cells(i, 1) = Sheets("Daten").Cells(i, 1)
End If
Next i
End Sub

mfg

AW: Daten übertragen

14.12.2017 12:36:27

Daniel

Hi
was soll der Code denn tun?
Bedenke, dass der Vergleich mit "=" keine Jokerzeichen verarbeiten kann, dh die Prüfung im IF wird nur WAHR, wenn in der Zelle tatsächlich der Stern steht.
Solltest der Stern hier ein Joker für beliebigen Text sein, müsstest du schreiben:

If Sheets("Daten").Cells(i, 1).Value ""
oder
If Sheets("Daten").Cells(i, 1) Like "*" Then
das LIKE kann die Jokerzeichen "*", "?" und "#" verarbeiten.
Gruß Daniel

AW: Daten übertragen

14.12.2017 12:55:38

Johann

Vielen Dank für die Info Daniel.