Thema Datum  Von Nutzer Rating
Antwort
25.01.2021 09:41:26 Susanne
NotSolved
25.01.2021 10:52:27 Gast31108
NotSolved
Rot Mal was ausgekramt ...
 25.01.2021 11:21:29 Mase
NotSolved
25.01.2021 11:22:18 Mase
NotSolved
25.01.2021 11:21:55 Mase
NotSolved
25.01.2021 12:24:13 Susanne
NotSolved
25.01.2021 12:41:25 Mase
NotSolved
25.01.2021 14:37:22 Susanne
NotSolved
25.01.2021 15:09:21 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
25.01.2021 11:21:29		 Views:
477		 Rating:
     
Antwort:
  Ja
Thema:
Mal was ausgekramt ...		 
Option Explicit

Private Type tDatensatz
    sText(1 To 6) As String
End Type

Sub uebertragDBmod()
    
    Dim tRecord As tDatensatz
    '*** Prüfen, ob ID bereits vorhanden
    If Not (Range("F8").Value = vbNullString) And IsError(Application.Match(Range("F8").Text, Worksheets("Datenbank").Range("A:A"), 0)) Then
    
        '*** Datensatz gruppieren
        With tRecord
            .sText(1) = Range("F8").Text
            .sText(2) = Range("H8").Text
            .sText(3) = Range("J8").Text
            .sText(4) = Range("F15").Text
            .sText(5) = Range("J15").Text
            .sText(6) = Range("N15").Text
        End With
        
        '*** Datensatz in einem Rustch schreiben
        With Worksheets("Datenbank").Cells(Rows.Count, 1).End(xlUp)
            .Offset(1, 0).Resize(1, UBound(tRecord.sText)).Value = tRecord.sText
        End With
    
    Else
        '*** Benutzer informieren, wenn Datensatz bereits vorhanden
        MsgBox "Datensatz vorhanden." & vbNewLine & "Vorgang abgebrochen.", vbInformation + vbOKOnly, "Autor informiert:"
    
    End If
    
    
End Sub

 

 

Versuchs mal ...

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
25.01.2021 09:41:26 Susanne
NotSolved
25.01.2021 10:52:27 Gast31108
NotSolved
Rot Mal was ausgekramt ...
 25.01.2021 11:21:29 Mase
NotSolved
25.01.2021 11:22:18 Mase
NotSolved
25.01.2021 11:21:55 Mase
NotSolved
25.01.2021 12:24:13 Susanne
NotSolved
25.01.2021 12:41:25 Mase
NotSolved
25.01.2021 14:37:22 Susanne
NotSolved
25.01.2021 15:09:21 Mase
NotSolved