Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
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
AW: Daten übertragen
14.12.2017 11:55:38
Johann
Vielen Dank für die Info Daniel.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige