Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zeile gezielt ersetzen!
zurück: IF BEDINGUNG BEI ZELLWERT weiter: aktive Datei Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Unwissender89
Neuling


Verfasst am:
05. Aug 2009, 17:33
Rufname:


Zeile gezielt ersetzen! - Zeile gezielt ersetzen!

Nach oben
       Version: Office 2003

Guten Tag zusammen!

Ich bin ein Leihe was Makros angeht und habe mir durch verschiedene Foren einen für meinen Zweck geeigneten Code zusammengebastelt, der aus einem Formular Informationen in einer Tabelle (neue Datei) sammelt.

Da es viele Formulare gibt, ist der Code so angelegt, dass er die Infos immer wieder in einer neuen Zeile der Zieldatei (Tabelle) anlegt.

Soweit so gut. Doch es kommt häufig vor, dass es Infoänderungen gibt und so eine Zeile überschrieben werden muss.

Wie kann ich sowas in einen bestehenden Code einbauen? Die Zeilennummer ist immer im Formular sowie in der Tabelle in einer extra Zelle mit aufgeführt.

Vielen Dank im Voraus.

Für die die es interessiert der bisherige Code:

Code:
Sub DS_hinzufügen()
     Dim iFstRow As Long, i As Integer
     Dim rZiel As Range, rQuelle As Range, rZelle As Range
     Dim wbZiel As Workbook, wbQuelle As Workbook
     Dim arr
     Dim sPfad As String
     
     Application.ScreenUpdating = False
     
     sPfad = ThisWorkbook.Path & "\Uebersicht_CR_BZ-Hybrid1.xls"           'Pfad der Zieldatei
     
     Set wbQuelle = ThisWorkbook
     Set rQuelle = wbQuelle.Worksheets(1).Range("V4,V6,E6,F8,V14,L35,L36,L37,L38") 'Die verschiedenen Zellen, dessen Werte übernommen werden sollen
     
     If DateiGeöffnet(sPfad) Then
          MsgBox "Die Zieldatei ist im Moment gesperrt." & Chr(10) & _
            "Bitte sorgen Sie dafür, dass die Datei wieder freigegeben wird", vbCritical + vbOKOnly, "ERROR"
          Exit Sub
     End If
               
     Set wbZiel = Workbooks.Open(sPfad)
     Set rZiel = wbZiel.Worksheets(1).Range("A1:I10000")              'Bereich der "Datenbank"

     ReDim arr(1 To 1, 1 To rZiel.Columns.Count)
     
     For Each rZelle In rQuelle
          If rZelle.Address = rZelle.MergeArea(1, 1).Address Then
               i = i + 1
               arr(1, i) = rZelle.Value
          End If
     Next
     iFstRow = LetzteZeile(rZiel) + 1

     With wbZiel.Worksheets(1)
          .Cells(iFstRow, rZiel.Column).Resize(1, UBound(arr, 2)) = arr
     End With
     wbZiel.Close savechanges:=True
     
     Application.ScreenUpdating = True
     MsgBox "Datensatz hinzugefügt", vbInformation + vbOKOnly, "INFO"
End Sub

Private Function LetzteZeile(rBereich As Range) As Long
     Dim iCol As Integer, lRow As Long, tmpRow As Long
     
     lRow = rBereich.Row
     rBereich.Replace what:=" ", replacement:="", lookat:=xlWhole
     
     For iCol = 1 To rBereich.Columns.Count
          tmpRow = rBereich.Cells(rBereich.Rows.Count, iCol).End(xlUp).Row
          If tmpRow > lRow Then lRow = tmpRow
     Next
     
     LetzteZeile = lRow
End Function

Private Function DateiGeöffnet(sPfad As String) As Boolean
     On Error Resume Next
     Open sPfad For Binary Access Read Lock Read As #1
     Close #1
     If Err.Number <> 0 Then
          DateiGeöffnet = True
          Err.Clear
     End If
End Function

Der Beitrag wird nach Excel VBA verschoben. Lisa
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Bestimmte Zeile summieren 2 Enkel Abrahams 678 09. Dez 2005, 11:37
Enkel Abrahams Bestimmte Zeile summieren
Keine neuen Beiträge Excel Formeln: in Zeile aus Spalten schreiben??? 6 robert_de 2318 25. Nov 2005, 12:10
robert_de in Zeile aus Spalten schreiben???
Keine neuen Beiträge Excel Formeln: "Ersetzen" mehrfach verschachteln 2 Schirschi 2211 21. Nov 2005, 20:24
Gast "Ersetzen" mehrfach verschachteln
Keine neuen Beiträge Excel Formeln: Zahlen in einer Zeile auswerten nach den Größtwerten 11 Nicole-Fun 908 26. Okt 2005, 09:44
ransi Zahlen in einer Zeile auswerten nach den Größtwerten
Keine neuen Beiträge Excel Formeln: Wenn Wert = 0,00 dann Zeile davor und die eigene Grün 9 Speedy@Web 1993 22. Okt 2005, 20:19
Maxel3113 Wenn Wert = 0,00 dann Zeile davor und die eigene Grün
Keine neuen Beiträge Excel Formeln: SUMMEWENN mit Suchkriterium Datum;Datum nach jeder Zeile +1? 4 homer_134 3721 20. Sep 2005, 23:48
homer_134 SUMMEWENN mit Suchkriterium Datum;Datum nach jeder Zeile +1?
Keine neuen Beiträge Excel Formeln: Autofilter funktioniert nur bis Zeile 143?? 2 landau666 889 07. Sep 2005, 21:10
landau666 Autofilter funktioniert nur bis Zeile 143??
Keine neuen Beiträge Excel Formeln: bedingte Formatierung ganze Zeile enfärben 2 skyblue 2516 06. Sep 2005, 12:41
skyblue bedingte Formatierung ganze Zeile enfärben
Keine neuen Beiträge Excel Formeln: Wenn Bedingung Zeile kopieren 1 marco1 1634 28. Jul 2005, 14:04
Günni Wenn Bedingung Zeile kopieren
Keine neuen Beiträge Excel Formeln: Zahl mit Zahl ersetzen und mit der Formel Multiplizieren??? 7 Iggy 912 14. Apr 2005, 21:53
ae Zahl mit Zahl ersetzen und mit der Formel Multiplizieren???
Keine neuen Beiträge Excel Formeln: Spaltenweise suchen und ersetzen 2 MaxKunst 3840 15. März 2005, 21:17
MaxKunsttt Spaltenweise suchen und ersetzen
Keine neuen Beiträge Excel Formeln: Zahl durch Wort ersetzen. 1 Carrear 3152 23. Feb 2005, 15:46
ae Zahl durch Wort ersetzen.
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum