Thema Datum  Von Nutzer Rating
Antwort
11.05.2016 09:01:55 VBA-N00b
NotSolved
11.05.2016 17:28:15 Gast50301
NotSolved
11.05.2016 18:00:12 AVBA
NotSolved
11.05.2016 18:02:42 AVBA
NotSolved
11.05.2016 18:30:38 Gast39838
NotSolved
Blau VBA zw. 2 Excel-Dateien: Prüfe ob Zelle leer, dann kopiere
 11.05.2016 21:32:11 Gast73951
Solved
13.05.2016 16:52:54 VBA-N00b
NotSolved

Ansicht des Beitrags:
Von:
Gast73951		 Datum:
11.05.2016 21:32:11		 Views:
837		 Rating:
     
Antwort:
 Nein
Thema:
VBA zw. 2 Excel-Dateien: Prüfe ob Zelle leer, dann kopiere		 
Danke für den Hinweis,

hier nun der Code:


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")

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

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:



  • 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
NotSolved
11.05.2016 17:28:15 Gast50301
NotSolved
11.05.2016 18:00:12 AVBA
NotSolved
11.05.2016 18:02:42 AVBA
NotSolved
11.05.2016 18:30:38 Gast39838
NotSolved
Blau VBA zw. 2 Excel-Dateien: Prüfe ob Zelle leer, dann kopiere
 11.05.2016 21:32:11 Gast73951
Solved
13.05.2016 16:52:54 VBA-N00b
NotSolved