Grüße ins Board!
Ich habe folgendes Problem bei einer Excel Tabelle.
Grundlage ist, dass Werte in 3 Spalten stehen c5:e5
Diese Werte sollen durch eine Tastenkombination ausgelesen und ans Ende einer Tabelle eingetragen werden.
Bisher habe ich folgendes gebastelt:
Zitat:Sub Kopieren()
'
' Kopieren Makro
'
' Tastenkombination: Strg+e
'
Range("C5:E5").Select
Selection.Copy
If IsEmpty(Tabelle1.Range("C92").Value) = True Then
Range("C92").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
Range("C93").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
Soweit so gut, hier habe ich allerdings um erstmal die grundlegenden Funktionen zu testen festgelegte Zellen angegeben.
Ich stelle mir sowas in der Richtung vor:
Zitat:Sub Kopieren()
'
' Kopieren Makro
'
' Tastenkombination: Strg+e
'
Dim i As Long
Range("C5:E5").Select
Selection.Copy
For i = 92 To 200
If Cells(i, 3) = "" Then
Cells(i, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
End Sub
Hier wird allerdings JEDE Zelle befüllt...es soll nur einmal in die letzte leere Zelle eingetragen werden und dann stoppen....
Hat jemand ne Idee?
Vielen Dank vorab!
Das funktioniert schon ziemlich gut!
Dafür erstmal vielen Dank.
Wenn ich das richtig verstanden habe sucht er aber nach der LETZTEN leeren Zelle oder?
Dadurch kommt es nun zu einem Problem mit meiner Tabelle.
Leider kann ich hier keiner Addins verwenden daher leider nur eine Beschreibung.
Ich habe jeweils Tabellenblöcke nach Wochen Also Montag - Freitag
Zwischen den Blöcken sind 2 Leerzeilen, die ich brauche um weitere Formeln zu nutzen.
Mit deiner Lösung würde er nun auch diese Leerzeilen befüllen - also habe ich mir gedacht fülle ich doch einfach diese Zeilen mit einer 0 und passe es farblich an.
Nun überspringt er aber ALLE Zeilen bis er an den Punkt kommt, an dem NICHTS weiter folgt.
Also:
C91:E91 sind gefüllt mir den Uhrzeiten
C92:E92 leer und warten auf befüllung
bis C95:E95 leer
C96:E96 sind mit einer 0 gefüllt wegen Leerzeile
C97:E97 sind mit einer 0 gefüllt wegen Leerzeile
Das Makro springt nun aber leider nicht zu C92:E92 sondern nach C98:e98 und fügt die Werte dort ein.
Ist etwas wirr geschrieben aber hier auf der Arbeit kann ich wie gesagt leider nichts weiter nutzen.
EDIT:
Wenn wir hier gerade schon dabei sind....mir ist da gerade ne Idee gekommen.
Könnte man eigentlich auch bei dem Eingabeteil ein Datum einfügen welches dann mit den Daten in der Liste abgeglichen wird und man so auf die richtige Zeile kommt?
Müsste ja in irgendeiner Form dem Sverweis nahekommen....
B5 - C5 - D5 - E5
Also: Eingabedaten: Datum - Kommen - Gehen - Pause
In den Tabellenblöcken steht in Spalte B das Datum.
Jetzt müsste das Makro das Eingabedatum B5 mit den Daten aus der Tabelle vergleichen und die Daten C5:E5 in die entsprechende Zeile einfügen.
Damit müsste man sich das leerzellen gesuche sparen und es wäre insgesamt wesentlich eleganter.....
Vielleicht hat ja auch hierzu jemand ne Idde :100:
Hi Tom,
mit der 2. Variante fügt er die Werte Fix bei C8 ein
Hatte meinen oberen Beitrag noch etwas angepasst:
Wenn wir hier gerade schon dabei sind....mir ist da gerade ne Idee gekommen.
Könnte man eigentlich auch bei dem Eingabeteil ein Datum einfügen welches dann mit den Daten in der Liste abgeglichen wird und man so auf die richtige Zeile kommt?
Müsste ja in irgendeiner Form dem Sverweis nahekommen....
B5 - C5 - D5 - E5
Also: Eingabedaten: Datum - Kommen - Gehen - Pause
[img]
Dateiupload bitte im Forum! So geht es: Klick mich!]
In den Tabellenblöcken steht in Spalte B das Datum.
Jetzt müsste das Makro das Eingabedatum B5 mit den Daten aus der Tabelle vergleichen und die Daten C5:E5 in die entsprechende Zeile einfügen.
Damit müsste man sich das leerzellen gesuche sparen und es wäre insgesamt wesentlich eleganter.....
Vielleicht hat ja auch hierzu jemand ne Idee [img]
Dateiupload bitte im Forum! So geht es: Klick mich!]
Vielleicht kann ein Mod ja mal den Threadnamen anpassen - diese Überlegung geht ja in eine etwas andere Richtung nun
Hat keiner mehr eine Idee zu meinem Problem? ;-(
Hi,
bei der Suche nach Daten ist Excel zuweilen etwas komisch.
In diesem Fall solltest Du eine Beispieldatei hochladen. Es bringt Dir wenig wenn Dir jemand einen Code zur Verfügung stellt,
der dann u.U. Fehlermeldungen auswirft.
Da das nun ein neues Thema ist, schlage ich vor, dazu auch ein neues Thema zu erstellen und die Datei dort zur Verfügung zu stellen.
Gruß
Ich