VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Werte kopieren und im anderem Excel einfügen	29.10.2020 08:57:21	ch79
Werte kopieren und im anderem Excel einfügen	29.10.2020 09:03:31	ch79
was hast du denn ....	29.10.2020 10:00:21	ralf_b
Werte kopieren und im anderem Excel einfügen	29.10.2020 10:27:59	TestGast
Werte kopieren und im anderem Excel einfügen	29.10.2020 11:37:21	Gast66956
Werte kopieren und im anderem Excel einfügen	29.10.2020 11:55:03	Gast51024
Werte kopieren und im anderem Excel einfügen	29.10.2020 13:23:12	ch79
Werte kopieren und im anderem Excel einfügen	29.10.2020 17:23:42	TestGast
Werte kopieren und im anderem Excel einfügen	29.10.2020 21:49:50	ch79
Werte kopieren und im anderem Excel einfügen	30.10.2020 07:24:54	TestGast
Werte kopieren und im anderem Excel einfügen	30.10.2020 08:11:23	Gast21781
Werte kopieren und im anderem Excel einfügen	30.10.2020 09:03:03	TestGast
Werte kopieren und im anderem Excel einfügen	30.10.2020 09:32:06	ch79
Werte kopieren und im anderem Excel einfügen	03.11.2020 11:13:48	TestGast

Ansicht des Beitrags:

Von:
TestGast

Datum:
30.10.2020 09:03:03

Views:
1076

Rating:

Antwort:

Thema:
Werte kopieren und im anderem Excel einfügen

Hallo ch79

Bitte mal überprüfen, dass in der Zelle B41 z.B. "KW 44" steht und in der zweiten Spalte
der Zieltabelle auch ein "KW 44" steht. Bitte auch nur EIN Leerzeichen dazwischen und
auch keines davor oder danach. Die werden sehr gerne übersehen.

Nun nochmals zur Erklärung. Vielleicht wird die Funktionsweise klarer und du kannst
das Makro später leichter selber anpassen.

Gruß
Der TestGast

ich hole mir den Text aus der Zelle B41
 
    'Kalenderwoche aus Excel1 auslesen (hier habe ich das .Value mal gelöscht)
    strKW = wsQuelle.Range("B41")
 
Diesen Text suche in in der Zieltabelle in Spalte 2
 
    'KWxx in Zieldatei suchen
    varZeile = Application.Match(strKW, wsZiel.Columns(2), 0)
 
In der Variable varZeile steht nun die Zeile, in der dieser Text gefunden sein sollte.
Wenn du das Makro schrittweise ablaufen lässt, was steht dann hier in der Variablen "varZeile"?
Wenn hier nun keine reine Zeilenzahl steht, findet er den Text aus der Zelle B41 nicht in der
zweiten Spalte der Zieltabelle.

If VarType(varZeile) <> vbError Then
    lngZielZeile = Val(varZeile)
    Else
    MsgBox "Kalenderwoche " & strKW & " nicht gefunden", vbCritical + vbOKOnly, "KW nicht gefunden"
    GoTo Aufräumen
End If
  
'nächste freie Zelle suchen (in Spalte 2)
Do While wsZiel.Cells(lngZielZeile, 2) <> ""
    lngZielZeile = lngZielZeile + 1
Loop
  
'Daten kopieren
wsQuelle.Range("L66:U66").Copy Destination:=wsZiel.Cells(lngZielZeile, 2)

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Werte kopieren und im anderem Excel einfügen	29.10.2020 08:57:21	ch79
Werte kopieren und im anderem Excel einfügen	29.10.2020 09:03:31	ch79
was hast du denn ....	29.10.2020 10:00:21	ralf_b
Werte kopieren und im anderem Excel einfügen	29.10.2020 10:27:59	TestGast
Werte kopieren und im anderem Excel einfügen	29.10.2020 11:37:21	Gast66956
Werte kopieren und im anderem Excel einfügen	29.10.2020 11:55:03	Gast51024
Werte kopieren und im anderem Excel einfügen	29.10.2020 13:23:12	ch79
Werte kopieren und im anderem Excel einfügen	29.10.2020 17:23:42	TestGast
Werte kopieren und im anderem Excel einfügen	29.10.2020 21:49:50	ch79
Werte kopieren und im anderem Excel einfügen	30.10.2020 07:24:54	TestGast
Werte kopieren und im anderem Excel einfügen	30.10.2020 08:11:23	Gast21781
Werte kopieren und im anderem Excel einfügen	30.10.2020 09:03:03	TestGast
Werte kopieren und im anderem Excel einfügen	30.10.2020 09:32:06	ch79
Werte kopieren und im anderem Excel einfügen	03.11.2020 11:13:48	TestGast