Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten übertragen

Forumthread: Daten übertragen

Daten übertragen
14.12.2017 11: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

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Das * könnte Probleme machen, ...
14.12.2017 11: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 11:35:10
Matthias
Hallo
Probiers mal so
If Sheets("Daten").Cells(i, 1).Value  "" Then

oder suchst Du nach dem "*"
Gruß Matthias
Anzeige
AW: Daten übertragen
14.12.2017 11:37:55
Johann
Super schnell und Klasse.
Vielen Dank Matthias
AW: so gemeint?
14.12.2017 11: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
Anzeige
AW: Daten übertragen
14.12.2017 11: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
Anzeige
AW: Daten übertragen
14.12.2017 11:55:38
Johann
Vielen Dank für die Info Daniel.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige