Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.05.2016 09:01:55 |
VBA-N00b |
|
|
|
11.05.2016 17:28:15 |
Gast50301 |
|
|
VBA zw. 2 Excel-Dateien: Prüfe ob Zelle leer, dann kopiere |
11.05.2016 18:00:12 |
AVBA |
|
|
|
11.05.2016 18:02:42 |
AVBA |
|
|
|
11.05.2016 18:30:38 |
Gast39838 |
|
|
|
11.05.2016 21:32:11 |
Gast73951 |
|
|
|
13.05.2016 16:52:54 |
VBA-N00b |
|
|
Von:
AVBA |
Datum:
11.05.2016 18:00:12 |
Views:
738 |
Rating:
|
Antwort:
|
Thema:
VBA zw. 2 Excel-Dateien: Prüfe ob Zelle leer, dann kopiere |
Hey VBA-N00b,
deine Erklärungen sind leider etwas unzureichend. Hier ist mal ein beispielhafter Code der schon in die Richtung geht die du dir wahrscheinlich vorstellst, allerdings müsste insbesondere noch angepasst werden was wohin kopiert wird. Der Code setzt darüber hinaus voraus, dass beide Arbeitsmappen offen sind und der Code in das Auswertungstool kopiert wird:
Sub werte_kopieren()
Dim wb1 As Worksheet
Dim wb2 As Worksheet
Dim intLeer As Integer
Dim intZeile As Integer
' bitte Namen der Arbeitsblätter gegebenenfalls anpassen
Set wb1 = ActiveWorkbook.Worksheets("Tabelle1") ' Bei dir das Auswertungstool
Set wb2 = Workbooks("Basis.xls").Worksheets("Tabelle1") ' In deinem Fall Basis.xls
intZeile = 5 ' legt die Startzeile in der Basisdatei fest
Do Until intLeer = 2
If Not (IsEmpty(wb2.Range("B" & intZeile).Value)) Then ' prüft ob die Zeile BX leer ist
wb1.Range("B" & intZeile).Value = wb1.Range("A" & intZeile).Value ' Wenn die Zeile nicht leer ist, wird in der Auswertungsdatei Zelle in Zeile X von Spalte A nach Spalte B kopiert
intLeer = 0 ' setzt die Prüfvariable zurück, wenn eine Zelle nicht leer ist
Else
intLeer = intLeer + 1
End If
intZeile = intZeile + 1
Loop
End Sub
BG
AVBA |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
11.05.2016 09:01:55 |
VBA-N00b |
|
|
|
11.05.2016 17:28:15 |
Gast50301 |
|
|
VBA zw. 2 Excel-Dateien: Prüfe ob Zelle leer, dann kopiere |
11.05.2016 18:00:12 |
AVBA |
|
|
|
11.05.2016 18:02:42 |
AVBA |
|
|
|
11.05.2016 18:30:38 |
Gast39838 |
|
|
|
11.05.2016 21:32:11 |
Gast73951 |
|
|
|
13.05.2016 16:52:54 |
VBA-N00b |
|
|