excel, vb

excel, vb (7 Beiträge, 81 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

hab gerade was im excel programmiert und nun hab ich ein kleines problem:
ich möchte mittels makro von tabelle 1 spalte a nach tabelle 2 kopieren. bis daher kein problem. nur soll er automatisch in tabelle 2 den inhalt in die erste leere spalten einfügen. wie kann man das in vb programmieren?

danke für eure hilfe
zivi

du brauchst ja nur einen Makro aufnehmen, wo du den Befehl mit STRG+C und STRG+V anwendest....
einfach das Blatt wechseln, die erste Zelle markieren und dann den Inhalt einfügen...
dann müßte er automatisch alles rein schmeißen.

Spedi

...mehr Power...

ja das ist auch kein problem. mein problem ist, dass in der zweiten tabelle was eingeben wird und ich nicht fix weiß welche spalte frei ist. d.h. er muss sich die erste freie spalte suchen und den ihnhalt mit strg v einfügen.

achsooooo.....
du willst die erste freie spalte suchen...
hmm...
ist die Zeilenanzahl fix ?
Eventuell mit der Autofilterfunktion... so bald die anspricht, steht irgendwo was drinnen... -> nächste Spalte untersuchen.

Spedi

...mehr Power...

schau mal.. ich hab da was für dich..

Public Function AskLastRow(iX As Integer, charX As String, Optional SheetX As String = "Tabelle1") As Integer
'askLastRow gibt mir den Wert der letzten benutzten Zeile der Spalte charX zurück

    Dim wantedSheet As Worksheet
    Set wantedSheet = xLAppli.Workbooks(xLWorkB(iX).Name).Sheets(SheetX)

    Dim lastRow As Integer
    Const xlUp As Long = &HFFFFEFBE
    lastRow = CStr(wantedSheet.Cells(xLAppli.Rows.count, charX).End(xlUp).Row)
    Set wantedSheet = Nothing
    AskLastRow = lastRow
End Function

die funktion könntest halt auf Spalten umschreiben...
denn diese funktion gibt als Rückgabewert die Zeilennummer zurück wo als letzes was drin steht!

und in der 2ten Funktion kannst die Werte aus Zellen auslesen..

mit einem aufruf if worsheetread(spalte,zeile) <> "" könntest abfragen ob die Zelle leer ist!

Public Function WorkSheetREAD(charX As String, numberX As Integer, iX As Integer, Optional SheetX As String = "Tabelle1") As String
'Bei Aufruf dieser Funktion der man eine Zelle der ExcelTabelle angeben kann, bekommt
'man den Inhalt der Tabelle als String zurück.


    Dim X As String
    Dim Zelle As String
    Dim wantedSheet As Worksheet
    Zelle = charX + Trim(numberX)
    Set wantedSheet = xLAppli.Workbooks(xLWorkB(iX).Name).Sheets(SheetX)
    X = wantedSheet.Range(Zelle).value
    Set wantedSheet = Nothing
    WorkSheetREAD = X
End Function

mfg Ente!

hi,

* schon gelöst?
* steht in tabelle 2 weiter recht´s davon auch noch was?
* kann man an einer fixen zeile erkennen, ob die spalte beschrieben ist?

käme aber erst am nachm. dazu...

lg,
hariw

Bauernregel:

Liegt der Bauer auf der Lauer, ist Herr Lauer äußerst sauer.

wie wärs hiermit:

Option Explicit
'erste zu prüfende Spalte
Const INTSTARTCOL = 1
'zu kopierende Spalte
Const INTSOURCECOL = 1
'Zieltabellennummer (von links)
Const INTTARGETSHEET = 2
'Quelltabellennummer (von links)
Const INTSOURCESHEET = 1
Public Sub findColumn()
Dim rngColumn As Excel.Range
Dim intCol As Integer

On Error GoTo fehler:
intCol = INTSTARTCOL
Do Until Not rngColumn Is Nothing Or intCol = 257
    If WorksheetFunction.CountA(intCol) > 0 Then
        Set rngColumn = Worksheets(INTTARGETSHEET).Columns(intCol)
    End If
    intCol = intCol + 1
Loop
If intCol = 257 And rngColumn Is Nothing Then
    MsgBox "Es gibt keine leeren Spalten in der Tabelle: " & Worksheets(INTTARGETSHEET).Name & " Vorgang abgebrochen!"
    Exit Sub
End If
rngColumn.Value = Worksheets(INTSOURCESHEET).Columns(INTSOURCECOL).Value
Exit Sub
fehler
MsgBox Err.Description
End Sub

mfg

Penguin

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung