Wünsche einen schönen guten Abend.
Ich bräuchte mal Unterstützung bei folgender Aufgabe:
Ich würde gerne bei der Kopie von Daten in der Spalte "A" nur die ersten 5 Stellen aus der Tabelle ARBTAB nach AuswWasser kopieren. Kann man z. b. diese Formel (=links(A1,5)) und wenn ja wie, in die Zeile:
Worksheets("ArbTab").Range("a1:a430").Copy Destination:=Worksheets("AuswWasser").Range("a1") ' Nummer
einbauen? Die restlich zu kopierenden Spalten sollten natürlich wie gewohnt kopiert werden.
Schon jetzt Danke für eure Bemühungen.
Gruß Josef
Ich bräuchte mal Unterstützung bei folgender Aufgabe:
Ich würde gerne bei der Kopie von Daten in der Spalte "A" nur die ersten 5 Stellen aus der Tabelle ARBTAB nach AuswWasser kopieren. Kann man z. b. diese Formel (=links(A1,5)) und wenn ja wie, in die Zeile:
Worksheets("ArbTab").Range("a1:a430").Copy Destination:=Worksheets("AuswWasser").Range("a1") ' Nummer
einbauen? Die restlich zu kopierenden Spalten sollten natürlich wie gewohnt kopiert werden.
Schon jetzt Danke für eure Bemühungen.
Gruß Josef
Code:
Private Sub Auswwasser()
Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long
With Worksheets("AuswWasser")
Worksheets("AuswWasser").Range("A1:f430").ClearContents ' LÖSCHEN geht vermutlich nicht so???????
Worksheets("ArbTab").Range("a1:a430").Copy Destination:=Worksheets("AuswWasser").Range("a1") ' Nummer
Worksheets("ArbTab").Range("c1:c430").Copy Destination:=Worksheets("AuswWasser").Range("b1") ' Name
Worksheets("ArbTab").Range("d1:d430").Copy Destination:=Worksheets("AuswWasser").Range("c1")